DoCmd.GoToRecord , , acNext

[winjohan]

This function i use to copy some values in my continious form

Private Sub keuzeNPDbonnummer_LostFocus()
On Error GoTo Err_handler
Dim rst As Recordset
Dim fld As Field
Dim aantalrecords, xx As Integer
Set rst = RecordsetClone
If IsNull(Me.keuzeNPDbonnummer) Or (Me.keuzeNPDbonnummer.Value) = "" Then GoTo eindesub
aantalrecords = rst.RecordCount

Do While xx < aantalrecords
xx = xx + 1
Me.[NPD Bonnummer] = Me.keuzeNPDbonnummer
Beep
DoCmd.GoToRecord , , acNext
Debug.Print xx
Loop

The problem is the docmd.gotorecord,,acnext
It looks like you can't use that in a loop, am i correct ?

There are for example three record in this form and i want to copy some stuff from a unbound field in these 3 records
But i get the message Can't go to this record (the fields ( NPD Bonnummer) are changed)
All help needed
Thanks and greeting from holland

 

[WayneRyan]

winjohan,

Try:

While Not rst.EOF and Not rst.BOF
' your code
rst.MoveNext
Wend

hth,
Wayne

 

[winjohan]

THanks for your time wayne

I solved the problem see below

Private Sub buttonupdaterecords_Click()

On Error GoTo Err_handler
Dim rst As Recordset
Set rst = Recordset.Clone()
With rst
If IsNull(Me.keuzeNPDbonnummer) Or (Me.keuzeNPDbonnummer.Value) = "" Then GoTo Keuzeverzendwijze
.MoveFirst 'naar eerste record gaan
Do Until .EOF
.Edit 'record open voor veranderen
![NPD Bonnummer] = Me.[keuzeNPDbonnummer] 'record veld NPD bonnumer wordt veranderd
.Update 'verandering in recordset clone set opnemen
.MoveNext 'volgende record
Loop

Keuzeverzendwijze:
If IsNull(Me.Keuzeverzendwijze) Or (Me.Keuzeverzendwijze.Value) = "" Then GoTo keuzeverzendbonnummer
.MoveFirst 'naar eerste record gaan
Do Until .EOF
.Edit 'record open voor veranderen
!verzendwijzeid = Me.Keuzeid
.Update 'verandering in recordset clone set opnemen
.MoveNext 'volgende record
Loop

keuzeverzendbonnummer:
If IsNull(Me.keuzeverzendbonnummer) Or (Me.keuzeverzendbonnummer.Value) = "" Then GoTo eindesub
.MoveFirst 'naar eerste record gaan
Do Until .EOF
.Edit 'record open voor veranderen
![Bonnummer] = Me.[keuzeverzendbonnummer] 'record veld bonnumer wordt veranderd
.Update 'verandering in recordset clone set opnemen
.MoveNext 'volgende record
Loop

eindesub:
End With
Set rst = Nothing
Me.Requery
keuzeverzendbonnummer.SetFocus
Exit Sub

Err_handler:
MsgBox Err.Description
Resume eindesub

End Sub