2011-10-19 18 views
8

Estoy usando VBA con Microsoft Access.VBA con Microsoft Access - Compruebe si existe el objeto

Estoy estableciendo un objeto a un elemento dentro de un WebBrowserControl que a veces existe, otras veces no.

Dim myWebBrowser As Object 
Dim myItemInsideWebpage As Object 

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

Si existe 'myDiv', impresionante, si no quiero Acceso a déjame saber para que pueda tratar con él.

Respuesta

14

creo que sería algo así como

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

Es posible que necesite escribir el prólogo de su estado de cuenta 'Set' con 'On Error Resume Next' en caso de que un error se produce cuando no existe 'myDiv'.

+0

Perfecto gracias. – JMK