criscris11
XLDnaute Accro
Bonjour à tous,
Afin de faciliter l'utilisateur à saisir une date dans un Texbox, j'aimerais créer un masque de saisie. J'ai bien trouver ce code qui est en fait une fonction personnalisée mais comment l'adapter juste à ma Textbox ?
Cette fonction, qui fait partie d'un module de classe, a été élaborée pour le fichier d'origine donc je suppose qu'elle fait référence à d'autres bout de code.
Merci de m'éclairer sur ce point et bonne soirée.
Afin de faciliter l'utilisateur à saisir une date dans un Texbox, j'aimerais créer un masque de saisie. J'ai bien trouver ce code qui est en fait une fonction personnalisée mais comment l'adapter juste à ma Textbox ?
Code:
Private Function Mask() As String 'Ex: "__/__/____"
Dim i As Long, TheMask As String
If clsShortYear Then TheMask = "________" Else TheMask = "__________"
i = IIf(clsOrder = dbxYearMonthDay And Not clsShortYear, 5, 3)
Mid(TheMask, i, 1) = clsSeparator
Mid(TheMask, i + 3, 1) = clsSeparator
Mask = TheMask
End Function
Cette fonction, qui fait partie d'un module de classe, a été élaborée pour le fichier d'origine donc je suppose qu'elle fait référence à d'autres bout de code.
Merci de m'éclairer sur ce point et bonne soirée.