[VBA/ACCESS] Errore di run-time 3346

[pietrafiore]

Salve a tutti, ho un problema con Access e non so come risorverlo. Riporto qui sotto le istruzioni del linguaggio SQL:

Private Sub Form_AfterInsert()
Dim i
Dim IDPrimaNota
Dim rimanente
Dim importo_documento

If Not NonUtilizzareDocumentoCkeck.Value Then

If Tipo.Value = "E" Then
rimanente = 0 + Importo_entrate
Else
rimanente = 0 + Importo_uscite
End If


For i = 0 To Documento.ListCount
If Documento.selected(i) Then

IDPrimaNota = Documento.Column(0, i)

importo_documento = 0 + Documento.Column(8, i)

If rimanente >= importo_documento Then
rimanente = rimanente - importo_documento
Else
importo_documento = rimanente
rimanente = 0
End If

CurrentDb.Execute "INSERT INTO OrdinativiPrimaNota VALUES (" & IDPrimaNota & "," & IDordinativi.Value & "," & importo_documento & ")"


End If
Next i

Me.Requery
End If

End Sub

[alka]

Non è SQL, ma tutt'al più sembra VBA per Access, quindi è probabile che la discussione debba essere spostata.

A parte questo, qual è il problema?

[pietrafiore]

Il problema è che quando devo salvare il record di una maschera mi compare l'errore di debug. C'è qualche errore di sintassi??