Access Vba tabel bewerken met Vba

[woltersgert]

Hallo Forum,

in de meegeleverde access database zit slechts 1 tabel.

Wat ik moet gaan regelen met Vba is het volgende:

In de kolom Volgnummer moet een 1 komen te staan bij de volgende voorwaarde:

Bij de eerste unieke waarde van BsnIndicatie, krijgt volgnummer het nieuwe nummer 1.

Hoe moet je dit programmeren?

ik heb zelf onderstaande code geprogrammeerd, maar deze werkt niet helemaal goed.

Sub DummyTabelBijwerken()

Dim DB As Database
Dim RS As Recordset

Set DB = CurrentDb
Set RS = DB.OpenRecordset("tblDummy", dbOpenDynaset)

Do
Dim Eerste
Eerste = RS!BsnIndicatie
MsgBox "de waarde van eerste is: " & Eerste

RS.MoveNext

If RS.EOF Then
Exit Do
End If

MsgBox "Volgende record: " & RS!BsnIndicatie

If Eerste <> RS!BsnIndicatie Then
RS.Edit
RS!Volgnummer = 1
RS.Update
End If

Loop Until RS.EOF


End Sub

Met vriendelijke groet,

Gert Wolters

 

[OctaFish]

Je hebt de draad wel gesloten, maar ik zie niet of je ook een oplossing hebt gevonden. Dus mocht dat niet het geval zijn: hier een oplossing. In jouw code zitten namelijk inderdaad wat foutjes...

Dim DB As Database
Dim RS As Recordset
Dim iCheck As Boolean
Dim iVolg As Integer
Set DB = CurrentDb
Set RS = DB.OpenRecordset("tblDummy", dbOpenDynaset)
RS.MoveFirst
Dim Eerste, Volgende
Do While Not RS.EOF
    If iCheck = False Then
        Eerste = RS!BsnIndicatie
        RS.Edit
        RS!Volgnummer = 1
        RS.Update
        iVolg = 1
        iCheck = True
        GoTo VolgendRecord
    Else
        Volgende = RS!BsnIndicatie
        If RS.EOF Then Exit Do
        If Eerste <> Volgende Then
            RS.Edit
            RS!Volgnummer = 1
            iVolg = 1
            RS.Update
        Else
            iVolg = iVolg + 1
            RS.Edit
            RS!Volgnummer = iVolg
            RS.Update
        End If
        Eerste = Volgende
VolgendRecord:
        RS.MoveNext
    End If
Loop
RS.Close