Creer une table contenant la lites complète des objets contenus dans un formulaire

Soyez le premier à donner votre avis sur cette source.

Snippet vu 13 537 fois - Téléchargée 29 fois

Contenu du snippet

23/11/2005

Bonjour à toutes et à tous

Pour faire suite à la demande de Mohamed et Samir, voici un bout de code à mettre dans un bouton d'un formulaire, qui permettra d'obtenir la liste complète des objets avec leur référence parentale.

Bonne prog à tous

Atoutfoxement bien sur

Source / Exemple :


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

A voir également

Ajouter un commentaire

Commentaires

Messages postés
458
Date d'inscription
dimanche 22 décembre 2002
Statut
Membre
Dernière intervention
18 avril 2009

Function SearchForms
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
Messages postés
45
Date d'inscription
lundi 23 juin 2003
Statut
Membre
Dernière intervention
24 février 2009

Bonjour,

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.