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

Тема в разделе "Visual Basic", создана пользователем DenisA, 15 авг 2011.

Статус темы:
Закрыта.
  1. DenisA

    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
    Помогите пожалуйста люди добрые..
     
  2. MNN1969

    MNN1969 Гость

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

Поделиться этой страницей