ник: dimonicss
Спасибо за ответ, только что-то не помогло. Ничего не происходит если пытаюсь ввести номер телефона, занесенный в Таблицу ЧерныйСписок.
Кстати когда попробовал повесить событие на BeforeUpdate стала вылетать ошибка. Похоже это связано с тем, что в поле НомерТелЗак запрещено пустое значение (обязательное поле).
С синтаксисом понял для текстового значения.
Если пользоваться DLookUp такой код должен быть?
Private Sub НомерТелЗак_AfterUpdate()
Dim db As Database
Dim rs As Recordset
Dim str As String
Set db = CurrentDb
Set rs = db.OpenRecordset("ЧерныйСписок", dbOpenDynaset)
str = ""
' В следующей строке тогда выдает ошибку Type Mismatch
If DLookup("[НомерТел]", rs, "[НомерТел] = '" & Me!НомерТелЗак.Value & "'") Is Null Then
' Конец ошибки
Exit Sub
Else
str = str & "Телефон " & rs![НомерТел] & " находится в черном списке по причине" & rs![Примеч]
Debug.Print str
End If
rs.Close
db.Close
End Sub
Мне бы сейчас хоть в каком-нибудь виде чтобы проверка номера заработала, а то с утра каких только вариантов не перепробовал - все не идет. Опыта своего не хватает. А примеров готовых с подобным кодом посмотреть не нашел.