SQL VB: pb date

Fermé
gu!ll@ume Messages postés 11 Date d'inscription jeudi 30 octobre 2003 Statut Membre Dernière intervention 9 janvier 2004 - 1 nov. 2003 à 10:37
 apaul - 13 mai 2005 à 16:08
Salut

J'ai un probleme de requete SQL en VB sous Access 2000.

le contexte:
Je cherche a obtenir le code maximum pour des critères bien précis séléctionnnés dans un formulaire.Hélas dans la requete le critère de recherche sur la date ne marche pas.

voici la requete:

Dim req As String
Dim base As Database
Dim enreg As Variant
Dim num_ordre As String


Set base = CurrentDb
req = "select max(livrer.code_ordre_livrer) as code_ordre from livrer " _
& " WHERE code_exploitant_livrer = " & Forms![saisie_livraison]![code_exploitant_livrer] & "" _
& " AND code_cereale_livrer = " & Forms![saisie_livraison]![code_cereale_livrer] & "" _
& " AND date_livraison = #" & Forms![saisie_livraison]![date_livraison] & "#;"

Set enreg = base.OpenRecordset(req)

dans ma table le format de la date est 00/00/000;0;

si j'enleve la selection sur la date, la requete marche très bien.

je vous remerci d'avance


Ajourd'hui ca va!!
Mais demain ca ira mieux!
A voir également:

1 réponse

Dim req As String
Dim base As Database
Dim enreg As Variant
Dim num_ordre As String
Dim WStrDate As String

WStrDate = "#" & Month(01/08/1996) & "/" & Day(01/08/1996) & "/" & Year(01/08/1996) & "#"


Set base = CurrentDb
req = "select max(livrer.code_ordre_livrer) as code_ordre from livrer " _
& " WHERE code_exploitant_livrer = " & Forms![saisie_livraison]![code_exploitant_livrer] & "" _
& " AND code_cereale_livrer = " & Forms![saisie_livraison]![code_cereale_livrer] & "" _
& " AND date_livraison = " & WStrDate & ";"

Set enreg = base.OpenRecordset(req)
http://multibases.site.voila.fr
0