J'ai fait une procédure :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub P_Affichage(ByVal blnPremier As Boolean, ByVal blnPrecedent As Boolean, _
                        ByVal blnSuivant As Boolean, ByVal blnDernier As Boolean, _
                        ByVal blnMAJ As Boolean, ByVal blnModifier As Boolean, ByVal blnAjouter As Boolean)
 
btnPremier.Enabled = blnPremier
btnPrecedent.Enabled = blnPrecedent
btnSuivant.Enabled = blnSuivant
btnDernier.Enabled = blnDernier
btnMAJ.Enabled = blnMAJ
btnModifier.Enabled = blnModifier
btnAjouter.Enabled = blnAjouter
 
End Sub
Et j'aimerais rajouter un paramètre du type
Code : Sélectionner tout - Visualiser dans une fenêtre à part
ByVal Propriete as property
et donc remplacer ".enabled" par ".Propriete". Cela me permettrait de pouvoir appeler la procdédure avec ".Locked" par exemple..Mais ça ne marche pas..
Merci d'avances et bonne journée