Follow along with the video below to see how to install our site as a web app on your home screen.
Note: This feature may not be available in some browsers.
Private Sub MakePassThru()
Dim MyQuery As QueryDef
Dim ConnectStr As String
Dim SqlCmd As String
Dim SSNParm As String
On Error Resume Next
DoCmd.DeleteObject acQuery, "YourQueryNameHere"
SSNParm = Me!YourFormFieldWithTheSSN
'
On Error GoTo MakePassThru_Err
'
Set MyQuery = CurrentDb.CreateQueryDef("YourQueryNameHere")
ConnectStr = "ODBC;DSN=YourDSN;UID=YourUserID;PWD='YourPassword';LANGUAGE=us_english;DATABASE=YourDatabase"
SqlCmd = "EXECUTE YourProcedureName '" & SSNParm & "'"
With MyQuery
.Connect = ConnectStr
.SQL = SqlCmd
.ODBCTimeout = 0
.ReturnsRecords = True
End With
MyQuery.Close
'
MakePassThru_Exit:
Exit Sub
MakePassThru_Err:
MsgBox Err.Description
Resume MakePassThru_Exit