Guarda questo è il codice
codice:
Dim sqlstring As String
Dim db1 As Database
Dim rs1 As Recordset
sqlstring = "select * from cat1 where codice = " & codice & " AND tipo = " & List1 & " "
Set db1 = OpenDatabase(App.Path & "\database.mdb", False, False)
Set rs1 = db1.OpenRecordset(sqlstring)
Set Data2.Recordset = rs1
If Not Data2.Recordset.EOF Then
Do While Not Data2.Recordset.EOF
cod = (Data2.Recordset.Fields("codice"))
Data2.Recordset.MoveNext
Loop
Else
MsgBox "Nessun record"
se sulla finestra immediata scrivo
mi da cosi:
codice:
select * from cat1 where codice = y8fub AND tipo = disco
e mi sembra sia corretto, ma restituisce errore 3061 "parametri insufficienti"
e evidenzia in giallo questo riga
codice:
Set rs1 = db1.OpenRecordset(sqlstring)
sai darmi una mano??
grazie mille