fout 3022

 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