Procédure commune

Signaler
Messages postés
71
Date d'inscription
jeudi 20 décembre 2001
Statut
Membre
Dernière intervention
30 juin 2016
-
Messages postés
1858
Date d'inscription
samedi 29 juin 2002
Statut
Membre
Dernière intervention
17 octobre 2013
-
Voilà mon problème :
J'ai plusieurs forms sur lesquels il y a des textbox et des combobox avec des index.
Je voudrai créer une procédure dans un module qui serait appelée lorsque les controles perdent le focus.
Privatesub Textbox_lostfocus(index as integer)
là j'appelle la procédure qui est sur un module
mais je mets quoi?
end sub

sur le module
publicsub Validation( ???????)
là je controle la saisie
et c'est tout?
end sub

si c'est pas clair n'hésitez pas
merci et à +

1 réponse

Messages postés
1858
Date d'inscription
samedi 29 juin 2002
Statut
Membre
Dernière intervention
17 octobre 2013
10
Pour contrôler la saisie dans une TextBox, utilise une Function plutôt qu'un Sub :

Private Sub Text1_LostFocus(Index As Integer)
Text1(Index).Text = Valide(Text1(Index).Text )
End Sub

et au niveau du module :

Public Function Valide(Texte As String) As String
'traitement du texte passé en paramètre
Valide = le résultat du traitement
End Function
0