ник: джониби
Попробовал только что вот так:
Dim FieldKey As Long
Dim Basa As DAO.Database
Dim Tab1 As DAO.Recordset
Set Basa = CurrentDb
Set Tab1 = Basa.OpenRecordset("Клавиатура", dbOpenDynaset)
FeildKey = DLookup("[Счетчик]", "СотрудникиКлавиатура", "[Ответственный] ='" & Me.ПолеСоСписком129.Value & "'")
Tab1.FindFirst "[Счетчик]='" & FieldKey & "'"
|
Такая же ошибка,несоответствие типов данных
При прямом обращении
Me.Поле89.Value = DLookup("[Мышьмодель]", "Мышь", "[Счетчик] ='" & FieldKey & "'")
|
Все работает ....
Всё заработало,убрал лишние знаки,работает теперь так :
Me.Поле89.Value = DLookup("[Мышьмодель]", "Мышь", "[Счетчик] =" & FieldKey )