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.
Private Sub Form_Open(Cancel As Integer)
Dim lngMargins As Long
lngMargins = 1440 '1 inch
Me.InsideHeight = lngMargins + Me.RecordsetClone.RecordCount * 400
End Sub