Private Sub Form_Load()
Dim dbName As String
Dim num_records As Integer
Dim strSelect As String
Dim i As Integer
Dim Exportada As Boolean
Dim FacturaNoExportada As Boolean
    
    dbName = frmMain.Ap_Path & frmMain.dbName
    Set db = New ADODB.Connection
    db.Open "Provider=Microsoft.Jet.OLEDB.3.51;Persist Security Info=False;Data Source=" & dbName
    Set rcds = New ADODB.Recordset
Selecciona el valor Exportada de la tabla Maestro Facturas
strSelect = "SELECT [Maestro Facturas].Exportada FROM [Maestro Facturas]"

rcds.Open strSelect, db, adOpenStatic, adLockOptimistic
Establece la variable FacturaNoExportada a Falso
FacturaNoExportada = False
rcds.MoveFirst
Hace un bucle por todas las facturas
For i = 1 To rcds.RecordCount

Exportada = rcds.Fields(0)
Si encuentra alguna factura no exportada, entonces establece la variable FacturaNoExportada a verdadera
If Exportada = False Then
    FacturaNoExportada = True
End If
rcds.MoveNext
Next i
rcds.Close
Si no hay facturas por exportar, entonces el ComboFactura se llena con los valores de todas las facturas que estn en la tabla Maestro Facturas
If FacturaNoExportada = False Then

dbFacturas.DatabaseName = frmMain.Ap_Path & frmMain.dbName
dbFacturas.RecordsetType = 1
dbFacturas.RecordSource = "Select Numero FROM [Maestro Facturas]"
dbFacturas.Refresh
dbFacturas.Recordset.MoveFirst
   Do While Not dbFacturas.Recordset.EOF
     ComboFactura.AddItem dbFacturas.Recordset.Fields("Numero").Value
     dbFacturas.Recordset.MoveNext
   Loop
   
   ComboFactura.ListIndex = Me.ComboFactura.ItemData(0)
Else
Si hay facturas por exportar, entonces el Combo Factura se llena con las facturas pendientes de exportar
dbFacturas.DatabaseName = frmMain.Ap_Path & frmMain.dbName
dbFacturas.RecordsetType = 1
dbFacturas.RecordSource = "Select Numero FROM [Maestro Facturas] where Exportada = 0"
dbFacturas.Refresh
dbFacturas.Recordset.MoveFirst
   Do While Not dbFacturas.Recordset.EOF
     ComboFactura.AddItem dbFacturas.Recordset.Fields("Numero").Value
     dbFacturas.Recordset.MoveNext
   Loop
   
   ComboFactura.ListIndex = Me.ComboFactura.ItemData(0)
End If
   cmdExportarAdminpaq.Enabled = False
       
dbTodasFacturas.DatabaseName = frmMain.Ap_Path & frmMain.dbName
dbTodasFacturas.RecordsetType = 1
dbTodasFacturas.RecordSource = "Select * FROM [Maestro Facturas]"
dbTodasFacturas.Refresh

End Sub
