Open Internet Explorer from MS-Access

Database Journal shows how to open a web page from inside MSAccess.

Public Function UpdateOrderInfoWebSite() As Long
  On Error Resume Next
  Dim objDoc As SHDocVw.InternetExplorer
  Dim sURL As String
  Dim lOrderID As Long
  lOrderID = Forms!frmOrder!txtOrderID
  Const cURL As String ="http://localhost/Orders/Process.asp"
  sURL = cURL & "?ID=" & lOrderID
  sURL = sURL & "&SDate =" & Forms!frmOrder!txtStatusDate
  sURL = sURL & "&SID =" & Forms!frmOrder!cboStatusID
  sURL = sURL & "&PONum =" & Forms!frmOrder!txtPONumber
  sURL = sURL & "&CID =" & Forms!frmOrder!cboCustomerID
  Set objDoc = New SHDocVw.InternetExplorer objDoc.Navigate sURL, , , True

  ' Pause execution while URL is hit.
  Dim i As Integer, j As Integer
  For i = 0 To 1000
    j = DCount("*", "MsysObjects")
  Next

  UpdateOrderInfoWebSite = Err.Number

End Function

Notice that objDoc was declared as type SHDocVw.InternetExplorer. This declaration will fail to compile unless you set a reference to the Microsoft Internet Controls. Set a reference by opening any module, then select References from the Tools menu. Scroll down the list until you find the Internet Controls reference and select it.