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 frm as form
dim stropen as string
for each frm in forms
if frm.isopen then
strOpen=strOpen & ", " &frm.name
endif
next frm
if nz(strOpen,"")<>"" then
msgbox "These forms open: " & stropen
endif