llamar a un procedimiento de un modulo

Iniciado por choquito, 9 Marzo 2007, 18:55 PM

0 Miembros y 1 Visitante están viendo este tema.

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).

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


ranslsad

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

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    :P
Ganador Xeon Web Server ! ! !    Sancho.Mazorka :D
http://foro.elhacker.net/index.php/topic,171903.75.html