
cerrar formularios
Publicado por Jorge leon (19 intervenciones) el 25/10/2014 21:25:50
Hola amigos de LWP… tengo un problema con cerrar formularios….. espero me puedan ayudar de favor….
Mi problema es que tengo una tabla con información y nombres de una asociación a la que le genere unos formularios para agilizar su uso, y funcionan bien el problema es cerrar el formulario principal, tengo que darles varios clik al botón de cerrar formulario o al botón que le incluí de cerrar……
El formulario principal consta de varios botones que al darles clik realizan diferentes acciones uno de los botones que mas se ejecutan es el de actualización de la información de los asociados el cual tiene un botón de terminar y funciona bien…. Se le da clik en terminar y termina la accion y muestra el formulario principal, que es donde al dar clik en el botón de cerrar o en el botón X de formulario no cierra sino hasta darle varios cliks……
El código que utilizo para el botón de cerrar las acciones de los botones
Private Sub cmdsalirVol_Click()
Dim x As Variant
Unload Me
x = MsgBox("¿Esta seguro de salir?", vbCritical + vbYesNo)
If x = vbYes Then Unload Me
If x = vbNo Then UserForm4.Show
UserForm2.Show
End Sub
y el código que uso para terminar la aplicación o formulario principal
Private Sub CommandButton5_Click()
Unload UserForm2
End Sub
Muchas gracias de antemano….. su amigo Jorge
Mi problema es que tengo una tabla con información y nombres de una asociación a la que le genere unos formularios para agilizar su uso, y funcionan bien el problema es cerrar el formulario principal, tengo que darles varios clik al botón de cerrar formulario o al botón que le incluí de cerrar……
El formulario principal consta de varios botones que al darles clik realizan diferentes acciones uno de los botones que mas se ejecutan es el de actualización de la información de los asociados el cual tiene un botón de terminar y funciona bien…. Se le da clik en terminar y termina la accion y muestra el formulario principal, que es donde al dar clik en el botón de cerrar o en el botón X de formulario no cierra sino hasta darle varios cliks……
El código que utilizo para el botón de cerrar las acciones de los botones
Private Sub cmdsalirVol_Click()
Dim x As Variant
Unload Me
x = MsgBox("¿Esta seguro de salir?", vbCritical + vbYesNo)
If x = vbYes Then Unload Me
If x = vbNo Then UserForm4.Show
UserForm2.Show
End Sub
y el código que uso para terminar la aplicación o formulario principal
Private Sub CommandButton5_Click()
Unload UserForm2
End Sub
Muchas gracias de antemano….. su amigo Jorge
Valora esta pregunta


0