Discussion :

[BOTIGUA]

Bonjour,

une date reconstituée à partir de 3 colonnes texte (Jours, Mois, Années) par concaténation (via le signe "&") peut-elle faire l'objet d'une requête de type date() ?

Merci d'avance....

[kirgan]

Hello,
tu devrais essayer, c'est pas très compliqué à tester...

D'autre part, je ne comprend pas très bien ta question.

Si par là tu entends, manipuler ta date avec, par exemple, DatePart() ou ce genre de fonction qui prend une Date en paramètre, je suis sûr à 99% que VBA est assez permissif pour te laisser mettre une chaîne de caractères. Donc quelque chose du style

Code :

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

1
2
3
4
5
 
Public MaDate as String
Public Week as Integer
MaDate = "28" & "/" & "04" & "/" & "2006"
Week = DatePart("ww", MaDate, vbMonday, vbFullWeek)

doit probablement passer. A toi de récupérer tes champs textes à la place de mes strings en dur...


Et puis tu peux aussi jeter un coup d'oeil ici si tu parlais plutot SQL que VB :
http://www.developpez.net/forums/showthread.php?t=56335

[Alain LF]

tu peux aussi utiliser la fonction CDate pour que ce soit reconnu comme une date:
CDate([tonChampJour] & "/" [tonChampMois] & "/" [tonChampAnnée])

alain

[BOTIGUA]

Merci pour votre aide .

J'ai mal identifié le problème...sorry !

La requête fonctionne sur le champ concaténé.

Mon problème vient du fait que la colonne "mois" dont je me sert pour la concaténation (avec une colonne "année", et une colonne "jours"), inscrit ses enregistrements sans le "0" devant. Dès lors, une requête avec pour critère "date()", ne renvoie rien car il cherche le 28/04/2006, et il tombe sur "28/4/2006"...résultat nul.

Comment puis-je ajouter ce "0" lorsque qu'il manque ?

merci d'avance....

[LedZeppII]

Bonjour,
Tu peux aussi utiliser

Code :

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

1
2
DateSerial(Clng(ChampAnnee), Clng(ChampMois), Clng(ChampJour))

qui aura l'avantage de fonctioner quel que soit le format d'affichage de la date de ton système.
Note: DateSerial(Clng("2006"), Clng("4"), Clng("1")) et DateSerial(Clng("2006"), Clng("04"), Clng("01")) renvoient la même date.
Voir aussi dans la FAQ http://access.developpez.com/faq/?page=dates
A+