Sincronizzazione campi database access

[Pegasus_75]

Chiedo scusa per l'OT e riposto in questa sezione come consigliato da daniele_dll.

Pegasus_75 30-03-2010 10:36
Ciao a tutti. Ho creato un database in ms access e vorrei che, inserendo un valore di testo in una combobox compaia in automatico il valore ad esso associato in un altra campo testuale.

Es.:
Casella combinata "Descrizione": Mele
Casella testo "Prezzo": € 0,50
Inserendo la descrizione Mele, deve comparire automaticamente nel campo prezzo il valore € 0,50.

Qualcuno potrebbe spiegarmi come fare?

Grazie

nicola75ss 30-03-2010 11:01
codice:
Private Sub cmbProdotto_AfterUpdate()
Me.txtPrezzo.Value = DLookup("prezzo", "nome_tabella", "prodotto=" & Chr(34) & Me.cmbProdotto.Value & Chr(34))
End Sub


All'evento dopo aggiornamento della combobox associ la funzione dlookup. L'esempio mi sembra chiaro. Se hai qualche dubbio documentati sullla sintassi della funzione

http://www.techonthenet.com/access/...ain/dlookup.php

Pegasus_75 30-03-2010 14:35
Ciao Nicola e grazie per la risposta.
Ho fatto come hai detto, ma il risultato non è quello sperato.
Ti mando un esempio che ho realizzato e ti prego, se possibile, di farmi sapere dove sbaglio.
http://www.snapdrive.net/files/633815/Prova.zip
Grazie 1000

[VanessaInfo]

molto più semplicemente potresti creare 2 combo nella prima (combo_descrizione) scegli dalla tabella
codice; descrizione

dalla seconda (combo_prezzo): codice; prezzo

all'uscita della prima (combo) dai il codice:
- me.combo_prezzo.codice=me.combo_descrizione.codice
(il codice non visualizzarlo -> quindi dai come larghezze colonnne (2) 0;5)

brutta a vedersi...

io farei

che sumodifica di combo_descrizione mi va a selezionare dalla tabella T_Prodotti quello con codice combo_Descrizione_codice e mi imposta me.prezzo=quel prezzo.

Ricerca= currentdb.openrecordset ("select * from T_Prodotti where Cod_prod=" & me.combo_Descrizione.colun(0))
-> la prima colonna che avrai reso invisibile nella combo
if not ricerca.eof then
ricerca.movefirst
me.prezzo = ricerca.prezzo
end if

P.S.: per usare queste funzioni però devi abilitare alcune cosuccie sui riferimenti (trovi nell'ehlp)

ciao

VaneX