Newsgroup: it.comp.appl.access
Titolo: Problemi con DLookup

Ciao a tutti, dove sto sbagliando, potete aiutarmi???
Saluti
Elìa
Private Sub Codice_AfterUpdate()
On Error GoTo Err_Codice_AfterUpdate
    Dim strFiltro As String
    strFiltro = DLookup("Codice", "tblProdotti", "Codice = " & Me!Codice & 
"")
    Me!NomeProdottoCem = DLookup("NomeProdotto", "tblProdotti", strFiltro)
    Me!NomeFornitoreCem = DLookup("NomeFornitore", "tblProdotti", strFiltro)
    Me!PrezzoUnitarioCem = DLookup("PrezzoUnitario", "tblProdotti", 
strFiltro)
    Me!PrezzoNettoCem = DLookup("PrezzoNetto", "tblProdotti", strFiltro)
Esci_Codice_AfterUpdate:
    Exit Sub
Err_Codice_AfterUpdate:
    MsgBox Err.Description
    Resume Esci_Codice_AfterUpdate
End Sub

 Ciao a tutti, dove sto sbagliando, potete aiutarmi???
Sì se ci dai indicazione di qual'è l'eventale errore;

mah! A me sembra che se fai così è meglio:
...
strFiltro = "Codice = " & Me!Codice
...
Sempre se il campo (nella tabella tblProdotti) Codice è numerico...
Ciao.
-- 
Sergio MAZZA 

 ha scritto nel messaggio 
news:ed74is$bn6$1...@area.cu.mi.it...

No il campo codice é alfanumerico
ciao

 ha scritto nel messaggio 
news:44f717a8$0$13735$5fc...@news.tiscali.it...

ho provato a modificare strFiltro = "Codice = " & Me!Codice come da te 
suggerito ma mi da lo stesso errore: Errore di sintassi(operatore mancante) 
nell'espessione della query
il campo codice é un campo alfanumerico
Grazie 

 Grazie
E se è alfanumerico come pretendi che funzioni?
(se alfanumerico)
strFiltro = "Codice = '" & Me!Codice & "'"
I valori alfanumerici devono essere racchiusi o da apici o doppie 
virgolette...
Ciao.
-- 
Sergio MAZZA 

 ha scritto nel messaggio 
news:ed8kh4$nms$1...@area.cu.mi.it...

Grazie per la spiegazione non lo sapevo,  adesso ho un secondo problema
Sotto ho inserito tutta la progarmmazione del controllo ma in fase di 
esecuzione mi da un errore:Operazione precedente annullata
PS  ho provato il filtro sia con gli apici, sia con le virgolette sia con 
tutte e due
ho provato a definire la variabile con Integer ma mi cancella i campi
Senz'altro sbaglio nella definizione ME...
Private Sub Codice_AfterUpdate()
On Error GoTo Err_Codice_AfterUpdate
   Dim strFiltro As String
    strFiltro = strFiltro = "Codice = " & Me!Codice & ""
    Me.NomeProdottoCem = DLookup("NomeProdotto", "tblProdotti", strFiltro)
Esci_Codice_AfterUpdate:
    Exit Sub
Err_Codice_AfterUpdate:
    MsgBox Err.Description
    Resume Esci_Codice_AfterUpdate
Grazie dell'aiuto che mi stai dando
Elìa 

 Elìa
Qui bisogna che spieghi dall'inizio che hai, cosa vuoi fare e del perché (e 
quando) ti esce l'errore.
Oltre al fatto che se non ti procuri un manuale di Visual Basic for 
Application (VBA) non andiamo lontani; oppre inizia ad utilizzare l'help in 
linea (attivabile con ALT-F11 poi F1) per ogni comando/funzione suggerita...
Ciao.
-- 
Sergio MAZZA 

 ha scritto nel messaggio 
news:ed8rlk$4oo$1...@area.cu.mi.it...

[la necessità]
Scusami non volevo crearti dei problemi, mi spiego
ho creato una maschera che serve per creare dei "codici articoli composti"
Nel campo [Codice]  digito il codice del prodotto che vorrei prelevare dalla 
tblProdotti e contemporaneamente mi deve inserire la descrizione il prezzo 
di listino, la marca, e il prezzo netto; infine ho creato un campo che mi 
unisce il campo Codice + degli altri parametri. lo scopo é che alla fine 
avrò un articolo con un codice diverso ma con le stesse caratteristiche di 
quello originale.
[Azione]
Quando inserisco il Codice nel" Campo Codice" e dò invio, mi dà l'errore su 
descritto
[Richiesta]
Mi puoi consigliare un buon manuale VBA
Grazie
Elìa 

 Elìa
Ciao.
-- 
Sergio MAZZA