[AC-2007] Pb Dlookup sur date

[vversaveau]

Bonjour,

J'ai un problème sur un dlookup.
[mois] est une date au format mmmmyyyy dans une requête r_visu_prev_achat
ex : 01/04/2011 donne avril2011
Je veux le champ qte_prev dans la requête r_visu_achat en fonction du mois

Code :

1
2
 
MsgBox DLookup("qte_prev", "r_visu_prev_achat", "[mois]=" & avril2011)

Merci d'avance !
Et n'hésitez pas pour les précisions
Ci-joint la base

[LedZeppII]

Bonjour,

Etant donnée que la date contenue dans le champs [mois] est toujours le 1er du mois, on peut faire comme ça :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Private Sub Commande0_Click()
 
taille1 = "20/24"
' Date 1er du mois pour une année donnée
dtPremierDuMois = DateSerial(2011, 4, 1)
' Conversion date en chaîne au format #mm/dd/yyyy#
test = "#" & Format(dtPremierDuMois, "mm\/dd\/yyyy") & "#"
' Faire DLookup
vlookup = DLookup("qte_prev", "r_visu_prev_achat", "[mois]=" & test & " and [taille] = '" & taille1 & "'")
' Si resultat DLookup est Null
If IsNull(vlookup) Then
   MsgBox "Rien trouvé"
' Sinon afficher résultat
Else
   MsgBox "qte_prev = " & vlookup
End If
End Sub

A+