Larry,
For my single instance forms, the menu item has a Skip Form clause of FormRunning( "frmTheFormName" )
the FormRunning udf just loops through the _screen.Forms collection and returns .t. if it finds it.
lparameter pcFormName
local i, llRetVal
llRetVal = .f.
pcFormName = upper( pcFormName )
for i = 1 to _screen.FormCount
if ( upper( _screen.Forms[i].Name ) == pcFormName )
llRetVal = .t.
exit
endif
endfor
return llRetVal
>Hi,
>
> This is my last question for this topic.
>
> Could you please tell me the exact code for:
>
>
> 1. I check for a form if they already active.
> 2. if the form is not active I use do form "myform"
> 3. if its already active I want to activate it instead of do form "myform"
>
>Thanks