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
Rispondi quotando
