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 901 fois - Téléchargée 32 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
tmcuh Messages postés 458 Date d'inscription dimanche 22 décembre 2002 Statut Membre Dernière intervention 18 avril 2009
1 sept. 2006 à 09:28
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
cs_dhardy Messages postés 45 Date d'inscription lundi 23 juin 2003 Statut Membre Dernière intervention 24 février 2009
20 déc. 2005 à 08:47
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.