Discussion :

[jazzybluesy]

Bonjour,

Voila, j ai plusieurs formulaires et je voudrais les regrouper dans un seul pour pouvoir naviguer entre eux comme dans un livre.

Comme lorsque l on cree un formulaire qui se base sur une table avec plusieurs enregistrements on peut faire suivant en bas pour naviguer d un enregistrement a un autre. Est ce qu on peut faire la meme chose en regroupant tous les formulaires ?

J espere que j ai ete clair

[tee_grandbois]

Bonsoir,
il n'existe pas, à ma connaissance, un menu pour naviguer parmi tous les formulaires (à part la base Access elle-même). Ceci dit, tu peux toujours essayer de créer un formulaire contenant une Zone de Liste avec tous les formulaires.
Il faut juste exclure les sous-formulaires, et pour ce faire, il faut qu'ils soient suffixés ou préfixés et exclure également le formulaire de choix lui-même.
Voici un exemple de sélection des formulaires qui peut être utilisé dans une Zone de liste ou un combo (on exclut tous les formulaires contenant 'sf')

Code :

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

1
2
3
4
SELECT MSysObjects.Name
FROM MSysObjects
WHERE (((MSysObjects.Name) Not Like '*sf*') AND ((MSysObjects.Type)=-32768) AND ((MSysObjects.Flags)=0))
ORDER BY MSysObjects.Name;

et voici un code pour ouvrir les formulaires (à mettre sur l'évènement doubleclick d'une zone de liste nommée Liste2, par exemple):

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
Private Sub Liste2_DblClick(Cancel As Integer)
Dim obj As AccessObject, dbs As Object
Dim stNomFrm As String
stNomFrm = Me.Liste2.Column(0)
DoCmd.OpenForm stNomFrm, , acViewNormal
 
    Set dbs = Application.CurrentProject
    ' Ce code ferme tous les formulaires ouverts sauf celui qui est appelé et le formulaire courant
    ' Ne pas l'exécuter si on souhaite tout laisser ouvert
    For Each obj In dbs.AllForms
        If obj.IsLoaded = True And obj.Name <> stNomFrm And obj.Name <> Me.Name Then
            DoCmd.Close acForm, obj.Name
        End If
    Next obj
 
End Sub

[jazzybluesy]

Whoa ! merci beaucoup tee_grandbois. Je vais decortiquer ton code et voir ce que ca donne.