Looping in a Subform

[ccookson]

The following code is part of a button (on click) that places a check (true) in a filtered subform. The subform is a set of continuous forms. The checks are placed but it gives an error message that it can’t go to the next record. When I try to step through it, a check is placed in the first record but errors out before it starts to loop?

x = Me.Text6
Screen.PreviousControl.SetFocus
DoCmd.GoToRecord , , acFirst
 
    Do While x > 1
    Me.Check48 = True
    DoCmd.GoToRecord , , acNext
    x = x - 1
    Loop

[Stewart Ross]

...The checks are placed but it gives an error message that it can’t go to the next record. When I try to step through it, a check is placed in the first record but errors out before it starts to loop?

x = Me.Text6
Screen.PreviousControl.SetFocus
DoCmd.GoToRecord , , acFirst

Do While x > 1
Me.Check48 = True
DoCmd.GoToRecord , , acNext
x = x - 1
Loop

When you say it errors before it starts to loop, is it when you execute the Docmd.GotoRecord statement? If so, it is likely to be because you have not stored the current record which has been updated. If the error is at the GotoRecord, add a save statement just before it:

DoCmd.Save ,,

-Stewart

[NeoPa]

Can you tell us which line the error occurs on and what the error message is?

[ccookson]

the error occurs at the "DoCmd.GoToRecord , , acNext"

I have added a save just before the DoCmd.GoToRecord , , acNext:

    Do While x > 0
    Me.Check48 = True
    DoCmd.Save
    DoCmd.GoToRecord , , acNext
    x = x - 1
    Loop

However, this still results in the same error

[NeoPa]

... and what the error message is?

[ccookson]

Sorry...

Run-time error '2105':

You cant go to the specified record

[NeoPa]

I would have expected that Scott was right about the save. I can see no other reason why going to the next record might fail. Is there a next record? Maybe there are no more records in your recordset. I'm grasping at straws here as I really can't see the problem. I'm sorry.