Help with loop

  • Thread starter Thread starter Lasse T
  • Start date Start date
L

Lasse T

Hello.
Can anyone se what is wrong? I try to update "fakturanummer" (= invoice
number) in a continous form. The highest number in the table right now is
1000 and there is 8 posts in the form. The loop runs eight times but all in
the first post of the form. It counts up from 1001 to 1008 in the first post
of the form and do nothing in the rest.

Private Sub Kommandoknapp32_Click()
With Me.RecordsetClone
If .RecordCount > 0 Then
.MoveFirst
Do While Not .EOF
.Edit
Me!Faktnr = DMax("fakturanummer", "order") + 1
.Update
.MoveNext
Loop
End If
End With

End Sub

Thanks in advance.

Lasse T
--------------
 
Your update is being applied to the current record in the form (me!Faktnr)
rather than the record accessed by the recordsetclone (which would be
..fields("Faktnr"))

Change the line after .Edit to:
.fields("Faktnr") = DMax("fakturanummer", "order") + 1

or to
!Faktnr = DMax("fakturanummer", "order") + 1
 
Yesss !!!!

Thank you so much. Works perfect.

Lasse T
-------------

Sandra Daigle said:
Your update is being applied to the current record in the form (me!Faktnr)
rather than the record accessed by the recordsetclone (which would be
.fields("Faktnr"))

Change the line after .Edit to:
.fields("Faktnr") = DMax("fakturanummer", "order") + 1

or to
!Faktnr = DMax("fakturanummer", "order") + 1

--
Sandra Daigle
[Microsoft Access MVP]
For the benefit of others please post all replies to this newsgroup.

Lasse said:
Hello.
Can anyone se what is wrong? I try to update "fakturanummer" (= invoice
number) in a continous form. The highest number in the table right now is
1000 and there is 8 posts in the form. The loop runs eight times but all
in the first post of the form. It counts up from 1001 to 1008 in the
first post of the form and do nothing in the rest.

Private Sub Kommandoknapp32_Click()
With Me.RecordsetClone
If .RecordCount > 0 Then
.MoveFirst
Do While Not .EOF
.Edit
Me!Faktnr = DMax("fakturanummer", "order") + 1
.Update
.MoveNext
Loop
End If
End With

End Sub

Thanks in advance.

Lasse T
--------------
Click to expand...
Click to expand...
 
Back
Top