Registrarse

[choquito]

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

[<--v1c1ous-->]

Haciendo las subfunciones publicas y no privadas (O al menos la que vas a llamar desde fuera de un modulo).

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:

Private Sub cmdaceptar()
Call Form_Paint
End Sub

[ranslsad]

En verdad... el call no hace falta... mira..

En un Modulo:

Código:

public function mensaje()
msgbox "Hola"
end function

En un Form:

Código:

Private sub form_load()
mensaje
end sub

Pruebenlo

Salu2

Ranslsad

[choquito]

muchas gracias a ustedes... me funciona como yo queria... espero no haberles molestado..
saludos manuel venero

[Sancho.Mazorka]

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