Programar 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 exechapur
-1
El .update lo utilizo también en el botón de guardar, pero lo borre a ver y nada no funciona sigue guardando
Fíjate que debes tener algún otro update dando vueltas,
fíjate que tal cual esta, no te esta grabando, checkeate
El formulario entero...
Un abrazo!
fíjate que tal cual esta, no te esta grabando, checkeate
El formulario entero...
Un abrazo!
Ya revise es más hice otro formulario nuevo y también me guardar al cerrar. Hay alguna forma de programar el data control o el formulario para que no guarde
Fíjate si esto te ayuda:
. Recordset. CancelUpdate
Un abrazo!
. Recordset. CancelUpdate
Un abrazo!
