Discussion :

[titeZ]

Bonjour,
j'ai crée un formulaire avec un champs date

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Private Sub txtDate_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
 
formAppelant = "frm_consomme"
controlAppelant = "txtDate"
 
frm_calendar.Show
 
End Sub

et je souhaiterais que tout comme access le permet pouvoir mettre un masque de saisie au niveau de la date
et que lorsqu'il y a une erreur il m'informe que le format indiqué n'est pas le bon
Pourriez vous m'aider ? Merci

[Tiresia]

Salut,

Un truc comme ça, ça irait pas par hasard :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
If (lendroit ou est la date).NumberFormat<>"format désiré" Then
 
Erreur
 
End If

[Invité]

Bonjour

Tu peux faire un test avec la fonction IsDate

Starec

[titeZ]

Le souci c'est que j'ai besoin d'un format de date spécifque jj/mm:aaaa
avec la fonction Isdate ca me renverra true meme si j'ecris 12 janvier 2005

[Tiresia]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
If (lendroit ou est la date).NumberFormat<>"m/d/yyyy" Then
 
Erreur
 
End If

J'essaie hein...j'ai peut être pas bien compris ce que tu voulais

[titeZ]

comment ça l'endroit ou est la date ?
voici mon bout de code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Private Sub txtDate_Change()
If txtDate.NumberFormat <> "m/d/yyyy" Then
MsgBox "Veuillez entrez une date au format""m/d/yyyy"""
End If
End Sub

Le souci c'est que NumberFormat n'est pas reconnu