Начали работать со штрихкодами на оборудовании и картриджах, взяли простенький штрихсканер, который эмулирует ввод с клавиатуры и нажатие клавиши "ввод"

Накидал процедуру для быстрого нахождения записи по коду и открытие свойств, но тут все немного упёрлось в InputFrmList - по нажатию ENTER функция не производит ввод, а ждет когда нажмётся "OK". Сканер кнопки мышкой нажимать точно не умеет =) можно ли использовать какую-то другую функцию чтобы после ввода номера и нажатию ENTER она сразу срабатывала? ну или модифицировать InputFronList если это возможно


Dim InputNumber, sNumber, sResult
InputNumber = InputFromList("Введите или считайте код картриджа","Ввод кода","","SELECT CSerialNum FROM tblCartridges",1,450,450)
If Left(InputNumber, 2) = "Ok" Then
sNumber = Mid(InputNumber, 4)
sResult = ExecuteSQL ("SELECT ID FROM tblcartridges WHERE CSerialNum = " & sNumber)
GoToTableAndRecord("qdfCartridges",sResult)
OpenDetailsForm(sResult)
End If

ой, inputbox() оказывается есть и работает как надо.

Сам спросил, сам ответил =) извините тормознул. Проблема решена.