Discussion :

[EE]

Bonjour,
j'ai rien trouvé dans les cours et tutaux ( peut etre mal regardé)
je cherche le moyen de faire afficher dansune zone de liste , la liste des tables d'une autre base access
"genre.... je veux sélectionner la table XX de la base access archive pour récuperer le contenu

Merci par avance

[Demco]

j'ai rien trouvé dans les cours et tutaux ( peut etre mal regardé)

T'as juste oublié la FAQ
Elle ne te donne pas la réponse toute faite mais les modifications sont minimes.

En espérant t'aider.

[EE]

gloup's je vais voir tout de suite
merci

[EE]

AHHHHHHHHHHHHHHH


voir ce que j'ai fait pour info .....
1 creation zone de liste nommé liste_table 1 colonne avec liste de valeurs

puis j'ai adapté le code de la faq .. merci Demco

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Private Sub bt_visutables_Click()
Dim nomtable As String
 
Dim Db As DAO.Database
Dim tbd As DAO.TableDef
Dim fld As DAO.Field
Set Db = CurrentDb
For Each tbd In Db.TableDefs
        nomtable = tbd.Name
 Me!liste_tables.RowSource = Me!liste_tables.RowSource & ";" & nomtable
 
 
Me!liste_tables.Requery
Next
End Sub

et voila ..
Il me reste la partie de l'acces la base externe .... je connais en ado pas en dao ..; asuivre
merci

[Demco]

Merci d'avoir partagé le code ça pourra servir à d'autres lors de recherchers sur le forum.

Pense à mettre le tag Résolu si c'est le cas.
Le bouton est en bas à gauche.

[EE]

et pour finir apres "resolu"
j'ai modifier un peu le script pour attaquer la base externe

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Private Sub bt_visutables_Click()
Dim nomtable As String
 
Dim Db As DAO.Database
Dim tbd As DAO.TableDef
Set Db = OpenDatabase(Me!lien)
For Each tbd In Db.TableDefs
        nomtable = tbd.Name
 Me!liste_tables.RowSource = Me!liste_tables.RowSource & ";" & nomtable
 
 
Me!liste_tables.Requery
Next
 
End Sub

me!lien est ici une zone de texte sur mon formulaire pour préciser l'emplacement de la atble ...
prochaine étape ... connection VPN puis ... récupération des valeurs.. un autre post ... et d'autres galeres

merci

[EE]

probleme Demco , que je crois pouvoir laisser sur le meme post .. rendre invisible les tables systemes ???
merci

[FreeAccess]

Bonjour,
Comme dit Demco, c'est sur il y a la F.A.Q .........,mais il y a aussi les mêmes sujets traités
Regarde ICI, tu devrais trouver ton bonheur:
http://www.developpez.net/forums/sho...=table+systeme
Bonne continuation

[EE]

merci
voila ce que j'ai fait

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Private Sub bt_visutables_Click()
Dim nomtable As String
 
Dim Db As DAO.Database
Dim tbd As DAO.TableDef
Set Db = OpenDatabase(Me!lien)
For Each tbd In Db.TableDefs
If Left(tbd.Name, 4) <> "Msys" Then
        nomtable = tbd.Name
 Me!liste_tables.RowSource = Me!liste_tables.RowSource & ";" & nomtable
End If
 
Next
Me!liste_tables.Requery
End Sub