ник: час
Private Sub Form_Open(Cancel As Integer)
On Error GoTo NotOLE
' создаем объект общего драйвера ККМ
' если объект создать не удается генерируется исключение, по которому завершается работа приложения
Set ECR = CreateObject("AddIn.FprnM45")
Exit Sub
NotOLE: 'Обработка ошибки при создании OLE-объекта
A = MsgBox("Ошибка при создании объекта AddIn.FprnM45", vbCritical + vbOKOnly)
Cancel = 1
End Sub
|
Призапуске сразу пишет ошибка при создании объекта
и правда он ведь не зарегистрирован
хотя ссылку сделать можно и в браузере все классы видно и свойства иметоды , а вот ....
