hola a todos , mi pregunta es:
como puedo llamar a un procedimiento que esta en un modulo
desde un cmdaceptar que esta en un frm1
esto es lo que tengo en mi modulo
Private Sub Form_Paint()
FORM_ACTIVATE
End Sub
Private Sub FORM_ACTIVATE()
Set DataGrid1.DataSource = Nothing \'esto lo desconecta del origen de datos
With DataZaga.rsCmdclientes1 \'Acá había un error en el nombre de recordset
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 ENFOCAR
End Sub
Haciendo las subfunciones publicas y no privadas (O al menos la que vas a llamar desde fuera de un modulo).
Citar
Public Sub Form_Paint()
FORM_ACTIVATE
End Sub
Public Sub FORM_ACTIVATE()
Set DataGrid1.DataSource = Nothing \'esto lo desconecta del origen de datos
With DataZaga.rsCmdclientes1 \'Acá había un error en el nombre de recordset
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 ENFOCAR
End Sub
Y llamandola:
Citar
Private Sub cmdaceptar()
Call Form_Paint
End Sub
En verdad... el call no hace falta... mira..
En un Modulo:
public function mensaje()
msgbox "Hola"
end function
En un Form:
Private sub form_load()
mensaje
end sub
Pruebenlo ;)
Salu2
Ranslsad
muchas gracias a ustedes... me funciona como yo queria... espero no haberles molestado..
saludos manuel venero
Man es como la cuarta vez que preguntas como llamar una funcion/procedimiento que esta en un modulo! No se si no entendiste como hacerlo o sos molesto...!
Mira si keres llamar una funcion/procedimiento pone el nombre de dicha funcion/procedimiento y con sus parametros si es necesario.
Sancho.Mazorka :P