Problema para cerrar formulario
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...
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...
1 Respuesta
Respuesta de Roberto Alvarado