akastels
Messages postés5Date d'inscriptionlundi 20 janvier 2003StatutMembreDernière intervention 2 juin 2003
-
2 juin 2003 à 09:45
mobbarley
Messages postés3Date d'inscriptionjeudi 19 juillet 2007StatutMembreDernière intervention23 juillet 2007
-
19 juil. 2007 à 14:54
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
mobbarley
Messages postés3Date d'inscriptionjeudi 19 juillet 2007StatutMembreDernière intervention23 juillet 2007 19 juil. 2007 à 14:54
bonjour!
je sais ca fait longtemps qu'y a pas de com sur cette source, mais, comment peut-on faire pour recuperer les propriétés de la table?? (par exemple est-ce une table liée a un autre fichier .mdb, l'adresse du dossier contenant ces fichiers .mdb... )
euh je ne suis pas du tout programmeur ni utilisateur d'acces, c'est juste pour un petit boulot (je suis en stage actuellement), merci de ne pas me disputer si j'ai dit une betise!!
swan94
Messages postés254Date d'inscriptionjeudi 29 juillet 2004StatutMembreDernière intervention 2 avril 2010 24 oct. 2006 à 21:08
Merci à toi super interressant : simple et concis. Bravo
Swan94
ritchy01
Messages postés41Date d'inscriptionmardi 16 septembre 2003StatutMembreDernière intervention20 décembre 2009 16 juin 2006 à 00:02
Bonjour Nagua !
Super source, ca marche nickel de plus c'est simple et bien commenté 100% satisfait donc je note 10
Merci
ugs77
Messages postés3Date d'inscriptionmardi 22 juin 2010StatutMembreDernière intervention30 novembre 2010 26 août 2004 à 23:33
Je n'ai pas vu la question plutôt.
Voici comment faire pour lister les tables d'une base Access via VBA :
1ère méthode :
Sub ListerTable()
Dim obj As AccessObject
Dim dbs As Object
Dim ListeTablesCh As String
ListeTablesCh = ""
Set dbs = Application.CurrentData
For Each obj In dbs.AllTables
ListeTablesCh = ListeTablesCh & obj.Name & Chr(10) & Chr(13)
Next obj
MsgBox ListeTablesCh
End Sub
2ème méthode :
Sub ListerTable()
Dim obj As AccessObject
Dim dbs As Object
Dim ListeTablesCh As String
Dim i As Long
i = 0
ListeTablesCh = ""
Set dbs = Application.CurrentData
For i = 0 To dbs.AllTables.Count - 1
ListeTablesCh = ListeTablesCh & dbs.AllTables.Item(i).Name & Chr(10) & Chr(13)
Next i
MsgBox ListeTablesCh
End Sub
cs_snowsurfer69
Messages postés35Date d'inscriptionmardi 25 mai 2004StatutMembreDernière intervention23 juin 2004 7 juin 2004 à 11:55
salut!!!
j'ai vu le commentaire et ça a l'aire super simple comme solution mais je débute avec access(2002) et je n'y arrive pas!!!
sa affiche bien la liste de mes tables mais uniquement dans ma liste d'options alors que je voudrait l'afficher dans ma combo
voilavoila!!!
si vous pouvez m'aider c'est sympa
A+
cs_snowsurfer69
Messages postés35Date d'inscriptionmardi 25 mai 2004StatutMembreDernière intervention23 juin 2004 7 juin 2004 à 10:35
salut!!!
j'ai vu le commentaire et ça a l'aire super simple comme solution mais je débute avec access(2002) et je n'y arrive pas!!!
en fait je ne trouve pas la zone "contenu de la liste box
voilavoila!!!
si vous pouvez m'aider c'est sympa
A+
akastels
Messages postés5Date d'inscriptionlundi 20 janvier 2003StatutMembreDernière intervention 2 juin 2003 2 juin 2003 à 09:45
Désolé de n'avoir pas vu ta question plus tôt.
Il est beaucoup plus simple d'utiliser le système d'Access.
Faire un formulaire avec un ListBox("Liste1").
Mettre dans le Contenu:
SELECT MSysObjects.Name FROM MSysObjects WHERE (MSysObjects.Type)=6 ORDER BY MSysObjects.Name
La liste est complète et dans l'ordre alphabétique.
A+
19 juil. 2007 à 14:54
je sais ca fait longtemps qu'y a pas de com sur cette source, mais, comment peut-on faire pour recuperer les propriétés de la table?? (par exemple est-ce une table liée a un autre fichier .mdb, l'adresse du dossier contenant ces fichiers .mdb... )
euh je ne suis pas du tout programmeur ni utilisateur d'acces, c'est juste pour un petit boulot (je suis en stage actuellement), merci de ne pas me disputer si j'ai dit une betise!!
24 oct. 2006 à 21:08
Swan94
16 juin 2006 à 00:02
Super source, ca marche nickel de plus c'est simple et bien commenté 100% satisfait donc je note 10
Merci
26 août 2004 à 23:33
Voici comment faire pour lister les tables d'une base Access via VBA :
1ère méthode :
Sub ListerTable()
Dim obj As AccessObject
Dim dbs As Object
Dim ListeTablesCh As String
ListeTablesCh = ""
Set dbs = Application.CurrentData
For Each obj In dbs.AllTables
ListeTablesCh = ListeTablesCh & obj.Name & Chr(10) & Chr(13)
Next obj
MsgBox ListeTablesCh
End Sub
2ème méthode :
Sub ListerTable()
Dim obj As AccessObject
Dim dbs As Object
Dim ListeTablesCh As String
Dim i As Long
i = 0
ListeTablesCh = ""
Set dbs = Application.CurrentData
For i = 0 To dbs.AllTables.Count - 1
ListeTablesCh = ListeTablesCh & dbs.AllTables.Item(i).Name & Chr(10) & Chr(13)
Next i
MsgBox ListeTablesCh
End Sub
7 juin 2004 à 11:55
j'ai vu le commentaire et ça a l'aire super simple comme solution mais je débute avec access(2002) et je n'y arrive pas!!!
sa affiche bien la liste de mes tables mais uniquement dans ma liste d'options alors que je voudrait l'afficher dans ma combo
voilavoila!!!
si vous pouvez m'aider c'est sympa
A+
7 juin 2004 à 10:35
j'ai vu le commentaire et ça a l'aire super simple comme solution mais je débute avec access(2002) et je n'y arrive pas!!!
en fait je ne trouve pas la zone "contenu de la liste box
voilavoila!!!
si vous pouvez m'aider c'est sympa
A+
2 juin 2003 à 09:45
Il est beaucoup plus simple d'utiliser le système d'Access.
Faire un formulaire avec un ListBox("Liste1").
Mettre dans le Contenu:
SELECT MSysObjects.Name FROM MSysObjects WHERE (MSysObjects.Type)=6 ORDER BY MSysObjects.Name
La liste est complète et dans l'ordre alphabétique.
A+