VB Access (convalida campo)

[marcomau]

Salve a tutti.

Devo realizzare questo controllo: una volta inserito sulla maschera il valore "quantità", mi va a vedere se questo valore è inferiore al valore "Scorte" presente su un'altra tabella. Se "quantità" è superiore a "scorte" esce un errore, altrimenti mi popola in automatico il campo "PrezzoTotale" facendo PrezzoUnitario*quantità.

il codice è questo:

Dim v_id, v_scorte As Integer
Dim v_prezzo As Double

v_id = Me.IDProdotto

v_scorte = DLookup("Scorte", "Prodotti", "IDProdotto = " & v_id & "")

If Me.Quantità > v_scorte Then
MsgBox "errore"
Else
v_prezzo = DLookup("PrezzoUnitario", "Prodotti", "IDProdotto = " & v_id & "")
Me.PrezzoTotale = Me.Quantità * v_prezzo
End If

Mi da un errore (operatore mancante) alla 4 riga (v_scorte...)
la sintassi per quella funzione sembra giusta..
Non sono pratico con VB, cosa manca?

Grazie

[marcomau]

Risolto, sbagliavo la sitassi della funzione DLookup. Quella corretta è:

v_scorte = DLookup("Scorte", "Prodotti", "DescrizioneProdotto = '" & v_prod & "'")

Questioni di apici e doppi apici, differenti nell'interpretazione delle stringhe da parte di VB ed SQL..