Discussion :

[robert_trudel]

salut

je tente de faire exécuter une requête, mais j'obtiens toujours

run time error: 3464
data type mismatch in criteria expression

je fais afficher ma requête dans un message box, ça semble bien ok

Code :

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

1
2
 
MsgBox "select prod_federation , prod_caisse, prod_guichet, prod_employe, prod_date_collecte, prod_heure_collecte, prod_heure_debut, prod_heure_fin, prod_nb_enveloppe, prod_num_poste, prod_date, prod_pause, prod_partage, prod_autre, prod_description from tbProductivite where prod_caisse=" & txtRechCaisse.Value & " and prod_guichet = " & txtRechGuichet.Value & " and prod_date = " & DateActuelle & ")"

Code :

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

1
2
3
4
Dim DateActuelle As String
DateActuelle = "'" & Format(Now, "yyyy-mm-dd") & "'"
 
Set rst = db.OpenRecordset("select prod_federation , prod_caisse, prod_guichet, prod_employe, prod_date_collecte, prod_heure_collecte, prod_heure_debut, prod_heure_fin, prod_nb_enveloppe, prod_num_poste, prod_date, prod_pause, prod_partage, prod_autre, prod_description from tbProductivite where prod_caisse = " & "'" & txtRechCaisse.Value & "'" & " and prod_guichet = " & "'" & txtRechGuichet.Value & "'" & " and prod_date = " & DateActuelle & ";")

prod_caisse, prod_guichet sont de type string et prod_date est de type date

peut-être un guillement? j'ai tenté sans succès

j'ai mis des '' autour de la valeur de prod_description
et ça fonctionne...
il y a peut-être mieux?

[helas]

la date serait si les infos regionales sont françaises : Format(Now, "dd/mm/yyy")

De plus une chaine de caractères ne reçoit pas le résultat d'une requête
Ouvrir un formulaire ou un état me semble plus judicieux

[soltani1]

Bonjour,

Dans la requête la date est sous la forme #mm/dd/yyyy#

A+

[galaad666]

essaye avec ca

Code :

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

...prod_date = #" & DateActuelle & "#;")