Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
How Valid a Open Form
Message
General information
Forum:
Visual FoxPro
Category:
Visual FoxExpress
Environment versions
Visual FoxPro:
VFP 8 SP1
OS:
Windows XP SP2
Network:
Windows 2003 Server
Database:
MS SQL Server
Miscellaneous
Thread ID:
01066020
Message ID:
01066035
Views:
21
Yuri,
This must be:
lcWName2Search="CAPTURA_DE_PEDIDOS21"
llfound=.f.
FOR EACH oFormsAbiertos IN APPLICATION.FORMS
   llfound = llfound  OR (lcWName2Search $ UPPER(oFormsAbiertos.Name))
endfor

if llfound
     *continue
else
 *messagebox, not found
endif
or
lcWName2Search="CAPTURA_DE_PEDIDOS21"
llfound=.f.
FOR EACH oFormsAbiertos IN APPLICATION.FORMS
   IF (lcWName2Search $ UPPER(oFormsAbiertos.Name))
      llfound = .t.
      EXIT
   ENDIF
endfor

if llfound
     *continue
else
 *messagebox, not found
endif
>Probably you need this:
>
>
>lcWName2Search="CAPTURA_DE_PEDIDOS21"
>llfound=.f.
>FOR EACH oFormsAbiertos IN APPLICATION.FORMS
>   llfound = lcWName2Search $ UPPER(oFormsAbiertos.Name)
>endfor
>
>if llfound
>     *continue
>else
> *messagebox, not found
>endif
>
>
>
>
>>Hi!!! I'm development a application in FoxExpress, but i have one problem. I need to valid if the Form is Open that not open other, I'm using this code:
>>
>>FOR EACH oFormsAbiertos IN APPLICATION.FORMS
>>&& Pedidos
>> IF UPPER(oFormsAbiertos.Name) <> "CAPTURA_DE_PEDIDOS21"
>> .DoForm("CAPTURA_DE_PEDIDOS2")
>> EXIT
>> ELSE
>> MESSAGEBOX("Alerta... "+CHR(13)+"Este Pantalla ya se encuentra abierta... Verifique...",48,FntSistema())
>> EXIT
>> ENDIF
>>NEXT
>>
>>But, is not operate, You Can Help Me...
>> Thank You ...ForWard..
Against Stupidity the Gods themselves Contend in Vain - Johann Christoph Friedrich von Schiller
The only thing normal about database guys is their tables.
Previous
Reply
Map
View

Click here to load this message in the networking platform