Нужна помощь Vba Access

[DenisA]

Всем привет.. Мало знаком с программированием.. Есть весовой терминал Тензо-М 018.. к нему прилагается программа для связи с ПК которая вызвает метод:
EventsHandler (Терминал, Платформа, Событие, Код, Количество, ДатаПокупки, ВремяПокупки) as String
В VBA нужно в глобальном модуле объявить эту самую функцию EventsHandler.. чтобы она вызыывалась программой от весов..
как это сделать..
весы работаеют через COM порт.. Программа от весов OLE-объект..

вот код для создания обекта и получения данных с весов в форму:

Option Compare Database
Public objStaticScale As Object

Private Sub Form_Load()
Set objStaticScale = CreateObject("TB015.TB")
End Sub

Private Sub Form_Unload(Cancel As Integer)
Set objStaticScale = Nothing
End Sub

Function ПолучитьВес() As Single
Dim fStWeight As Single
Dim nStatus As Integer

fStWeight = objStaticScale.GetWeight(1, 1)
ПолучитьВес= fStWeight
Exit Function
End Function

все работает.. обращаться к весам получается ..а обратно нет..

Public Function EventsHandler(Adr, ScNum, Events, Code, Weight, Dat, Tim) As String
EventsHandler = "ADR=" & Adr & "0D" & "Текст на экран весов"
End Function

в 1С все работает.. как сделать в VBA
Помогите пожалуйста люди добрые..

 

[MNN1969]

В ACCESS в запросе ввел выражение по вычислению возраста Возраст: IIf(DateSerial(Year(Now());Month([data]);Day([data]))<=Now();Year(Now())-Year([data]);Year(Now())-Year([data])-1)
И не могу сделать выборку по определёному возрасту.
Подскажите что сделать чтобы делать выборку