>* Supplied with a form's name property, go thru list of >* open forms to see if that form is open. >* ____________________ >LPARAMETER tcFormName >LOCAL lnFormCount, llOpen, lnFormNo, lnOpenFormNo > >llOpen = .F. >lnFormCount = _SCREEN.FormCount >lnOpenFormNo = 0 >If lnFormCount > 0 > lnFormNo = 1 > Do WHILE lnFormNo <= lnFormCount ; > AND not llOpen > If ALLTRIM( LOWER( _SCREEN.Forms( lnFormNo).Name)) = ALLTRIM( LOWER( tcFormName)) > llOpen = .T. > lnOpenFormNo = lnFormNo > Else > lnFormNo = lnFormNo + 1 > Endif > EndDo >Endif > >Return lnOpenFormNo && index of specified inquiry form