regrouper les commandes de navigation (fonctions?)

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 ;)

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

Citation:

---

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)

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 :!:

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 ?

:ccool: