Loop continous form

[mb4673]

Hi guys,

I 've a problem, I have a continous form and when the form is loading it should check if "me.txtmessage" = true, output a msgbox with "me.txtname" and go on to the next record.

I only get the msgBox from the first record as often as the recordcount, or an error 2046, that I cant move to the next record.

My Code:

Private Sub Form_Load()
While Me.CurrentRecord < Me.Recordset.RecordCount
If Me.txtmessage = true Then
MsgBox Me.txtname
End If
DoCmd.GoToRecord Record:=acNext
Wend
End Sub

Please help me


Thanks!

[June7]

What are you really trying to accomplish? Why throw up message boxes?

Tested the code and it works for me.

[mb4673]

The "If" is a placeholder for my later fuction and I will change the msgBox by an email send function. This code is just a test for me to try if it works.

I also tried this code:

Dim rsf As Recordset
set rsf = me.RecordsetClone
rsf.movefirst
Do Until rsf.EOF
If Me.txtmessage = true Then
MsgBox Me.txtname
End If
End If
rsf.movenext
loop

It didnt work either.

[June7]

Your second code shows an extra End If. However, even removed code won't work because it is pulling values from the form not from the RecordsetClone.

This worked:

With Me.RecordsetClone
Do Until .EOF
    If !txtmessage Then
        MsgBox !txtname
    End If
    .MoveNext
Loop
End With

[mb4673]

Thanks, but I only get the name from the first record several times.

[June7]

Don't know why. Both approaches work perfectly for me. If you want to provide db for analysis, follow instructions at bottom of my post.

[mb4673]

I tried it on a new database but it didn't work there either.
Here is a link to my database: https://drive.google.com/open?id=1Sd...hjzRmg4pRjQjnA
In the original one are more records and it is splited into frontend and backend.

[June7]

The code is in the Current not Load event.

There are no fields named txtmessage and txtname. The RecordsetClone code is referencing the controls on form and since focus remains on record 1 only those values are read.

This works:

Private Sub Form_Load()
With Me.RecordsetClone
Do Until .EOF
    If !Feld2 Then
        MsgBox !Feld1
    End If
    .MoveNext
Loop
End With
End Sub

I also tested your original code (copy/paste, no changes) and it works.

Big difference between the two methods is the first actually navigates records on the form so when it's done focus is on last record.

[mb4673]

There shown name is not there system name, in the system they are named as I written. The code doesnt work again. I put some pictures in the attachment.

[June7]

Textboxes are named txtname and txtmessage. Fields are named Feld1 and Feld2. Use the code I provided in post 8.

[mb4673]

Ok that was the problem, thanks