Non funziona neanche cosi...
forse perche quando seleziono un cliente nella combo box e premo su OK mi da l'errore: "il driver ODBC non supporta le proprietà richieste"
Questo qui sotto è il codice del pulsante seleziona nella combo:
codice:
Private Sub cmdseleziona_Click()
If cmbseleziona.Text = "" Then ' VERIFICO CHE SIA SELEZIONATO UN RECORD REALE, NON VUOTO
lblMessaggio.Caption = "Selezionare un Utente valido"
Else
lblMessaggio.Caption = ""
' UTILIZZO LA FUNZIONE SPLIT PER RECUPERARE IL VALORE ID NELLA COMBO BOX
s = Split(cmbseleziona.Text, " ")
Set cn = New ADODB.Connection
Set rs = New ADODB.Recordset
' APRO LA CONNESSIONE E LANCIO LA QUERY PER RECUPERARE IL RECORD SELEZIONATO
cn.Open "driver={Microsoft Access Driver *.mdb)};dbq=C:\Documents and Settings\Francesco\Documenti\data.mdb"
rs.Open "SELECT * FROM clienti WHERE id =" & CInt(s(0)), cn, 1
' RIEMPIO I CAMPI DELLA FORM CON I VALORI ESTRATTI DAL DATABASE
txtnome.Text = rs("nome").Value
txtcognome.Text = rs("cognome").Value
txtindirizzo.Text = rs("indirizzo").Value
txttelefono.Text = rs("teleabitazione").Value
rs.Close
cn.Close
End If
End Sub
E nella riga in grassetto mi da errore! Ci capite qualcosa? Grazie!