CREER UNE TABLE CONTENANT LA LITES COMPLÈTE DES OBJETS CONTENUS DANS UN FORMULAI
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
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
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
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/35091-creer-une-table-contenant-la-lites-complete-des-objets-contenus-dans-un-formulaire
https://codes-sources.commentcamarche.net/source/35091-creer-une-table-contenant-la-lites-complete-des-objets-contenus-dans-un-formulaire
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