Discussion :

[robert_trudel]

salut

à l'exécution de ce code, j'obtiens l'erreur 3464
Date type mismatch in criteria expression

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Dim db As Database
Dim rs As Recordset
Dim strSQL As String
 
Dim strDate As Date
 
'je lis dans un fichier une valeur que j'affecte à strDate, idem pour caisse et guichet
 
strSQL = "select count(*) from Reception where recCaisse=" & caisse & " and recGuichet=" & guichet & " and recDateCollecte=" & "'" & strDate & "'"
 
Set rs = db.OpenRecordset(strSQL)

recCaisse, recGuichet sont de type text
recDateCollecte est de type Date


une idée?

[Mahefasoa]

Salut,

Il y a ici un problème de délimiteur:
Si le critère est de type texte, alors le délimiteur de la valeur à comparer est le simple quote (') ou le double quote ("), c'est à dire les guillemets.
Si le critère est de type Date et heure, le délimiteur est la dièse (#).
Si le critère est un champ ou un contrôle d'un formulaire, alors le délimiteur est le crochet ([).
Si c'est numérique, aucun délimiteur.
Comme tu disais

recCaisse, recGuichet sont de type text
recDateCollecte est de type Date

Alors, ton code se transforme en

Code :

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

1
2
3
4
5
6
'Ancien code
strSQL = "select count(*) from Reception where recCaisse=" & caisse & " and recGuichet=" & guichet & " and recDateCollecte=" & "'" & strDate & "'"
                                               
'Nouveau code
strSQL = "select count(*) from Reception where recCaisse Like '" & caisse & "' and recGuichet Like '" & guichet & "' and recDateCollecte=#" & strDate & "#;"

La différence est en gras.
Je préfère utiliser Like à la place de égale pour le texte.

Bon courage et @+

[pc75]

Bonjour,

Et j'ajouterai aux explications de Mahefasoa que dans une clause where, une date doit être au format US => mm/dd/aaaa

[Mahefasoa]

Re,

Oui, et je me rejoins à pc75 pour cette remarque.
Toutefois, il est aussi possible que les "variables" que tu utilises sont vides et dans ce cas, utilise la fonction nz pour palier ce problème.

Bon courage et @+

[robert_trudel]

j'obtiens error 13 type mismatch

j'ai donc tenté de réduire la requête au minimum

"select * from reception"

Dim db As Database
Dim rs As Recordset
Dim strSQL As String
Dim strDate As Date

set db = currentdb()

'future boucle ici

strSQL = "select * from reception"
Set rs = db.OpenRecordset(strSQL)

'future fin de boucle

j'obtiens alors le même message d'erreur
pourtant aucun problème dans le modèle de requête de access...

[robert_trudel]

en rajoutant dao devant database et recordset, ça fonctionne