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