requete/base données

Question

Bonjour
Ma requete ne fonctionne pas,un message d'erreur me dit "type de données incompatible dans l' expression du critere". Mes champ sont bien au format date.Et si j'essaye avec juste une date precise ça marche!
Pouvez vous m'aider? J' suis pommé!
Eric
Mon code:
Private Sub cmdRechercheTIV_Click()

Dim RechercheTIV As String
Dim DateEcheanceTIV As Date
DateEcheanceTIV = DateAdd("yyyy", -1, Date)
'Recherche des TIV à écheance
RechercheTIV = " Select [N° CRP],[PROPRIETAIRE],[DATE DERNIER TIV] from [BLOC] where [DATE DERNIER TIV] <=' " & DateEcheanceTIV & " ' "
'Identification de la DB et la table à lire
Data3.DatabaseName = "CLAUDIABASE"
Data3.RecordSource = RechercheTIV
MSFlexGrid2.Visible = True

'Open de la DB
Data3.Refresh

End Sub

cs_jym · Answer

bjr,

attention dans les requêtes les dates doivent être au format américain.  je l'ai déjà lu pas mal de fois sur les forums.

si ça aide...

bon code

jym

Lguerrault · Answer

Salut,

si tu travailles sur access, essaie ceci
RechercheTIV = " Select [N° CRP],[PROPRIETAIRE],[DATE DERNIER TIV] from [BLOC] where [DATE DERNIER TIV] <=# " & format(DateEcheanceTIV,"MM/DD/YYYY") & " # "

A+

Requete/base données

2 réponses

Discussions similaires