Код MSAccess VBA не работает при втором запуске - PullRequest
1 голос
/ 27 сентября 2011

Приведенный ниже код привязан к кнопке.По какой-то причине приведенный ниже код выполняется правильно с первого раза.Во второй раз, для некоторых пользователей, он не заполняет поля на сайте.В чем может быть проблема?

Me!WebBrowser0.Navigate "http://bk00app0001/PMD Image Upload/"

While Me.WebBrowser0.Busy
    DoEvents
Wend

Me!WebBrowser0.Document.getElementById("MainContent_Year").Value = Forms![Main Menu]![SeasonList].Value
Me!WebBrowser0.Document.getElementById("MainContent_ItemNumber").Value = Me.OpenArgs
Me!WebBrowser0.Document.getElementById("MainContent_btnLock").Click

Я считаю, что мне нужно установить Me! WebBrowser0 = Ничего в событии Close.Тем не менее, Me! WebBrowser0 = Ничто не выдает ошибку.Любые идеи относительно того, как это сделать?

ОБНОВЛЕНИЕ

Во второй раз, когда этот код называется MS Access, выдает следующую ошибку, когда попадает в эту строку:

Me!WebBrowser0.Document.getElementById("MainContent_Year").Value = Forms![Main Menu]![SeasonList].Value

'Object variable or With block variable not set'  

Похоже, это была временная проблема.Мне удалось решить эту проблему, добавив следующий код перед установкой любого из значений на веб-странице:

While Me!WebBrowser0.Document.getElementsByTagName("p").Length < 10
     DoEvents
Wend

Теперь я получаю сообщение об ошибке: «Ошибка времени выполнения« 430 »класс не поддерживает автоматизацию илине поддерживает ожидаемый интерфейс "

Эта ошибка относится к следующей строке кода:

Set Cnxn = New ADODB.Connection

Вот снимок экрана для строки кода выше: http://postimage.org/image/2v7p8diis/

Приведенный выше код вызывается, когда я закрываю форму с кнопкой, которая вызывает код браузера.

1 Ответ

1 голос
/ 30 сентября 2011
While Me!WebBrowser0.Document.getElementsByTagName("p").Length < 10
 DoEvents
Wend

Решена первая проблема.

Вторая проблема возникла из-за ссылки на несуществующую DLL на компьютере пользователя.

Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.
...