Soyez le premier à donner votre avis sur cette source.
Snippet vu 13 901 fois - Téléchargée 32 fois
create table objliste.dbf free (nom c(50),parent c(50)) index on nom tag nom index on parent tag parent thisform.saveas("lstobj.dbf") use lstobj.dbf in 0 select lstobj locate scan select objliste append blank replace nom with lstobj.objname replace parent with lstobj.parent select lstobj endscan select lstobj use select objliste use
1 sept. 2006 à 09:28
Parameters psNameForm
Local i
i = 0
For Each oFrm In _Screen.Forms && boucle sur chaque fenêtre
i = i +1
If(Alltrim(Upper(oFrm.Name)) = Alltrim(Upper(psNameForm))) && la feuille est trouvé
Exit
Endif
Next
Return i
Endfunc
après tu n'a plus qu'à faire _screen.Forms[SearchForms("nomdelafeuille")].saveas("lstobj.dbf")
Sinon bien joué aumeric, j'avais pas pensé à cette technique xD
20 déc. 2005 à 08:47
Est-ce possible de le faire pour toutes les formulaires ouverts ?
Si oui, comment ?
Merci
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.