(macro) Botón que verifica cumplimentación de datos en un formulario en Access

Páginas:

        1   2   3   4  5   6   7

El siguiente botón de comando llamado guarda ejecuta este procedimiento de evento cuando se hace click sobre él:
1) Se comprueba si se ha introducido fecha de alta y salario.
2) Si no se han introducido, se manda un mensaje al usuario (MsgBox) con pregunta
3) Si el usuario quiere salir el registro se borra y se cierra. Si el usuario no quiere salir entonces se vuelve al formulario...
----

Private Sub guarda_Click()
  On Error GoTo Err_guarda_Click
  DoCmd.SetWarnings False
  If [Fecha_alta] = #1/1/1900# Or [Salario] = 0 Then
    Dim Mensaje, Estilo, Título, Respuesta, lasuma, lamedia
    Mensaje = "Se necesita fecha de alta y Salario. ¿desea salir?"
    Estilo = vbInformation + vbYesNo + vbDefaultButton2
    Título = "Error; faltan datos..."
    Respuesta = MsgBox(Mensaje, Estilo, Título)
    If Respuesta = vbYes Then
      DoCmd.RunCommand acCmdSelectRecord
      DoCmd.RunCommand acCmdDeleteRecord
      DoCmd.Close
    End If
    Else
      DoCmd.RunCommand acCmdSaveRecord
      DoCmd.Close
    End If
Exit_guarda_Click:
  DoCmd.SetWarnings True
  Exit Sub
Err_guarda_Click:
  MsgBox Err.Description
  Resume Exit_guarda_Click
End Sub

(macro) Botón que verifica cumplimentación de datos en un formulario en Access