ник: Lukas
Надо указать с какой DB работать. (CurrentDb or CodeDb)
Пример: получить значение ItemValue по значению IDItem таблицы t1 библиотеки.
Функция в библиотечной БД:
Public Function GetValueByID(ID As Long)
With CodeDb.OpenRecordset("SELECT ItemValue FROM t1 WHERE IDItem=" & ID, dbOpenSnapshot)
If Not .EOF Then GetValueByID = .Fields(0)
.Close
End With
End Function
|