Plus simple

Bonjour,
Avec ce code, le contrôle actif est entouré en rouge lorsqu'il prend le focus.
Private Sub National_Enter()
With Me.ActiveControl
.Properties("borderstyle") = 1
.Properties("borderwidth") = 2
.Properties("bordercolor") = vbRed
End With
End Sub

Afin d'évité de le recopier sur tout les champs de mon formulaire je pense
qu'il serait plus simple de le mettre dans un module, ainsi il serait écrit
une seule fois.
Si c'est possible comment faire ?
J'ai fais un essai mais le code doit être apparement modifié .
Merci

Bonjour,

Une procédure à mettre dans le module du formulaire visé (ou général) :

Sub MiseEnCouleur(UnControl As Control)
With UnControl
.Properties("borderstyle") = 1
.Properties("borderwidth") = 2
.Properties("bordercolor") = vbRed
End With
End Sub

et appel sur l'évènement Enter de tes controles par exemple:
Private Sub IdSalarie_Enter()
MiseEnCouleur Me.ActiveControl
End Sub

Bonjour,
Avec ce code, le contrôle actif est entouré en rouge lorsqu'il prend le focus.
Private Sub National_Enter()
With Me.ActiveControl
.Properties("borderstyle") = 1
.Properties("borderwidth") = 2
.Properties("bordercolor") = vbRed
End With
End Sub

Afin d'évité de le recopier sur tout les champs de mon formulaire je pense
qu'il serait plus simple de le mettre dans un module, ainsi il serait écrit
une seule fois.
Si c'est possible comment faire ?
J'ai fais un essai mais le code doit être apparement modifié .
Merci

--
A+
Eric
http://www.mpfa.info/
Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr