MicrosoftAccessを使用したVBA-オブジェクトが存在するかどうかを確認します

Question

MicrosoftAccessでVBAを使用しています。

WebBrowserControl内のアイテムにオブジェクトを設定していますが、存在する場合と存在しない場合があります。

Dim myWebBrowser As Object
Dim myItemInsideWebpage As Object

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

'myDiv'が存在する場合、すばらしいです。そうでない場合は、Accessに通知してもらい、対処できるようにします。

Answer 1

こんな感じになると思います

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

'myDiv'が存在しないときにエラーがスローされた場合に備えて、 'Set'ステートメントの前に 'On Error ResumeNext'を付ける必要がある場合があります。