records bijwerken - loop werkt niet

[jwaque]

Ik moet een groot aantal records bijwerken. Nu kan ik dit met de hand. Maar dan moet het volgende keer weer met de hand. dus wil ik het automatiseren.
Ik dacht aan een knop op een doorlopend formulier. de knop doet wel een record bijwerken maar niet het volgende. iemand tips waar mijn loop fout gaat.

'With CurrentDb.OpenRecordset("Detaillijst")
'    .MoveFirst
'    Do While Not .EOF
'
'        If me.txtLocatie = "BV Bharijnstraat" Then
'             me.txtLocatie = "IM_BV Bharijnstaat"
'        End If
'        If me.txtLocatie = "BV eekhoorn" Then
'             me.txtLocatie = "IM_BV eekhoorn"
'        End If
'    .MoveNext
'    Loop
'End With

heb het ook ander geprobeerd maar dat werkt ook niet

Dim r As Recordset

Set d = CurrentDb
Set r = d.OpenRecordset("detaillijst")

Do Until r.EOF

    If r("locatie") = "BV Bharijnstraat" Then
       r("locatie") = "IM_BV Bharijnstaat"
       r.Update
    End If
    If r("locatie") = "BV eekhoorn" Then
    r("locatie") = "IM_BV eekhoorn"
    r.Update
    End If
r.MoveNext

Loop

waar gaat het fout in mijn loop

 

[OctaFish]

Waarom maak je niet twee bijwerkqueries die je laat lopen met de knop?

Dim strSQL As String
strSQL = "UPDATE detaillijst SET locatie = 'IM_BV eekhoorn' WHERE (locatie='BV eekhoorn');"
CurrentDb.Execute strSQL, dbFailOnError
strSQL = "UPDATE detaillijst SET locatie = 'IM_BV Bharijnstaat' WHERE (locatie='BV Bharijnstraat');"
CurrentDb.Execute strSQL, dbFailOnError

 

[jwaque]

dank je wel. ik ga het uitproberen.
ik had wel gestoeid met 2 bijwerk querys maar had dat in de sql van de query geprobeert.

Het is me ook gelukt door de r.update na de end if ipv ervoor te zetten.