Cerrar un formulario
Buenas tengo problemas con un formulario necesito que al cerrar el formulario me mande un mensaje de verificación donde diga que si desea guardar los cambios si, no y cancelar. Mi condigo es este:
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
respuesta = MsgBox("¿Desea guardar cambios?", vbYesNoCancel)
Select Case respuesta
Case vbYes
Data_Tarjeta.UpdateRecord
Data_Tarjeta.Refresh
Unload Me
Case vbNo
Unload Me
Case vbCancel
Cancel = 1 'Esto cancela el fin del programa
End Select
End Sub
Cuando le doy si guardar sin problema, el caso es que cuando le doy no igual me guardar entonces no estoy haciendo nada si igual guarda, hay alguna manera de hacerlo gracias de antemano...
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
respuesta = MsgBox("¿Desea guardar cambios?", vbYesNoCancel)
Select Case respuesta
Case vbYes
Data_Tarjeta.UpdateRecord
Data_Tarjeta.Refresh
Unload Me
Case vbNo
Unload Me
Case vbCancel
Cancel = 1 'Esto cancela el fin del programa
End Select
End Sub
Cuando le doy si guardar sin problema, el caso es que cuando le doy no igual me guardar entonces no estoy haciendo nada si igual guarda, hay alguna manera de hacerlo gracias de antemano...
