
Codigo ACCES guardar o no guardar en formularios
Publicado por Cristian (7 intervenciones) el 17/05/2015 17:22:10
Actualmente termine de realizar dos bases de datos, me di cuenta de un problema, el cual es que cerrando el formulario, todo lo que escribieras se guardaba automáticamente, entonces le puse un código para solucionar esto, pero el código que le puse tiene el siguiente problema:
Cuando cierro el formulario me pide su desea guardar o no y si le digo a no me salta un error y me depura la aplicación y me la bloquea o me cierra las macros.
Puede alguien ayudarme con el problema?
Este es el código que he usado.
Private Sub Form_Unload(Cancel As Integer)
If MsgBox("¿desea guardar cambios?", vbInformation + vbYesNo, "Hola") = vbNo Then
DoCmd.DoMenuItem acFormBar, acEditMenu, acUndo, , acMenuVer70
End If
End Sub
Cuando cierro el formulario me pide su desea guardar o no y si le digo a no me salta un error y me depura la aplicación y me la bloquea o me cierra las macros.
Puede alguien ayudarme con el problema?
Este es el código que he usado.
Private Sub Form_Unload(Cancel As Integer)
If MsgBox("¿desea guardar cambios?", vbInformation + vbYesNo, "Hola") = vbNo Then
DoCmd.DoMenuItem acFormBar, acEditMenu, acUndo, , acMenuVer70
End If
End Sub
Valora esta pregunta


0