Test Foro de elhacker.net SMF 2.1

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.