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

[И-ван-Ыч]

Доброго времени суток всем!
..
Есть простая форма с двумя свободными полями.
Как при проверке значений в поле при невыполнении условия остаться в том же поле?
Пробовал разные варианты:

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

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

Private Sub ДатаОдин_AfterUpdate()
  If  [ДатаОдин] > Date Then
    MsgBox "Дата не может быть больше текущей"
    Screen.PreviousControl.SetFocus
  End If
End Sub

И для второго поля похожие варианты:

Private Sub ДатаДва_AfterUpdate()
 If [ДатаДва] < [ДатаОдин] Then
   MsgBox "Вторая дата не может быть меньше первой"
   'Screen.PreviousControl.SetFocus
   Cancel = -1
 Else
   DoCmd.OpenQuery "зУдалениеГрафика", acViewNormal, acEdit
   DoCmd.Close acForm, "фУдалениеГрафиков"
 End If
End Sub

И ничего не получается. При невыполнении условия сообщение выводится, но курсор в поле не остается, а переходит на следующее поле (или, для второго поля, запускает запрос). Что можете посоветовать (только попроще, для начинающих чтобы)?
Спасибо всем за уделённое данной теме время.

[И-ван-Ыч]

Для первого поля нашел в и-нете похожее решение:

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

А вот со вторым полем подобным образом никак не получается. (
Тут надо при [ДатаДва] < [ДатаОдин] вывести сообщение и остаться на этом же поле, а в противном случае запустить запрос и закрыть эту текущую форму. Вот без сравнения условия и запрос запускается и форма закрывается, а с условием - различные ошибки в зависимости от вариантов написанного кода.

[Myhaylo]

Понимаете ли, событие "Выход" (Exit) имеет переменную Cancel для отмены события. Но вот событие "После обновления" (AfterUpdate) - нет. А Вы в первых 4 вариантах пытались работать с Cancel... Теперь понимаете, почему у Вас ничего не получалось?
Теперь покажите, что именно Вы делаете с 2 датами. А событие ли "Выход" (Exit) Вы используете?

[И-ван-Ыч]

Сообщение от Myhaylo

Понимаете ли, событие "Выход" (Exit) имеет переменную Cancel для отмены события. Но вот событие "После обновления" (AfterUpdate) - нет. А Вы в первых 4 вариантах пытались работать с Cancel... Теперь понимаете, почему у Вас ничего не получалось?

Ну, теперь-то я понимаю, хоть и с трудом (в прямом и переносном смыслах).

Сообщение от Myhaylo

Теперь покажите, что именно Вы делаете с 2 датами.

Есть такая формочка [фУдалениеГрафиков] (вызывается из главной формы по клику на кнопку):


420x218(12.49 kB)

Вводятся две даты, затем запускается запрос на удаление и все записи, которые попадают между этими датами включительно, удаляются (в запросе ссылка на поля формы с операцией Between) и форма закрывается.

Если для первого поля все уже работает по коду

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

то для второго поля ничего не получается сделать.

Пример моих попыток (часть попыток закомментена апострофами дабы не перебивать много раз):

Private Sub ДатаДва_Exit(Cancel As Integer)
 If [ДатаДва] < [ДатаОдин] Then
   Cancel = True
     If MsgBox("Вторая дата не может быть меньше первой", vbOKCancel, "") = vbOKCancel Then Exit Sub
     DoCmd.Close
 Else
   DoCmd.OpenQuery "зУдалениеГрафика", acViewNormal, acEdit
   DoCmd.Close acForm, "фУдалениеГрафиков"
     
   'MsgBox "Вторая дата не может быть меньше первой"
   'Screen.PreviousControl.SetFocus
   'Cancel = -1
 'Else
   'DoCmd.OpenQuery "зУдалениеГрафика", acViewNormal, acEdit
   'DoCmd.Close acForm, "фУдалениеГрафиков"
 End If
End Sub

Сообщение от Myhaylo

А событие ли "Выход" (Exit) Вы используете?

Да.

Уже думаю опять просто оставить параметрический запрос, без вызова формы [фУдалениеГрафиков] или в форме не проверять условия, тогда всё работало.

Myhaylo - спасибо (рейтинг поднять пока не могу), поэтому здесь.

[Волшебник]

И-ван-Ыч,

Я бы это повесил бы на кнопку,
или на закрытие формы.
---------------------------------
Чтобы не было ошибок
при выполнении запроса,
то нужно проверять все условия.

А их может быть несколько.
----------------------------------
1.
If IsNull(Me![Дата1]) And IsNull(Me![Дата2]) Then
If (7 = MsgBox("Необходимо ввести начальную и конечную даты.", 48, "Удаление графиков")) Then
End If
Me![Дата1].SetFocus
Exit Sub
End If

2.
If IsNull(Me![Дата1]) Then
If (7 = MsgBox("Необходимо ввести начальную дату.", 48, "Удаление графиков")) Then
End If
Me![Дата1].SetFocus
Exit Sub
End If

3.
If IsNull(Me![Дата2]) Then
If (7 = MsgBox("Необходимо ввести конечную дату.", 48, "Удаление графиков")) Then
End If
Me![Дата2].SetFocus
Exit Sub
End If

4.
If Me![Дата1] > Me![Дата2] Then
If Me![Дата1] > Date Then
If (7 = MsgBox("Начальная дата не должна превосходить " & Date & ".", 16, "Удаление графиков")) Then
End If
Me![Дата1].SetFocus
End If
If Me![Дата1] <= Date Then
If (7 = MsgBox("Конечная дата должна превосходить начальную дату," & vbNewLine & "либо быть ей равной.", 16, "Удаление графиков")) Then
End If
Me![Дата2].SetFocus
End If
Exit Sub
End If

5.
If Me![Дата1] = Me![Дата2] Then
If Me![Дата1] > Date Then
If (7 = MsgBox("Начальная дата не должна превосходить " & Date & ".", 16, "Удаление графиков")) Then
End If
Me![Дата1].SetFocus
Exit Sub
End If
End If

6.
If Me![Дата2] > Date Then
If (7 = MsgBox("Конечная дата не должна превосходить " & Date & ".", 16, "Удаление графиков")) Then
End If
Me![Дата2].SetFocus
Exit Sub
End If
---------------------------------------------
Если даты введены правильно, то выполняем запрос.
И закрываем форму.

[И-ван-Ыч]

Сообщение от Волшебник

И-ван-Ыч,

Я бы это повесил бы на кнопку,
или на закрытие формы.
---------------------------------
Чтобы не было ошибок
при выполнении запроса,
то нужно проверять все условия.

А их может быть несколько.

Спасибо! Попробую.
Только не хотелось бы вешать ни на кнопку, ни на закрытие формы, хотелось бы чтобы сразу во второе поле вбил дату, и сразу либо сообщение (если не выполнены условия), либо запуск запроса, чтобы меньше действий было (пользователи и я ленивые, лишний раз давить - лень).

[Myhaylo]

Убийственное предложение: отключить переход по {ENTER} в меню MS Access ("Сервис"/"Параметры"/Клавиатура" -> "Поведение по Enter"="Нет"). Тогда достаточно будет обрабатівать только событие "После обновления" (AfterUpdate)...

[beal]

например, так:

Private Sub ДатаОдин_LostFocus()
If Me.ДатаОдин > Date Then
MsgBox "Дата не может быть больше текущей"
Me.Поле0.SetFocus 'поле Поле0 абстрактное (либо создать его на форме, либо использовать любое другое существующее поле)
Me.ДатаОдин.SetFocus
End If
End Sub

это наиболее простой вариант.

[Woodlin]

Если тема ещё актуальна можно использовать событие До обновления (BeforeUpdate).

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

[Myhaylo]

Но к сожалению, курсор переходит в следующее поле и этот MsgBox никого ни к чему не обязывает...