affichage différent dans une liste deroulante

Bonjour aussi.

Private Sub Commande0_Click()
Me.Liste2.RowSource = ""
Dim Tbl As DAO.TableDef
Dim APP As Access.Application
Set APP = New Access.Application
APP.OpenCurrentDatabase ("bd2.mdb")
For Each Tbl In APP.CurrentDb.TableDefs
If Left(Tbl.Name, 4) <> "msys" Then
Me.Liste2.RowSource = Me.Liste2.RowSource & Tbl.Name & ";"
End If
Next Tbl
APP.CloseCurrentDatabase
APP.Quit
Set APP = Nothing
Set Tbl = Nothing
End Sub


--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour une meilleure
efficacité de tes interventions sur MPFA


"matt" <anonymous@discussions.microsoft.com> a écrit dans le message de
news:059f01c3b593$dd5549c0$a501280a@phx.gbl...

bonjour j'ai une liste deroulante qui contient le nom de
mes differentes bases et qd j'en choisi une je voudrais
que dans une autre liste deroulante apparaisent le nom
des tables de cette meme base merci

fo que je crée un bouton qui fasse cette action?

-----Message d'origine-----
Bonjour aussi.

Private Sub Commande0_Click()
Me.Liste2.RowSource = ""
Dim Tbl As DAO.TableDef
Dim APP As Access.Application
Set APP = New Access.Application
APP.OpenCurrentDatabase ("bd2.mdb")
For Each Tbl In APP.CurrentDb.TableDefs
If Left(Tbl.Name, 4) <> "msys" Then
Me.Liste2.RowSource = Me.Liste2.RowSource &
Tbl.Name & ";"

End If
Next Tbl
APP.CloseCurrentDatabase
APP.Quit
Set APP = Nothing
Set Tbl = Nothing
End Sub


--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour une meilleure
efficacité de tes interventions sur MPFA


"matt" <anonymous@discussions.microsoft.com> a écrit
dans le message de

news:059f01c3b593$dd5549c0$a501280a@phx.gbl...

bonjour j'ai une liste deroulante qui contient le nom
de

mes differentes bases et qd j'en choisi une je voudrais
que dans une autre liste deroulante apparaisent le nom
des tables de cette meme base merci

.