Discussion :

[antoineamada]

Bonjour,

Je dispose d'un grand nombre de formulaire (une trentaine), chacun presentant les résultats d'un requête differente.

Je souhaite créer un dernier formulaire "menu général" qui me permette d'ouvrir les differents formulaires à partir d'une zone de liste qui recense tous mes formulaires.

Exemple: En cliquant sur la ligne "recolte" de ma zone de liste, j'ouvre le formulaire "recolte" qui contient les informations relatives à ma récolte.

Je précise que cette zone de liste sera elle même le résultat d'un requete qui permettra de filtrer le choix des formulaires à ouvrir en fonction de certains critères.

J'ai trouvé des posts pour ouvrir un formulaire à un enregistrement donné à partir d'une zone de liste, mais aucun expliquant comment ouvrir plusieurs formulaires.

Merci pour vos conseils et piste de recherche.

[Jack78960]

Joyeux Noel,

Le petit bout de code suivant devrait t'aider : il donne la liste des formulaires existants dans la base courante :

Code :

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

1
2
3
4
5
6
7
Sub ContainerObjectForms()
    Dim dbsNorthwind As Database, unDoc As Document
    Set dbsNorthwind = CurrentDb
    For Each unDoc In dbsNorthwind.Containers("Forms").Documents
        Debug.Print unDoc.Name
    Next
End Sub

[antoineamada]

Bonjour

Le listing des formulaires fonctionne bien. Mais le noeud du probleme est ailleurs.

La zone de liste présente tous les formulaires disponibles. Comment faire pour ouvrir un formulaire en cliquant sur une des lignes (une ligne = un formulaire différend a chaque fois).

Merci et bonnes fêtes à tous,

[Invité]

Bonjour

As-tu essayé sur l'évènement click d'ouvrir ton formulaire ?

Quel type de code as-tu essayé ? Peux-tu nous le mettre sur le forum.

Starec

[Jeannot45]

Bonjour,

Voici deux petites procédures que tu pourras adapter à ton problème

la première qui s'exécute à l'ouverture du formulaire :

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
16
17
18
19
20
21
Sub Form_Open(Cancel as integer)
' Déclaration des varialbes
Dim MaBase as DataBase, Formulaire as Document
Dim strListeFormulaires as String
 
' Initialisation de la variable récupérant la Base en cours
Set MaBase = CurrentDb
 
' Boucle pour récupérer tous les noms des formulaires
For Each Formulaire in CurrentDb.Containers("Forms")Document
    ' Concaténation du nom du formulaire et d'un séparateur ";"
    strListeFormulaires = strListeFormulaires & Formulaire.Name & ";"
Next
 
' Extraction du dernier ";" de la chaine
strListeFormulaires = Left(strLiseFormulaires,Len(strLsiteFormulaires)-1)
 
' Initialisation de la liste déroulante
cboForms.RowSourceType = "Liste Valeurs"
cboForms.RowSource = strListeFormulaires
End Sub

La seconde s'exécute en choisissant le nom du formulaire à ouvrir:

Code :

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

1
2
3
4
Sub cboForms_Click()
    ' cboForms est le nom de la liste déroulante posée sur le formulaire
    docmd.OpenForm cboForms
End Sub

[antoineamada]

Merci Jeannot 45, mais la ligne suivante ne fonctionne pas. Il ne manque pas quelque chose?

Code :

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

1
2
' Boucle pour récupérer tous les noms des formulaires
For Each Formulaire in CurrentDb.Containers("Forms")Document

[Jeannot45]

mille excuses,

Code :

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

1
2
' Boucle pour récupérer tous les noms des formulaires
For Each Formulaire in CurrentDb.Containers("Forms").Document

Il manque le . avant Document

[antoineamada]

D'accord j'ai trouvé le probleme, il manquait juste un point, le s a document et le nom de la variable à la place de currentDb

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub Form_Open(Cancel as integer)
' Déclaration des varialbes
Dim MaBase as DataBase, Formulaire as Document
Dim strListeFormulaires as String
 
' Initialisation de la variable récupérant la Base en cours
Set MaBase = CurrentDb
 
' Boucle pour récupérer tous les noms des formulaires
For Each Formulaire in MaBase.Containers("Forms").Documents
    ' Concaténation du nom du formulaire et d'un séparateur ";"
    strListeFormulaires = strListeFormulaires & Formulaire.Name & ";"
Next

Tout marche au poil. Merci beaucoup.