combo de clientes

[el_tigre]

Amigos este código es parte de mi conexión a mi base de datos de access

Código:

Private Sub Form_Load()
With CN
    .ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "..\pagos.mdb; Persist security info=false"
    .CursorLocation = adUseClient
    .CommandTimeout = 10
    .Mode = adModeReadWrite
    .Open
End With
    RSclientes.Open "SELECT * FROM clientes ORDER BY id", CN, adOpenDynamic, adLockOptimistic
    RSproveedores.Open "SELECT * FROM proveedores ORDER BY id_proveedor", CN, adOpenDynamic, adLockOptimistic
    RSempleados.Open "SELECT * FROM empleados ORDER BY cod_empl", CN, adOpenDynamic, adLockOptimistic
    RSfacturas.Open "SELECT * FROM facturas ORDER BY nro_factura", CN, adOpenDynamic, adLockOptimistic

End Sub

Luego este código es parte de mi módulo principal, allí al final tengo el "dbclientes" que me debe permitir jalar los datos de tabla cliente, pero no coge para nada

Código:

Public Function facturas()
For Each x In frm_facturas
        On Error Resume Next
        Set x.DataSource = RSfacturas
    Next
    With frm_facturas
        .txtnrofactura.DataField = "nro_factura"
        .txtclientes.DataField = "empresa"
        .txtobra.DataField = "obra"
        .txtmontos.DataField = "monto_soles"
        .txtmontod.DataField = "monto_dolares"
        .dtp_fecha.DataField = "fecha"
        .cmbestado.DataField = "estado"
        .txtot.DataField = "orden_de_trabajo"
        .txtobservaciones.DataField = "observaciones"
          
        
   ' Set dbclientes.RowSource = RSclientes
    'dbclientes.ListField = "clientes"
    'dbclientes.BoundColumn = "razon_social"
    End With
End Function

Este es el load de mi formulario FACTURA.

Código:

Private Sub Form_Load()
    facturas
    frm_facturas.Width = 10650
    frm_facturas.Height = 8100
    lbltotal.Caption = "TOTAL DE FACTURAS: " & RSfacturas.RecordCount

End Sub

Cómo puedo hacer para que mi cbcliente funcione..........tener en cuenta q ningun momento cierro mi conexión.

Saludos de nuevo

[Avellaneda]

Si el DataCombo está en el formulario frm_facturas, debes anteponerle igualmente el punto:

Código:

     Set .dbclientes.RowSource = RSclientes
     .dbclientes.ListField = "clientes"
     .dbclientes.BoundColumn = "razon_social"
End With

[el_tigre]

Hola Avellana, gracias por tu interés, probé poniendo así en mi Módulo Principal, pero nada, luego intenté ponerlo así en mi formulario de Facturas pero me bota error.

Toda la programación está en mi módulo Principal, allí creo todos los enlaces mediante una FUNCION, pero jalar la conexión de otro tabla no me lo permite.

S.O.S.