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 IsFormActive(strFormName as string) as boolean
Dim frm as form
For Each frm in Forms
if Ucase$(frm.Name) = Ucase$(strFormName) then
IsFormActive = true
exit function
end if
Next
IsFormActive = false
End Function