2011-10-19 6 views
8

Tôi đang sử dụng VBA với Microsoft Access.VBA Với Microsoft Access - Kiểm tra xem đối tượng có tồn tại không

Tôi đang đặt đối tượng cho một mục bên trong WebBrowserControl đôi khi tồn tại, đôi khi không.

Dim myWebBrowser As Object 
Dim myItemInsideWebpage As Object 

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

Nếu 'myDiv' tồn tại, tuyệt vời, nếu không tôi muốn truy cập cho tôi biết để tôi có thể giải quyết.

Trả lời

14

tôi tin rằng nó sẽ là một cái gì đó giống như

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

Bạn có thể cần phải mở đầu 'Set' tuyên bố của bạn với 'On Error Resume Next' trong trường hợp một lỗi được ném khi 'myDiv' không tồn tại.

+0

Lời cảm ơn hoàn hảo. – JMK