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 Sub setOrder()
Dim ctl As Access.Control
Dim intCnt As Integer
For Each ctl In Me.Controls
intCnt = intCnt + 1
If ctl.controlType = acTextBox Then
ctl.ColumnOrder = intCnt
End If
Next ctl
End Sub
Private Sub Form_Load()
setOrder
End Sub
Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
setOrder
End Sub