Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Access date et erreur

date et erreur

2 réponses
Avatar
matt
j'ai besoin de r=E9cup=E9rer dans un champs les valeurs de 2=20
menu d=E9roulants l'un avec des chiffres l'autre avec les=20
mois de l'ann=E9e sous le format "lundi 18/mai/2002"
Pour cela j'ai =E9crit le code : Champs=3Dformat(dateserial
(year(date),liste1,liste2),"dddd dd/mm/yy)
Mais quand je l'=E9xecute y me sort une erreur 13=20
incompatibilit=E9 de type
Comment Faire????
Merci d'avance
Signaler un problème avec ce contenu

2 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Daniel Carollo
Bonjour Matthieu!

Je presume que les mois de l'annee sont en lettres, puisque vous avez dit
que les jours sont en chiffres. Essayez plutot
Champs=format(CDate(year(date) & "-" & liste2 & "-" & liste1),"dddd
dd/mmmm/yyyy). Oui, j'ai mis le jour avant le mois, pour suivre le format a
Mericain.

J'espere que ca vous donne une piste...

--
Daniel :-)

Computing Technologies International - www.computing-tech.com
We provide solutions...
P.S. Je suis maintenant disponible pour contrats à courte et moyenne durée.
Envoyer un courrier a: d a n i e l c @ c o m p u t i n g - t e c h . c o
m

"matt" wrote in message
news:09be01c346cc$066bd9f0$
j'ai besoin de récupérer dans un champs les valeurs de 2
menu déroulants l'un avec des chiffres l'autre avec les
mois de l'année sous le format "lundi 18/mai/2002"
Pour cela j'ai écrit le code : Champs=format(dateserial
(year(date),liste1,liste2),"dddd dd/mm/yy)
Mais quand je l'éxecute y me sort une erreur 13
incompatibilité de type
Comment Faire????
Merci d'avance
Avatar
matt
-----Message d'origine-----
Bonjour aussi,

matt
j'ai besoin de récupérer dans un champs les valeurs de 2
menu déroulants l'un avec des chiffres l'autre avec les
mois de l'année sous le format "lundi 18/mai/2002"
Pour cela j'ai écrit le code :


Tu as écrit ? Ah bon ;-)


Champs=format(dateserial (year
(date),liste1,liste2),"dddd dd/mm/yy)





"DateSerial" doit recevoir les arguments dans l'ordre :

DateSerial(Anné,Mois, Jour)

et donc, pour toi :

DateSerial(Year(Date), ListeMois, ListeJour)

Remarque: les deux listes doivent "afficher" le choix, ne
pas être vide lors de l'appel.


Eventuellement, vérifier par code sur "Après mise à jour"
de la seconde liste...


If IsNull(Liste1) OR IsNull(Liste2) Then
exit sub
End If
If IsDate(DateSerial(Year(Date),Liste2,Liste1)) Then
AutreChamp = Format(Dateserial(Year
(Date),Liste2,Liste1),"dddd dd/mm/yyyy")

Else
MsgBox "Pas de date valide..."
End If


Bien sûr, adapter le noms des listes...

PS: La prochaine fois, tu reste dans le fil...


--
A+
Pierre (3stone) Access MVP
--------------------------------------
Une pour tous, tous pour une ;-)
http://users.skynet.be/mpfa/
--------------------------------------


Merci désolée je n'ai pas écrit le code
.