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 Sub
