Discussion :

[minot83]

Bonsoir,

Pour la navigation entre forumaires, j’utilise des boutons avec un évènement sur clic tel que :

Code :

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

1
2
3
4
5
6
Private Sub Étiquette36_Click()
    Dim stDocName As String
    stDocName = "Accueil"
    DoCmd.Close
    DoCmd.OpenForm stDocName, acNormal, , , acFormEdit
End Sub

Mais je dois répéter n fois ce code dans chaque formulaire...

Comment faire pour appeler simplement l'action de fermer et d'ouvrir le formulaire? Est-ce une fonction?

Merci d'avance

[Invité]

Bonjour

Crée une routine (et non une fonction) ne changera rien.

Le code que tu as est généré par Access, tu peux faire un raccourci en une seule ligne.

Code :

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

DoCmd.OpenForm "Accueil", acNormal, , , acFormEdit

Philippe

[minot83]

Bonjour
Crée une routine (et non une fonction) ne changera rien.
Le code que tu as est généré par Access, tu peux faire un raccourci en une seule ligne.

Code :

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

DoCmd.OpenForm "Accueil", acNormal, , , acFormEdit

Philippe

Salut Philippe et merci,

ce n'est pas possible d'enregistrer quelque part l'action de fermer le formulaire chargé, et d'ouvrir le formulaire Accueil ? (sans macro si possible)

[FreeAccess]

Bonjour,

Tout est possible........encore faut-il que cela te soit vraiment utile..

Dans un module..

Code :

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

1
2
3
4
5
6
7
8
Function FermerForm()
'## Fermer le formulaire en cours ##
Dim frm As Form
Set frm = Screen.ActiveForm
DoCmd.Close acForm, frm.name
DoCmd.OpenForm "Accueil"
Set frm = Nothing
End Function

et sur la propriété "Sur clic" de chaque bouton de tes différents formulaires...

Code :

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

1
2
3
Private Sub cmdFermer_Click()
FermerForm
End Sub

...à voir

[minot83]

Merci, c'est exactement ce que je cherchais, je trouve ça plus élégant, moins répétitif, après cela fait-il gagner qqchose ?