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 674 fois - Téléchargée 30 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
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
- Creer une table contenant la lites complète des objets contenus dans un formulaire
- Visual Basic / VB.NET : Créer une table et des champs dans une base access - CodeS SourceS - Guide
- Visual Basic / VB.NET : Exportation de tables ou bases access complètes vers mysql - CodeS So - Guide
- Cree une table - Codes sources - SQL (Divers)
- Crée un répertoire et crée ces tables par programme - Codes sources - Delphi / Pascal (Base de Donnees)
- Créer une table au nom de l'utilisateur ✓ - Forum - SQL
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
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.