2011-10-19 6 views
8

Sto utilizzando VBA con Microsoft Access.VBA Con Microsoft Access - Verifica se l'oggetto esiste

Sto impostando un oggetto su un oggetto all'interno di un WebBrowserControl che a volte esiste, a volte no.

Dim myWebBrowser As Object 
Dim myItemInsideWebpage As Object 

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

Se esiste 'myDiv', impressionante, se non voglio Accesso per farmi sapere in modo da poter trattare con esso.

risposta

14

credo che sarebbe stato qualcosa di simile

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

Potrebbe essere necessario far precedere la sua dichiarazione 'Set' con 'On Error Resume Next' nel caso in cui viene generato un errore quando 'myDiv' non esiste.

+0

Perfetto, grazie. – JMK