[SQL ds VBA] Probleme de date ds un UPDATE

**robin des bulles** · 20/06/2006, 09h02

salut !
j'ai un tt petit probleme avec cette requete de mise à jour

Code :

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

1
2
3
4
5
DoCmd.RunSQL "UPDATE Effectuer " & _
"SET NumBordereaux = " & NumBordTemp & _
" WHERE DateActe >= #" & [TxtDateDebut] & _
"# AND DateActe <= #" & [TxtDateFin] & _
"# AND NumBordereaux IS NOT NULL ;"

Ou :
- DateActe est au format date/heure / date abrégé+ masque de saisie 00/00/00;;
- TxtDate°Debut/Fin sont au format date abrégé avec le meme masque de saisie

en effet :

Envoyé par Access

Vous allez mettre à jour 0 ligne(s)

très utile ...

alors qu'évidemment il devrait me mettre à jour plusieur lignes (ds le requeteur il me renvoie des résultat ...)

dc je pense que c'est un probleme de syntaxe mais je ne vois pas ou, j'ai beau testé et rien ni fait

merci d'avance

**random** · 20/06/2006, 09h10

comme semble vouloir le signifier son nom [TxtDateDebut
semble du texte
essaye avec cdate([TxtDateDebut

**robin des bulles** · 20/06/2006, 09h15

merci qd meme mais za marche pa ...
Txt c pour zone de texte ...

**pc75** · 20/06/2006, 09h20

Bonjour,

Dans une clause where, les dates doivent être au format US => mm/jj/aaaa

**robin des bulles** · 20/06/2006, 09h49

pourtant les requete selection fonctionne comme ca

et ... comment on fait pour convertir du jj/mm/aaaa en mm/jj/aaaa ?
ca va etre tendu a faire ...

**micniv** · 20/06/2006, 09h56

Mettre cette fonction dans un module
En passant, erci à l'auteur initial :

Code :

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

1
2
3
4
5
6
7
8
9
10
Public Function MakeUSDate(dDate As Variant) As String
'Quand vous faites une requete sous VBA avec des dates jj/mm/yyyy,
'vos dates sont interprétées en format US : mm/jj/yyyy.
'Grace a ce petit bout de code vous pouvez y remedier.
 
    If Not IsDate(dDate) Then Exit Function
 
    MakeUSDate = "#" & month(dDate) & "/" & day(dDate) & "/" & year(dDate) & "#"
 
End Function

Bonne journée

**robin des bulles** · 20/06/2006, 10h23

A oui en fait c pas si compliqué que ca ...
j'oublié que les date sont facilement décomposable

sinon j'ai réussi a trouver comme ça

Code :

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

1
2
3
4
5
DoCmd.RunSQL "UPDATE Effectuer " & _
"SET NumBordereaux = " & NumBordTemp & _
" WHERE DateActe >= #" & TxtDateDebut & _
"# AND DateActe <= #" & TxtDateFin & _
"# AND NumBordereaux IS NULL ;"

en fait c'était surtout le is not null qui ne lui plaisait pas

merci à tt ces réponses précises et rapides