The person who sent me the database from the deleted article at "You Know Who's" website said they would prefer to remain anonymous when I asked if I could thank them publicly (in line with my standard practice). That was his/her personal preference which I respected.
Okay, but what does that have anything to do with the OP's interesting topic about web browser in form without control being closed off? I was about to comment in that thread because I recently built a document management app that opens a web browser, which I would like to contribute to the Code Repo.
I didn't say there was anything inappropriate in that thread. On the contrary, I said I didn't find anything inappropriate. Why is it that no one is providing straight up honest answers about what's really going on here with "You Know Who" just providing useful code and then the thread gets closed? Is there a problem with "You Know Who" and AWF? This thought police thing is really twisting AWF out of control. I decided to ignore all non-tech forums and now this crap contaminates the tech areas.
Your comment implied that the anonymous contribution was inappropriate.
You can find the legacy web browser controls even in the newest versions of Access. However, web technologies have moved on and IE couldn't keep up.
So using shell commands to externally open user's default web browsers is more common than using web browser controls?
No, I meant actually developing for the web browser control making the contents of the control interact with the application.
Me.WebBrowser1.ExecuteJavascript _
"{var nativeInputValueSetter = Object.getOwnPropertyDescriptor(window.HTMLInputElement.prototype, ""value"").set; " & _
"const $formObject = document.forms[0]; " & _
"const $usernameField = $formObject.elements[0]; " & _
"nativeInputValueSetter.call($usernameField, '<TheLoginName>'); " & _
"let eventUN = new Event('input', { bubbles: true}); " & _
"eventUN.simulated = true; " & _
"$usernameField.dispatchEvent(eventUN); " & _
"const $passwordField = $formObject.elements[1]; " & _
"nativeInputValueSetter.call($passwordField, '<TheLoginPassword>'); " & _
"let eventPW = new Event('input', { bubbles: true}); " & _
"eventPW.simulated = true; " & _
"$passwordField.dispatchEvent(eventPW); " & _
"const $loginButton = $formObject.elements[2]; " & _
"$loginButton.click();}"Option Explicit
Option Compare Database
#If VBA7 Then ' Access 2010 or later
Public Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal Milliseconds As LongPtr)
#Else ' Access 2007 or earlier
Public Declare Sub Sleep Lib "kernel32" (ByVal Milliseconds As Long)
#End If
Public Function QBOTest()
' Our .NET interface
Dim qbo As QBOInterface.QBOInterface
Set qbo = New QBOInterface.QBOInterface
Dim authCode As String, realmID As String
' Authorization Code, one-time code from QBO that authorizes our application to read data from customer's QBO account
authCode = DLookup("AuthCode", "QBOAuthentication") ' will need to be entered by the user
' Unique identifier for the client's company in QBO
realmID = DLookup("RealmID", "QBOAuthentication")
' Init: clientID, clientSecret, redirectURL, environment, authCode, realmID
' These must match exactly what the web application uses
' ClientID and ClientSecret come from QBO Developer Account portal
qbo.Init "Q0uEmaJmYxjLE73PffMaG0EhIhG7**************", "WyBAFRAoLjGwXF27zjl2OUnBjwA**************", "https://accessqbotest.azurewebsites.net/callback", "sandbox", authCode, realmID
Dim aToken As String, rToken As String
' Access Token, used to communicate with the QBO API, expires within 60 minutes
aToken = "" ' will come from the database, otherwise will be blank
' Refresh Token, used to request Access Tokens, expires after 100 days
rToken = DLookup("RefreshToken", "QBOAuthentication") ' will come from the database, if QBO connectivity has occurred before, otherwise this will be blank
' Gets our Access Token, if we don't already have one to use
qbo.GetToken aToken, rToken
Sleep 2000 ' Short delay is required for the API to be called and response received/processed
' MsgBox "Access Token: " & qbo.AccessToken
' MsgBox "Refresh Token: " & qbo.refreshToken
Dim companyInfo As String
companyInfo = qbo.GetCompanyInfo
' MsgBox "Company Info (JSON): " & companyInfo
Dim Json As Object
Set Json = JsonConverter.ParseJson(companyInfo)
Dim sql As String
Dim dbs As DAO.Database
Set dbs = CurrentDb()
RunSQL "DELETE FROM QBOCompany", dbs
RunSQL "INSERT INTO QBOCompany (ID, CompanyName, CompanyAddr_City, CompanyAddr_Country, CompanyAddr_Line1, CompanyAddr_PostalCode, PrimaryPhone, EmailAddress) VALUES ('" & Json("Id") & "', '" & Json("CompanyName") & "', '" & Json("CompanyAddr")("City") & "', '" & Json("CompanyAddr")("Country") & "', '" & Json("CompanyAddr")("Line1") & "', '" & Json("CompanyAddr")("PostalCode") & "', '" & Json("PrimaryPhone")("FreeFormNumber") & "', '" & Json("Email")("Address") & "')", dbs
dbs.Close
Set dbs = Nothing
MsgBox "Sync complete!"
End Function
Private Sub RunSQL(sql As String, dbs As DAO.Database)
dbs.Execute sql, dbFailOnError
End SubPrivate Sub WaitUntilBrowserReady()
While Me.EdgeBrowser.ReadyState <> acComplete
DoEvents
Wend
End Sub
Private Sub Form_Load()
Call WaitUntilBrowserReady
Call PopulateBrowserDynamic
End Sub
' Function: Populates the Browser with dynamic HTML using Javascript (no local file or web address)
' Test Result: This successfully renders the html in the Browser Control, but RetrieveJavascript FAILS every time.
Private Sub PopulateBrowserDynamic()
Dim html As String, js As String
Dim title As String
html = "<html><head><title>My Title Dynamic</title></head><body><h1>Hello World Dynamic</h1></body></html>"
js = "document.open(); document.write('" & html & "'); document.close();"
Call Me.EdgeBrowser.ExecuteJavascript(js)
Call WaitUntilBrowserReady
' Attempt to retrieve title of web page
' The below times out and title is set to error message of
' "RetrieveJavascriptValue timed out. Please verify the JavaScript expression supplied is valid."
title = Me.EdgeBrowser.RetrieveJavascriptValue("document.title")
MsgBox title
End SubYou should use a watch to check when the state is changing, the state can change for many reasons, so you should verify that it's not stuck trying to do something it can't do at that point. I can't replicate the issue as the Edge browser control is not available in my Access installation, but I've seen the problem multiple times in the legacy web browser control. You could also try setting the HTML content in other ways, like navigating to
data/text; <html>...</html>, or setting the document when there is actually a document for about:blank, then modifying the document.
I cannot test it myself, so I cannot say for sure what you are encountering, but it seems like there is something off with how you are approaching it. Instead of waiting for the page to be fully ready, I would recommend testing for the existence of an element that is expected to render. In your case, testing for the presence of document or a part of it might be a better approach. Just because you can see its contents does not necessarily mean the program has reached a stage where it can interact with or manipulate them. Use your watch to monitor that too, besides the state. The state can change many times throughout dynamic content creation. You could add a listener too and have that listener react to the precise moment where you can manipulate the contents.
