hola señores, necesito su ayuda ,. mi caso es que tengo un procedimiento que esta en un modulo.. lo pusse ahi por q necesito llamar a ese procedimiento en un momento indicado...el procedimiento es:
como hago para llamar a este procedimiento de un cmdaceptar que esta en frm1..nesecito llamar al procedimiento enfocar1.. gracias por su ayuda
Private Sub Enfocar1()
Set DataGrid1.DataSource = Nothing \'esto lo desconecta del origen de datos
With DataZaga.rsCmdclientes1
If .State = adStateOpen Then
.Close
End If
If .State = 0 Then
.Open
End If
End With
Set DataGrid1.DataSource = [DataZaga] \'El nombre del origen de datos cuando es un dataenvironmet va entre corchetes
Call Enfocar2
End Sub
Private Sub Enfocar2()
X = DataZaga.rsCmdClientes.Fields(\"cod_cliente\")
DataZaga.rsCmdclientes1.MoveFirst
DataZaga.rsCmdclientes1.Find \"cod_cliente=\'\" & X & \"\'\"
If Not (DataZaga.rsCmdclientes1.BOF Or DataZaga.rsCmdclientes1.EOF) Then
End If
\'X = DataZaga.rsCmdClientes.Fields(\"cod_cliente\").Value
X = DataZaga.rsCmdclientes1!cod_cliente
End Sub