Discussion :

[ClaudeLELOUP]

Bonjour à tous,

Je voudrais lister les formulaires d’une base de données distante.

Quelque chose comme :

Code :

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

1
2
3
4
5
6
7
8
9
10
Sub ListerFormBaseDistante(LeCheminDeLaDbDistante As String)
  Dim db As Database
  'Ouvrir la db distante
  Set db = OpenDatabase(LeCheminDeLaDbDistante)
  'Afficher le nom de ses formulaires
  Debug.Print LeNomDeSesFormulaires
  'Sortir
  db.Close
  Set db = Nothing
End Sub

Auriez-vous un bout de code ?

Merci déjà et bonne journée.

P.-S. En relation avec cette discussion : http://www.developpez.net/forums/d14...erer-legendes/

[volsan]

Bonjour,

essai d'adapter ce bout de code, je pense que tu devrais arriver a ce que tu cherches a obtenir
Cette fonction te permet d'obtenir la liste des formulaire dans la base de donnée courante

Code :

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

1
2
3
4
5
6
7
8
9
10
Function ListeForms()
Dim db As DAO.Database, doc As DAO.Document
 
Set db = CurrentDb
For Each doc In db.Containers("Forms").Documents
  Debug.Print doc.Name
Next
 
Set db = Nothing
End Function

Cordialement

[ClaudeLELOUP]

Bonjour,

Merci ça roule !

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Sub ListerFormBaseDistante(LeCheminDeLaDbDistante As String)
  Dim db As DAO.Database, doc As DAO.Document
  'Ouvrir la db distante
  Set db = OpenDatabase(LeCheminDeLaDbDistante)
  'Lister les formulaires
  For Each doc In db.Containers("Forms").Documents
     Debug.Print doc.Name
  Next doc
 'Sortir
  db.Close
  Set db = Nothing
End Sub