Errore di sintassi come riportato di seguito.
sarà una questione di apici?
Sub salva_record(nrOld, nrNew)
Dim msg
Dim j
'nrOld = numero di riga precedente
'nrNew = numero di riga corrente
'VSF3 = Griglia
'data1 = controllo ADODC
'salvataggio del record nrOld nel file MDB
data1.Recordset.Close
msg = "SELECT * FROM datiInput WHERE (Numero = " & Str(nrOld) & ")"
data1.Recordset.Open msg ' ERRORE di run-time '-2147217900 (80040e14)':
' Errore di sintassi nella proposizione FROM
VSF3.row = nrOld
For j = 1 To VSF3.Cols
VSF3.Col = j
data1.Recordset.Fields("" + fieldsName(j) + "") = VSF3.Text
Next j
data1.Recordset.Update
'rimette il numero di riga corretto
VSF3.row = nrNew
End Sub

Rispondi quotando