Salve Forum
Ho una tabella con tutti gli Articoli acquistati nell'anno.
Ovviamente lo stesso articolo può essere stato acquistato più volte.
Ho l'esigenza di catturare, per un determinato articolo, sia l'ultima data di acquisto che il relativo prezzo.
Per varie ragioni ho trovato molto comodo utilizzare il DLookup ed il DMax con la routine che allego.
Sub myLP()
' Restituisce l'ultimo prezzo di e l'ultima data di acquisto dell'Articolo
Dim LastPrice As Currency
Dim LastDate As Date
Dim EAN As String
EAN = "8033830085710" 'codice di 13 cifre formattato come testo
LastDate = DMax("Data_acquisto", "[tbl_LastPrice]", "Barcode = '" & EAN & "'")
LastPrice = DLookup("[Prezzo_Acquisto]", "[tbl_LastPrice]", "Barcode = '" & EAN & "' AND [Data_Acquisto] = #" & LastDate & "#")
MsgBox "L'Articolo è stato acquistato l'ultima volta il " & LastDate & " al prezzo " & LastPrice
End Sub
Di fatto LastDate viene correttamente valorizzata ma LastPrice mi restituisce il messaggio "Utilizzo non valido di Null"
C'è qualcosa di errato nella sintassi del LastPrice nella seconda parte del criterio di ricerca
Potreste dirmi dove sbaglio?
grazie mille!!