fout 3022

[JEPEDEWE]

Hallo
Ik krijg volgende foutmelding tijdens het uitvoeren van mijn code:

 Dim SQL_data As String, SQL_Fiche As String, SQL_Voorschr As String, SQL_Tarief As String, prestatiedatum As String
 Dim hoog_terugbetaald As String
 Dim TB_data As Recordset, TB_Tarief As Recordset, TB_Prijs As Recordset
 Dim geattesteerd As String, sukkel As String
 Dim rek_PRIJS As Currency, rek_opleg As Currency
 Dim DATUM As Date
 Dim f As Form
 Set db = CurrentDb()
 geattesteerd = Forms![weergave rekeningen fiche]!REFERENTIE
 SQL_data = "SELECT DATA.* FROM data WHERE DATA.geattesteerd='" & geattesteerd & "' ORDER BY data.datum;"
 Set TB_data = db.OpenRecordset(SQL_data)
 kodelang2 = TB_data!KODELANG

 Forms![weergave patiënt]!KODELANG = kodelang2

'hoofdstuk FICHE
SQL_Fiche = "SELECT FICHE.* FROM FICHE WHERE FICHE.KODE='" & Left(kodelang2, 8) & "'; "
Set TB_fiche = db.OpenRecordset(SQL_Fiche)
Forms![weergave patiënt].Visible = False

'hoofdstuk VOORSCHRIFT
 SQL_Voorschr = "SELECT VOORSCHR.* FROM VOORSCHR WHERE left(VOORSCHR.kodelang,11) = left('" & kodelang2 & "',11); "
 Set TB_Voorschr = db.OpenRecordset(SQL_Voorschr)
 Opmerking = TB_Voorschr!OPMERK

'behandelingsdata aan tijdelijk bestand toevoegen
 Set TB_Prijs = db.OpenRecordset("prijsberekening")
 DoCmd.SetWarnings False
 DoCmd.RunSQL "DELETE prijsberekening.* FROM prijsberekening;"
 DoCmd.SetWarnings True


 TB_data.MoveFirst
    rek_PRIJS = 0
    terug = 0
    Te_bet = 0
    rek_opleg = 0
    Do Until TB_data.EOF
        SQL_Tarief = "SELECT Tarief.* FROM TARIEF WHERE TARIEF.CODE='" & TB_data!CODE & "';"
        Set TB_Tarief = db.OpenRecordset(SQL_Tarief)
        TB_Prijs.AddNew
            TB_Prijs!CODE = TB_data!CODE
            TB_Prijs!volgnummer = TB_data!Volgnr_behandeling
            TB_Prijs!DATUM = TB_data!DATUM
            TB_Prijs!Opmerking = TB_data!Opmerking
            TB_Prijs!prijs = TB_Tarief!prijs1
    '
    'hier tussen
    '
        TB_Prijs.Update
        TB_data.MoveNext
    Loop

de fout doet zich voor bij
TB_Prijs.Update

Wat gaat hier verkeerd...
De loop wordt blijkbaar maar 1 keer doorlopen en er wordt dus ook maar 1 record bijgemaakt

Bedankt

JP

 

[wampier]

welke velden in TB_Prijs zijn sleutels? code/volgnr?

De error is dat een van de sleutels een illegale waarde heeft. mogelijk een "0" (of invalid) waarde omdat een van de eerdere queries faalt? Heb je gecontroleerd of de PRIJS tabel wel echt leeg is?

 

[JEPEDEWE]

probleem zat in de sleutel van een van de databases
Bedankt wampierke