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.
Public Function upqryPmntMatchQtr()
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'Comments. '
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Dim cat As New ADOX.Catalog, cmd As ADODB.Command
Dim rst As New ADODB.Recordset
Set cnn = CurrentProject.Connection
Set cat.ActiveConnection = cnn
Set cmd = cat.Procedures("[b]Your Query Name Here[/b]").Command
cmd.Parameters("[b]Parameter Name 1 Here[/b]")=VALUEofParam1
cmd.Parameters("[b]Parameter Name 2 Here[/b]")=VALUEofParam2
rst.Open cmd, cnn, adOpenStatic, adLockReadOnly
'Do whatever else you need to do to your RecordSet here.
rst.Close
Set rst = Nothing
Set cat = Nothing
Set cmd = Nothing
End Function