Salve
sono nuovo del forum e saluti tutti

per chi è esperto sarà banalissimo

uso access e vorrei utilizzare la programmazione vb

ho creato un db di nome (operatore) con i seguenti campi (nome, cognome, codice, occupazione)

ho 2 maschere

in una inserisco i nuovi record

nell'altra (cercacodicedb) ho inserito una casella combinata (cbotrovacodice) che mi permette di selezionare un codice esistente, alla selezione del codice in una casella etichetta (lblnome) mi deve comparire il nome relativo al codice selezionato

il codice che ho sritto mi si blocca alla fine su - set rs = db.openrecordset(sql)

probabilmente ho fatto un po di confusione..................

vorrei anche attribuire una variabile "nome1" al valore del "nome" trovato dal codice

qualcuno mi sa dire perchè e mi saprebbe leggere in maniera comprensiva l'istruzione qsl? grazie

invierei il mio semplice db di prova ma non so se qui è possibile..........................

-------------mio codice-------------

Option Compare Database
Option Explicit
Dim nome1 As String 'attribuisco una variabile al valore del campo "nome"
-------------------------------------------------

Private Sub cbotrovacodice_BeforeUpdate(Cancel As Integer)

lblnome.Caption = "" 'casella del valora da trovare
'il DB si chiama = OPERATORE ed ha i campi (nome, cognome, codice, occupazione)

Dim Db As Database
Dim Rs As Recordset
Dim sql As String
Set Db = CurrentDb()

sql = "SELECT " _
& "operatore.[nome],operatore.[cognome], operatore.[codice], " _
& "operatore.[occupazione] " _
& "FROM operatore" _
& " WHERE (((operatore.codice)='" & [Forms]![cercacodiceDB]![cbotrovacodice] & "'));"
Set Rs = Db.OpenRecordset(sql)

nome1 = Rs![nome] 'il nome trovato viene memorizzato nella variabile "nome1"
lblnome.Caption = Rs![nome] 'la label corrisponde al nome associato al codice
'lblnome.Visible = True

End Sub