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 getIndex(frm As Access.Form, ctlName As String) As Variant
Dim ctl As Access.Control
Dim i As Integer
Dim blnFound As Boolean
For i = 0 To frm.Controls.Count - 1
If frm.Controls(i).Name = ctlName Then
blnFound = True
getIndex = i
Exit For
End If
Next i
If Not blnFound Then MsgBox "Check control name. Control not found"
End Function