Bookmark (1 Viewer)

kirkm · Jul 3, 2019

I'm a bit confused about Bookmark.
I have the following code

Code:

 Set rtable = Form_Mysubform.Form.RecordsetClone
   rtable.FindFirst "Prefix = '" & Prefix & "'"
   If Not rtable.NoMatch Then
        Form_Mysubform.Form.Bookmark = rtable.Bookmark
        
        Do
        ...
        rtable.MoveNext
        Loop Until rtable!Year <> lstYear
   End If

I wish to show the progress through DOLoop by Bookmark, just to see what is happening. In the above this won't happen as bookmark is outside the loop. Do I need Findfirst, No Match each time? Obviously it will have found the next record with MoveNext. Is there another to show progress down the Form?

theDBguy · Jul 3, 2019

Hi. Have you tried using the bookmark inside the loop?

Code:

Do...
...
rtable.MoveNext
Me.Bookmark = rtable.Bookmark
Loop...

arnelgp · Jul 3, 2019

Code:

Set rtable = Form_Mysubform.Form.RecordsetClone
rtable.FindFirst "Prefix = '" & Prefix & "'"
If Not rtable.NoMatch Then
        
        While rtTable![Year] = lstYear
	        Form_Mysubform.Form.Bookmark = rtable.Bookmark
        	...
        	rtable.MoveNext
	Wend
End If

kirkm · Jul 3, 2019

Many thanks for the relies. Yes, I could see it should be in the Loop but wasn't sure if Find and Match were also needed. But I see now and have changed to arnelgp method. I haven't used While-Wend and don't think you can early exit from it ?
Can I also ask... in my While Wend I Set a new recordset directly on the table and pass it to a function as Recordset. This is the same source as the RecordsetClone, so I think it's not correct (even though it works). Only certain fields as needed, not all. Is there is a better or proper way to do this ?

The_Doc_Man · Jul 3, 2019

I haven't used While-Wend and don't think you can early exit from it ?

Change that from WHILE ... WEND to a DO WHILE ... LOOP and then use EXIT DO with an IF... THEN ... END IF to abort the loop.

https://docs.microsoft.com/en-us/office/vba/language/reference/user-interface-help/exit-statement

Bookmark (1 Viewer)

kirkm

Registered User.

theDBguy

I’m here to help

arnelgp

..forever waiting... waiting for jellybean!

kirkm

Registered User.

The_Doc_Man

Immoderate Moderator

Similar threads

Users who are viewing this thread