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
apaul - 13 mai 2005 à 16:08
A voir également:
- SQL VB: pb date
- Vb - Télécharger - Langages
- Vb cable - Télécharger - Audio & Musique
- Sql server recovery - Télécharger - Gestion de données
- Logiciel sql - Télécharger - Bases de données
- Sql pix - Forum Python
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
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