Display html in webbrowser control: Run-time error 91, object variable or With block variable not se

**ino_mart** · 05-14-2021, 04:33 AM

All

I have a form on which I placed a webbrowser control. On the "On current"-event procedure below runs, but it errors on link "oHTMLDoc.open" with Run-time error 91, object variable or With block variable not set

I did enable reference Microsoft HTML Object Library

Code:

Private Sub ToonFotos()Dim strSQL As String
Dim rs As Recordset
Dim strOutput As String
Dim oWebBrowser As Object
Dim oWebBrowserObject As Object
Dim oHTMLDoc As MSHTML.HTMLDocument


strSQL = "select [pad] from qryGerechtFoto" ' where [gerecht_fk]=" & Me.Teller
Set rs = CurrentDb.OpenRecordset(strSQL)
strOutput = "<html>"
If Not rs.BOF And Not rs.EOF Then
    strOutput = strOutput & "<table><tr>"
    While Not rs.BOF And Not rs.EOF
        strOutput = strOutput & "<td>" & rs!pad & "</td>"
        rs.MoveNext
    Wend
End If


Set oWebBrowser = Me.WebBrowser
Set oWebBrowserObject = oWebBrowser.Object
Set oHTMLDoc = oWebBrowserObject.Document
oHTMLDoc.Open "text/html", "replace"
oHTMLDoc.Document.write = strOutput
oHTMLDoc.Close
End Sub

Someone an idea how to solve this?

**Welshgasman** · 05-14-2021, 05:09 AM

Check you actually have something in those objects?

**ino_mart** · 05-14-2021, 08:39 AM

After some more investigation, it seems I must initialize the component which can e.g. be done by setting the controlsource to "about:blank". So I solved it by using next code

Code:

Me.WebBrowser.ControlSource = "about:blank"
With Me.WebBrowser.Object.Document
    .Open
    .write strOutput
    .Close
End With

Display html in webbrowser control: Run-time error 91, object variable or With block variable not se

Thread Tools

Display html in webbrowser control: Run-time error 91, object variable or With block variable not se

Similar Threads

help with Runtime error 91 "Object variable or With block variable not set"

Help with run-time error '91': Objected variable or With block variable not set

Error 91 Object Variable or Block Variable Not Set

Intermittent "Run Time Error 91: Object Variable with Block Variable Not Set"

getting Object variable or With block variable not set on ODBC code in Access

Posting Permissions