|
текст макроса
Private Sub CommandButton1_Click()
Dim ax As AxaptaCOMConnector.Axapta2
On Error GoTo er1
Set ax = New AxaptaCOMConnector.Axapta2
ax.Logon2 "логин", "пароль", "", "", "", "", "Путь к файлу клиенту, который находится на моем компьютере"
ax.Logoff
Set ax = Nothing
On Error GoTo 0
Exit Sub
er1:
MsgBox ("Ошибка № " & Err.Number & " " & Err.Description)
ax.Logoff
Set ax = Nothing
Exit Sub
On Error Resume Next
Resume
End Sub
текст первого сообщения
Ошибка №-2147467259 Не хватает лицензионных прав: Запустить Microsoft Axapta Невозможно,
поскольку к системе подключено больше пользователей, чем дозволено лицензионными правами. Перед поключениемперезапустите Microsoft Axapta Business Connector.
Вторая ошибка (повторяется после первой ошибки)
Ошибка № -2147467259 Ошибка SQL: Операцией SQL сгенерировано сообщение о следующих ошибках:
[Microsoft][Диспетчер драйверовODBC] связь используется. Connect information Was: Usering = [sa], Database = [axdb], Server = [aos2],dsn =[ ], Other = [ ]
Коментарий: пользователь и каталог во второй ошибке, почему то указывается неверно.
|