ник: NewMaN
Здравствуйте.
Вообщем грубо говоря есть два текстовых поля в форме, в которые вводятся числовые значения.
Необходимо проверять не превышает ли значение "hstg5" значение "lstg5". Если первышает - выдать сообщение, стереть введенные данные, и установить фокус на этом же поле.
Private Sub hstg5_AfterUpdate()
Dim lstg5, hstg5 As Integer
lstg5 = Me![lstg5]
hstg5 = Me![hstg5]
If lstg5 > hstg5 Then
MsgBox ("Введите корректное значение")
Me![hstg5].Value = ""
hstg5.SetFocus
End If
End Sub
|
Вроде всё должно работать, но нет!!! Фокус не возвращается на это же поле, а перекидывается на любое соседнее. Однако если же прописать SetFocus на любое другое поле, то он соверешнно нормально устанавливается там. В чем дело, так и не понял!!!