[AC-2007] Invalid Date Format [Résolu]

[SorenIX]

Bonjours,

J'ai un problème avec =Format(date(), "dddd") que j'essaye de faire marcher dans une text box. J'ai regardé à plusieurs endroits et c'est ce qui marche généralement, mais je reçois toujours la même erreur:

The expression you entered contain invalid syntax.
You omitted an operand or operator, you entered an invalid character or comma, or you entered text without surrounding it in quotation marks.

Merci d'avance pour l'aide.

[User]

Salut,

Essaie avec le point virgule dans ton expression:

Code :

=Format(date(); "dddd")

A+

[SorenIX]

Woah bravo... tellement simple... pourquoi j'ai pas essayé...

Merci!

Maintenant je vois que la réponse est relié avec les options régionales. J'aimerais bien avoir Thursday au lieu de jeudi parce que le reste de mon formulaire est en anglais. J'aimerais aussi que la première lettre soit en majuscule.

Est-ce possible?

[User]

Je ne sais pas si cette fonction est disponible en VBA, mais tu peux toujours programmer une fonction toi-même du style:

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Function JourEnAnglais(Jour As String) As String
 
Select Case Jour
 
Case "Lundi"
 
JourEnAnglais = "Monday"
 
Case "Mardi"
 
JourEnAnglais = "Tuesday"
 
'...
 
End Select
 
end function

Tu créer cette fonction dans 1 module indépendant,

Et après tu l'utilise dans ton expression:

Code :

=JourEnAnglais(Format(date(); "dddd"))

A+

[SorenIX]

Je ne suis pas un expert, mais j'aimerais bien l'être.
Peux-tu m'expliquer comment faire un module indépendant et comment avoir la première lettre en majuscule? Je ne le trouve pas dans les propriétés.

Merci!

[User]

Salut,

Ya une fonction pour mettre la 1ere lettre en majuscule mais je ne m'en souviens plus, essaie ça :

Code :

=UCase(Left(Champ,1)) & LCase(Right(Champ,Len(Champ)-1)

Pour le module indépendant,

Dans la fenêtre base de données Access, tu cliques sur l'onglet "Modules",
puis tu fais nouveau, tu copies la fonction à la suite de

"Option Compare Database"

et tu enregistres ton module...

EDIT:

J'ai trouvé la fonction de conversion de la 1ère lettre :

Code :

=StrConv(JourEnAnglais(Format(date(); "dddd")); vbProperCase)

A+

[SorenIX]

Je sais vraiment pas comment tout ça marche mais j'ai copier le code et j'ai une erreur. Est-ce que les chiffres doivent être copier aussi? Et où dois-je mettre le deuxième code pour la majuscule?

[User]

Ceci:

Code :

=JourEnAnglais(Format(date(); "dddd"));

tu le mets sur la propriété "Source contrôle" de ta zone de texte (La TextBox).

Après tu copie la fonction sans les chiffres :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
Function JourEnAnglais(Jour As String) As String
 
Select Case Jour
 
Case "Lundi"
 
JourEnAnglais = "Monday"
 
Case "Mardi"
 
JourEnAnglais = "Tuesday"
 
Case "Mercredi"
 
JourEnAnglais = "Wednesday"
 
Case "Jeudi"
 
JourEnAnglais = "Thursday"
 
Case "Vendredi"
 
JourEnAnglais = "Friday"
 
Case "Samedi"
 
JourEnAnglais = "Saturday"
 
Case "Dimanche"
 
JourEnAnglais = "Sunday"
 
End Select
 
End function

dans le nouveau module...

[SorenIX]

EDIT :

J'ai fais ce que tu m'a dis et rien apparaît dans la text box.

[User]

Il manque le end function à la fin, j'ai corrigé sur mon dernier post...

[SorenIX]

J'ai trouvé l'erreur! L'expression donne comme réponse jeudi et non Jeudi donc le code ne le reconnaissait pas.

EDIT :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
Function JourEnAnglais(Jour As String) As String
 
Select Case Jour
 
Case "lundi"
 
JourEnAnglais = "Monday"
 
Case "mardi"
 
JourEnAnglais = "Tuesday"
 
Case "mercredi"
 
JourEnAnglais = "Wednesday"
 
Case "jeudi"
 
JourEnAnglais = "Thursday"
 
Case "vendredi"
 
JourEnAnglais = "Friday"
 
Case "samedi"
 
JourEnAnglais = "Saturday"
 
Case "dimanche"
 
JourEnAnglais = "Sunday"
 
End Select
 
End Function

Marche pour les majuscules!

[User]

Je veux rendre invisible la nouvelle entrée sur mon formulaire,

Je ne comprends pas cette phrase tu veux rendre invisible le contenu de ta textbox ?

[SorenIX]

J'aimerais bien pouvoir dire résolu mais j'ai un dernier problème... Je veux rendre invisible la nouvelle entrée sur mon formulaire, donc je vais dans les propriétés et désactive la propriété "Allow additions" mais la text box disparaît aussi

Vraiment bizarre...

EDIT :

Voilà:

http://imageshack.us/photo/my-images/19/unled4xu.png/

[User]

Si la propriété "Allow additions" de ton formulaire est à faux tu ne peux saisir de nouvelle données dans ton formulaire, donc il est logique que les zones de texte censées contenir les données soient invisibles, ceci dit je ne comprends pas trop ce que tu veux faire...

[SorenIX]

Je veux rendre invisible la nouvelle entrée. La text box est un element indépendant, je ne comprends pas qu'elle soit affectée...

http://imageshack.us/photo/my-images/19/unled4xu.png/

EDIT : La text box est encore là mais il faut que je click dessus pour la ramener au premier plan disons...

[User]

désolé je dois m'absenter:

Pour ton nouveau problème ouvre une autre discussion :

1 problème= 1 discussion

[SorenIX]

C'est bon! Merci pour ton aide, j'ai pu avancer ^^

EDIT:

Il suffisait de demander à la text box d'aller en premier plan! Va savoir pourquoi!