Закрыть форму, если поле не заполнено - PullRequest
Новая
       36

Закрыть форму, если поле не заполнено

0 голосов
/ 30 августа 2018

У меня есть форма, которая, если поле пустое, сообщает пользователю, что оно не может быть пустым, и дает пользователю возможность заполнить пустое поле (Да) или закрыть форму (Нет). Проблема в том, что, когда пользователь выбирает «Нет» (или закрывает форму), он выдает ошибку времени выполнения 2585. После исследования у меня проверяется, является ли поле пустым на поле после использования «В фокусе». (После обновления поле не работало, потому что обновления не было, если оно пустое.) Вот мой код: 

If IsNull(Me.txtSSN) Then

  strMsg = "Social Security Number Must Not Be Left Blank!" & vbCrLf
  strMsg = strMsg & "Do you want to add new veteran's record?" & vbCrLf

  If MsgBox(strMsg, vbQuestion + vbYesNo, "Go to Record?") = vbYes Then

    Me.Undo
    Me.Refresh
    Me.txtSSN.SetFocus
    Exit Sub

  Else
    Me.Undo
    Me.Refresh
    Me.txtSSN.SetFocus

    'DoCmd.OpenForm "fmuMainMenu"
    DoCmd.Close acForm, "frmVetNewMainForm"

  End If

Else «Остальная часть кода ...

...