(macro) Botón de comando para preguntar al cerrar un formulario en Access

Páginas:

        1   2   3   4  5   6   7

El siguiente botón de comando llamado salypregunta ejecuta este procedimiento de evento cuando se hace click sobre él:
1) Se definen (Dim) las variables.
2) Se inician las variables
3) Se manda un mensaje al usuario (MsgBox) con pregunta
4) Si el usuario quiere guardar el registro entonces se guarda el registro (DoCmd.RunCommand acCmdSaveRecord) y se cierra (DoCmd.Close). Si el usuario no quiere guardar entonces se borra el registro DoCmd.RunCommand acCmdDeleteRecord) y se cierra...
----

Private Sub salypregunta_Click()
  Dim Mensaje, Estilo, Título, Respuesta, lasuma, lamedia
  Mensaje = "¿guardar el registro antes de salir?"
  Estilo = vbInformation + vbYesNo + vbDefaultButton2
  Título = "Guardar cambios..."
  Respuesta = MsgBox(Mensaje, Estilo, Título)
  If Respuesta = vbYes Then
    DoCmd.RunCommand acCmdSaveRecord
    DoCmd.Close
  Else
    DoCmd.SetWarnings False
    DoCmd.RunCommand acCmdSelectRecord
    DoCmd.RunCommand acCmdDeleteRecord
    DoCmd.SetWarnings True
    DoCmd.Close
  End If
End Sub

(macro) Botón de comando para preguntar al cerrar un formulario en Access