Private Sub Поле1_Exit(Cancel As Integer)
' Вывод сообщения, если Поле1  пусто.
 
    Dim strMsg As String, strTitle As String
    Dim intStyle As Integer
    
    If IsNull(Me!Поле1) Or Me!Поле1 = "" Then
        strMsg = "Необходимо ввести значение 'Поле1'."
        strTitle = "Не указано Поле1"
        intStyle = vbOKOnly
        MsgBox strMsg, intStyle, strTitle
        Cancel = True
    End If
 
End Sub