VBA с Microsoft Access - проверьте, существует ли объект - PullRequest
9 голосов
/ 19 октября 2011

Я использую VBA с Microsoft Access.

Я устанавливаю объект для элемента внутри WebBrowserControl, который иногда существует, иногда нет.

Dim myWebBrowser As Object
Dim myItemInsideWebpage As Object

Set myWebBrowser = Me.WebBrowser0.Object
Set myItemInsideWebpage = myWebBrowser.Document.GetElemendById("myDiv")

Если «myDiv» существует, это здорово, если нет, я хочу, чтобы Access дал мне знать, чтобы я мог разобраться с этим.

1 Ответ

15 голосов
/ 19 октября 2011

Я верю, что это будет что-то вроде

If myItemInsideWebpage Is Nothing Then
' doesn't exist
Else
' does exist
End If

Возможно, вам придется ввести предписание «Set» перед «On Resume Next», если выдается ошибка, когда myDiv не существует.

...