Как остаться в том же поле

[Agapov_stas]

К чему NZ, если ничего не прописываете вместо пустого значения?
И ставьте Cancel=True до вывода сообщения.
Попробуйте так:

Private Sub ДатаОдин_BeforeUpdate(Cancel As Integer)
  If Nz(Me.[ДатаОдин],Date) > Date) Then
    Cancel = True
    MsgBox "Дата не может быть больше текущей"    
  End If
End Sub

[И-ван-Ыч]

Woodlin, Agapov_stas
Проблему с первым полем решил ещё во втором сообщении. Но всё-равно спасибо.
На данный момент решил проблему с обоими полями так:

Option Compare Database
Option Explicit

Private Sub ДатаДва_Exit(Cancel As Integer)

   If IsNull(ДатаДва) Then
       Cancel = -1
          If IsNull(ДатаДва) Then Me.ДатаДва.SetFocus
       MsgBox "Дата не может быть нулевой"
       
       Else
         If [ДатаДва] < [ДатаОдин] Then
            Cancel = True
              If [ДатаДва] < [ДатаОдин] Then Me.ДатаДва.SetFocus
            MsgBox "Дата не может быть меньше первой"
       
         Else
           DoCmd.OpenQuery "зУдалениеГрафика", acViewNormal, acEdit
                   
       End If
  End If
End Sub


Private Sub ДатаОдин_Exit(Cancel As Integer)
  If IsNull(ДатаОдин) Then
       Cancel = -1
          If IsNull(ДатаОдин) Then Me.ДатаОдин.SetFocus
       MsgBox "Дата не может быть нулевой"
         
  Else
       If [ДатаОдин] > Date Then
          Cancel = True
         If MsgBox("Дата не может быть больше текущей", vbOKCancel, "") = vbOKCancel Then Exit Sub
       DoCmd.Close
   
       End If
  End If
  
End Sub

Работает, курсор остаётся на полях, как и хотелось изначально.

Правда, если вообще ничего не вводить в форму и попытаться её закрыть или вызвать конструктор, выдаётся сообщение "Дата не может быть нулевой".

Всем спасибо за помощь в этой теме!

Попробую дальше как-нибудь решить проблему, если ничего не вводить, чтобы не выскакивало сообщение.

[Myhaylo]

Тогда попробуйте добавить внешнее условие:

If .Dirty Then
  If IsNull(ДатаОдин) Then
    ...
  Else
    ...
  End If
End If