Menu dans un formulaire

[bella1957]

Bonjour
je suis un nouveau dans le monde de l'informatique. Je travaille dans l'enseignement: l'administration. J'ai créé une modeste application pour gérer les élèves dans Access.
Dans le formulaire d'accueil, je veux créer un menu pour accéder aux formulaires, états.....
J'ai besoin d'aide et merci .
Votre nouveau ami bella1957

[marot_r]

Quelle version d'Access utilises-tu ?

En standard Access vient avec un SwitchBorad menu qui répond bien à des besoin de bases, as-tu regardé cela ? Dans Access 2003 il est dans Outils/Utilitaires de bases de données/Gestionnaire de menu général.

Une autre possibilité simple consiste à créer un formulaire puis d'utiliser l'assistant de création des boutons pour préciser les formulaires ou les états qui doivent s'ouvrir.

Avec un bouton par formulaires et états c'est très simple à modifier et à entretenir mais cela peut devenir un peu confus et ça fait un peu 1980 comme interface à l'époque des rubans et de Facebook :-).

A+

[marsouin_89]

Bonjour Bella,

A ta place je ferais un formulaire comme suit :
2 zones de liste indépendantss
Au chargement du formulaire, lister les formulaires pour inscrire leur noms dans une zone de liste.
Faire de même pour les états.
Au double clique sur une des zones de liste, tu mets le code pour ouvrir le formulaire ou l'état.

Autre solution, si tu es un peu juste en code.
Faire une table avec le nom de tous tes formulaires et une autre pour les états.
Ces tables seront la source de tes zones de liste.

Finalement, j'ai pris quelques instants et voilà un exmple :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
Private Sub Form_Load()
On Error GoTo Err
 
Dim oFrm As AccessObject'oRpt pour état
Dim oList As String
oList = ""
 
For Each oFrm In CurrentProject.AllForms 'Parcoure toute la liste des formulaires AllReports pour les états
    oList = oList & oFrm.Name & ";"'Mémorise le nom des formulaires
Next
 
'Définition de la source de la zone de liste Lst_Rpt pour les états
Me.Lst_Frm.RowSourceType = "Liste valeurs"
Me.Lst_Frm.RowSource = oList
 
Fin: Exit Sub
 
Err:
    MsgBox "Erreur n° " & Err.Number & vbCrLf & Err.Description
    Resume Fin
End Sub
 
Private Sub Lst_Frm_DblClick(Cancel As Integer)
On Error GoTo Err
 
DoCmd.OpenForm Me.Lst_Frm
 
Fin: Exit Sub
 
Err:
Select Case Err.Number
    Case 94, 5
        MsgBox "Veuillez sélectionner un formulaire."
        Me.Lst_Frm.SetFocus
    Case Else
        MsgBox "Erreur n° " & Err.Number & vbCrLf & Err.Description
End Select
Resume Fin
End Sub

Avec çà, tu devrais t'en tirer.

Cordialement

Christophe