Masque de saisie dans un Textbox

[criscris11]

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 ?

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.

 

[stefan373]

Re : Masque de saisie dans un Textbox

Bonsoir criscris11 et le forum,

Voici avec un textbox au format de date, en espérant que cela vous conviennes. 🙂

A + Stéfan

 

[criscris11]

Re : Masque de saisie dans un Textbox

Merci Stephan, je vais tester ta proposition.
Bonne soirée.