ник: dimonicss
Ну в общем правильно пишешь. Читаю конечно инструкции. А иногда инструкции путано написаны и пытаюсь пробовать как получится. Вот хелп этот гребаный то работает, а по некоторым функциям вообще ничего не дает. В Excel вроде прикольный хелп - там и описание инструкции к команде и примеры даны. А по Accees нормальной справочной системы не имею, точнее недостаточно ее.
Ну и когда долго что-то не получается - бывает и перемыкает. Уже голова отказывается соображать - пробовать начинаю, иногда не осмыслив того что пробую.
Вот сейчас так и не пойму почему не заработал код
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
Интерес к нему остался, потому как кое-что из того что там было собираюсь использовать в другом месте программы. И понять хотелось бы где что неправильно.