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.
Function ProcessCommandButton()
Dim ctl as integer
Dim rst as New ADODB.Recordset
ctl = Mid(Me.ActiveControl.ControlName,4) 'Determine which record to read based on which command button was selected
rst.Open "YourQuery", CurrentProject.Connection, adOpenDynamic, adLockReadOnly
rst.Move ctl 'Move to record
strProductName = rst.Fields("ProductName")
End Function