Visual Basic tout court!!!
Fermé
Isabelle
-
18 juin 2002 à 13:28
mouse Messages postés 136 Date d'inscription mercredi 4 avril 2001 Statut Membre Dernière intervention 13 avril 2007 - 18 juin 2002 à 17:05
mouse Messages postés 136 Date d'inscription mercredi 4 avril 2001 Statut Membre Dernière intervention 13 avril 2007 - 18 juin 2002 à 17:05
A voir également:
- Visual Basic tout court!!!
- Visual basic download - Télécharger - Langages
- Microsoft 365 basic - Guide
- Microsoft visual c++ runtime - Guide
- Visual petanque - Télécharger - Sport
- Visual paradigm - Télécharger - Gestion de données
3 réponses
thedavix
Messages postés
466
Date d'inscription
mardi 21 mai 2002
Statut
Membre
Dernière intervention
31 août 2006
35
18 juin 2002 à 16:08
18 juin 2002 à 16:08
Tu pourrais etre un peu plus précise?
le nom des tables? mais les tables que tu utilses dans ton formulaires? ou toute les tables de ta base?
" Le vrai savant n'est pas celui qui apprend,
mais celui qui comprend... " =;o)
le nom des tables? mais les tables que tu utilses dans ton formulaires? ou toute les tables de ta base?
" Le vrai savant n'est pas celui qui apprend,
mais celui qui comprend... " =;o)
mouse
Messages postés
136
Date d'inscription
mercredi 4 avril 2001
Statut
Membre
Dernière intervention
13 avril 2007
10
18 juin 2002 à 17:04
18 juin 2002 à 17:04
Sur un bouton, ou sur ouverture du form, met ce code
Dim LesTables As TableDef, Bd As database
Dim ListeNoms As String
Set Bd = CurrentDb
For Each LesTables In bd.TableDefs
ListeNoms= ListeNoms & bd.name & ";"
Next bd
Me!nom_de_la_combo.RowSource = ListeNoms
Me!nom_de_la_combo.Requery
Il faut que tu modifies les proprietes de ta combo, et lui dire qu'elle prend les valeurs depuis une liste.
Le seul hic, tu aura toutes les tables, meme celles invisibles qui sont utilisée par Access pour gerer ta BDD...
Dim LesTables As TableDef, Bd As database
Dim ListeNoms As String
Set Bd = CurrentDb
For Each LesTables In bd.TableDefs
ListeNoms= ListeNoms & bd.name & ";"
Next bd
Me!nom_de_la_combo.RowSource = ListeNoms
Me!nom_de_la_combo.Requery
Il faut que tu modifies les proprietes de ta combo, et lui dire qu'elle prend les valeurs depuis une liste.
Le seul hic, tu aura toutes les tables, meme celles invisibles qui sont utilisée par Access pour gerer ta BDD...
mouse
Messages postés
136
Date d'inscription
mercredi 4 avril 2001
Statut
Membre
Dernière intervention
13 avril 2007
10
18 juin 2002 à 17:05
18 juin 2002 à 17:05
Petite correction :
For Each LesTables In bd.TableDefs
ListeNoms= ListeNoms & LesTables .name & ";"
Next LesTables
Voili Voilou
For Each LesTables In bd.TableDefs
ListeNoms= ListeNoms & LesTables .name & ";"
Next LesTables
Voili Voilou
18 juin 2002 à 16:27
Il faudrait qu'elles apparaissent automatiquement... sans les entrer dans la propriétés listes!
18 juin 2002 à 16:47
. .
\_/