Guardar cambios en registro
Buenos días.
Tengo una base de datos con un formulario en vista "único formulario" que me presenta los registros uno a uno por pantalla.
¿Cómo puedo hacer para que, si se han cambiado datos en el registro, al cambiar a otro registro, pregunte (un msgbox) si se quieren guardar los cambios?
Gracias.
Tengo una base de datos con un formulario en vista "único formulario" que me presenta los registros uno a uno por pantalla.
¿Cómo puedo hacer para que, si se han cambiado datos en el registro, al cambiar a otro registro, pregunte (un msgbox) si se quieren guardar los cambios?
Gracias.
1 respuesta
Respuesta de juanbauzam
1
Debes programar el evento "Antes de actualizar" del formulario de esta manera:
Option Compare Database
Private Sub Form_BeforeUpdate(Cancel As Integer)
Dim rsp As Integer
rsp = MsgBox("Desea guardar los cambios", vbYesNo)
If rsp = vbNo Then
Me.Undo
End If
End Sub
Option Compare Database
Private Sub Form_BeforeUpdate(Cancel As Integer)
Dim rsp As Integer
rsp = MsgBox("Desea guardar los cambios", vbYesNo)
If rsp = vbNo Then
Me.Undo
End If
End Sub
