2011-10-19 11 views
8

Microsoft AccessでVBAを使用しています。Microsoft AccessでのVBA - オブジェクトが存在するかどうかの確認

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

Dim myWebBrowser As Object 
Dim myItemInsideWebpage As Object 

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

「myDiv」が存在する場合は、素晴らしいと思いますが、そうでない場合は、私がそれに対処することができるように私に知らせて欲しいです。

答えて

14

私はそれはあなたが「myDiv」が存在しない場合にエラーがスローされた場合に「On Error Resume Nextを」であなたの「設定して」ステートメントを前置きする必要があるかもしれません

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

ようなものになるだろうと信じています。

+0

完全に感謝します。 – JMK

関連する問題