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.
Dim varCurrentID As Long
Private Sub Form_Current()
varCurrentID = Me.ID
Me.Recalc
End Sub
Public Function CurrentID() As Variant
CurrentID = (varCurrentID)
End Function
Private Sub Form_Load()
varCurrentID = Me.ID
End Sub