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