geen huidig record

[JEPEDEWE]

Ik schrijf volgende code:

    Dim db As Database
    Dim TB As Recordset
    Dim sql As String, sql_bet As String
    toer = 1
    Set db = CurrentDb()
    sql = "SELECT Betalingen.REFERENTIE, betalingen.[Op_naam_van] FROM betalingen WHERE Betalingen.Kode='" & Me!naamlijst.Column(1) & "' AND Betalingen.BETAALD=False AND Betalingen.Pingping=True;"
    Set TB = db.OpenRecordset(sql)
        TB.MoveLast
        TB.MoveFirst
        Do While Not TB.EOF
            If toer = 1 Then
                Me.TXT_referentie = TB!REFERENTIE
            Else
                Me.TXT_referentie = Me.TXT_referentie & "-" & TB!REFERENTIE
            End If
            TB.MoveNext
            toer = toer + 1
        Loop
        If Me.naamlijst.Column(2) = True Then
            Me.bedrag_overschrijving = " "
        Else
            Me.bedrag_overschrijving = DSum("[BEDRAG_a]", "[betalingen]", "Kode=""" & Me.naamlijst.Column(1) & """ AND Betaald =False AND Pingping=True")
        End If
        If TB![Op_naam_van] = "A" Then
            Me.thera = DLookup("[Naam]", "Data", "[Initiaal]='A'")
            Me.bankrekeningnummer = DLookup("[Bank]", "data", "[Initiaal]='A'")
        Else
            Me.thera = "Firmanaam"
            Me.bankrekeningnummer = "BE123456"
            DoCmd.OpenReport "Overschrijvingsformulier"
        End If

ik krijg op de lijn:
If TB![Op_naam_van] = "A" Then

de foutmelding dat er geen "huidig record" gevonden wordt

Doe ik dan ? sql
en ik laat deze lopen
krijg ik netjes de lijst te zien met het correcte record en de correcte waarde voor "op_naam_van"
Wat gaat er fout in mijn code?

Dank

 

[xps350]

Je hebt de hele recordset al doorlopen in de Do while loop. TB.EOF is True, dus er is geen huidig record.
Misschien laatste stuk code in de loop opnemen?

 

[JEPEDEWE]

Ik voegde TB.Movefirst to en probleem was opgelost
Dank voor je nuttige hulp
JP