WebView2 in Microsoft Access — Without Microsoft’s Limitations

Private WithEvents m_lv As LiteView2.LiteView2Ctrl

Private Sub Form_Load()
    Set m_lv = Me.LiteView2Ctrl1.Object
End Sub

Private Sub m_lv_WebViewReady()
    m_lv.SetLocalContentRoot CurrentProject.Path & "\Access\demos"
    m_lv.Navigate "https://lv2.local/analytics_dashboard.html"
End Sub

Private Sub m_lv_NavigationCompleted(ByVal url As String, ByVal success As Boolean)
    ' Push DAO query result to dashboard — no manual JSON needed
    Dim db As DAO.Database
    Dim rs As DAO.Recordset
    Set db = CurrentDb()
    Set rs = db.OpenRecordset("SELECT Category, SUM(Amount) AS Total " & _
                              "FROM tblSales GROUP BY Category", dbOpenSnapshot)
    rs.MoveLast : rs.MoveFirst          ' materialise all rows
    m_lv.PushRecordset rs, "onSalesData"
    rs.Close
End Sub

Private Sub m_lv_WebMessageReceived(ByVal message As String, ByVal source As String)
    ' JS posted back — never call JsonGetValue / pool methods directly here.
    ' Stash and defer to avoid re-entrancy with the WebView2 message loop.
    m_LastMessage = message
    Application.OnTime Now, "ProcessLatestLV2Message"
End Sub