ник: dimonicss
В Форме ПриемЗаказов есть текстовое поле НомерТелЗак при вводе в которое номера телефона должна идти проверка не находится ли номер в Таблице ЧерныйСписок, если да, то выскакивает сообщение об этом. В Таблице ЧерныйСписок есть поля НомерТел и Примеч. На ввод номера повесил событие
Private Sub НомерТелЗак_AfterUpdate()
Dim db As Database
Dim rs As Recordset
Dim str As String
Set db = CurrentDb
Set rs = db.OpenRecordset("ЧерныйСписок", dbOpenDynaset)
str = ""
If rs.RecordCount <> 0 Then
rs.FindFirst "[НомерТел] = 'Me!НомерТелЗак.Value'"
str = str & "Телефон " & rs![НомерТел] & " находится в черном списке по причине" & rs![Примеч]
Debug.Print str
Else
str = "Таблица ""ЧерныйСписок"" не содержит записей."
Debug.Print str
End If
rs.Close
db.Close
End Sub
Только не работает пока что. Где-0то что-то неправильно написал. Подскажите плиз где ошибка.