Bonjour,
J’utilise une fonction qui me sert à estomper ou à activer certains boutons.
Les noms de mes boutons sont identiques dans les 8 formulaires.
Les paramètres de la fonction sont :
- Le nom (NomForm) du formulaire où se trouvent les actions à réaliser sur les boutons.
- L’état activé ou estompé (Etat) desiré pour les boutons.
Voici le code qui fonctionne
J’aimerais ne pas répéter 8 fois le même code dans ma fonction en récupérant le nom du formulaire de la variable NomForm pour l’insérer dans le code.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13 Function TestModif(NomForm As String, Etat As Boolean) As Boolean Select Case NomForm Case "F_Essai" If Not Etat Then Forms.F_Essai.FC_Temp.SetFocus Forms.F_Essai.Btn_SauvEng.Enabled = Etat Forms.F_Essai.Btn_AnnEng.Enabled = Etat Forms.F_Essai.Btn_SuppEng.Enabled = Etat Case "F_Livres" If Not Etat Then Forms.F_Livres.FC_Temp.SetFocus Forms.F_Livres.Btn_SauvEng.Enabled = Etat Forms.F_Livres.Btn_AnnEng.Enabled = Etat Forms.F_Livres.Btn_SuppEng.Enabled = Etat
J’obtiens une erreur d’exécution 438 : Propriété ou méthode non gérée par cet objet.
Pouvez-vous m’indiquer la syntaxe à utiliser ?
Merci
Partager