[AC-2003] regrouper les commandes de navigation (fonctions?) [Résolu]

[minot83]

Bonsoir,

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

Code :

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

[Philippe JOCHMANS]

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 :

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

Philippe

[minot83]

Envoyé par Philippe JOCHMANS

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 :

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 :

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 :

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 ?