Ho una maschera nella quale, inserendo un codice, vorrei ottenere descrizione, prezzo etc.. dell'articolo corrispondente. Il codice che uso è il seguente:


codice:
Private Sub Testo0_AfterUpdate()

    Dim Cod As String
    
    Cod = Me!Testo0.Value
          
    Testo2 = DLookup("[Descrizione]", "LISTINO PREZZI", "[Codice] = " & Cod)

End Sub
Ovviamente "Testo0" è il campo dove inserisco il codice e "Testo2" è quello dove vorrei che apparisse la descrizione.

Mi spiegate perché non funziona e Access continua a darmi il seguente errore?



codice:
Errore di run-time '3464':

Tipi di dati non corrispondenti nell'espressione criterio.
Ho provato a dichiarare la variabile "Cod" con vari formati, ma non c'è stato verso.

L'unico modo per far funzionare questo metodo è il seguente:


codice:
Testo2 = DLookup("[Descrizione]", "LISTINO PREZZI", "[Codice] = Testo0")
Ma visto che vorrei creare un modulo con una funzione che possa lavorare con i dati provenienti da più maschere, devo per forza trovare il modo di far funzionare il codice con la variabile, non con i dati provenienti dal campo testo della maschera.

Spero di essermi spiegato!