Bonjour à tous !
 
J'ai un p'tit souci :
 
COmment faire pour Forcer la saisie d'une date au format jj/mm/aaaa dans une textbox
 
J'ai bien la fonction isDate()
mais si je saisie 1/1/2003 :  ca passe !
 
une idée ?
 
merci
 

   Voici une idée :
 
' Tu déclare une varible de type date
 Dim MaDate As Date
     
    ' Tu récupere le contenu de ta textbox dans cette variable
    MaDate = CDate(textbox1.Text)
    ' Tu convertit la variable texte au format que tu souhaite
    MaDate = Format(texte, "jj/mm/yyyy" )
 
    --->voila maintenant dans Date tu as 01/01/2003 !:bounce:

 
le pb est:
si je saisis 1/21/2003 le isDate() l'accepte aussi , mais moi je le veux pas!!!

  ouai forcement il l'accepte ton "Isdate" vus que c'est une Date que tu lui rentre.Ne paniquons pas :
 
une autre solution :
 
' tu déclare une variable pour stoker exactement le texte qu'il y a dans ta textbox
Dim Texte as string
 
'Tu chope ce qu'ily a dans ta text box
Texte=textbox1.text
 
' La tu pete ton isdate
If IsDate(Texte) = True Then
' si c'est une date alors :        
    ' Tu convertit la chaine en date
    Texte = CDate(Texte)
    ' En fait y'as meme pas besoin de format, la conversion en date sufit
    ' Tu peut afficher la date qui te convient dans ta textbox
    textbox1.Text = Texte
Else
    ' si c'est pas une date alors ...
    MsgBox ("Entrer une date !!" )
End If
 
 

Merci beaucoup pour ton aide !
 
Je vais essayer ca ....

pourquoi tu n'utilise pas le controle DateTimePicker, ça serait bien plus pratique (il me semble qu'on le trouve dans les windows common controls 2).

En effet
 
Sinon tu peux toujours utiliser un MaskedEditBox, c'est plus léger et ça fonctionne par masque de saisie (similaire à ce qu'on fait en Access).

ça m'intéresse ça, on le trouve dans quel composant ActiveX ?

Microsoft Masked Edit Control, il a son OCX à lui tout seul: MSMASK32.OCX
 
je l'ai en tout cas sur VB6 Professional.

thx, je l'avait zappé  

MERCI à tous !
 
C'est exactement ce que je cherchais .....