advance to the next record in a subform

[markjkubicki]

i have a subform which displays images (one at a time) that are related to the parent


the image record has a field indicating whether they are "a detail" or not
the default sort order is to show all of the details first (one at a time)
(the user has a "next"and "previous" buttons to scroll through all of the records / images

some users don't want to see the "detail" images first, they want to start with the "not detail" images
then be able to "previous" back to the 'details' (if there are any) (and then continue to "next / previous" in the usual manner)

i though, base on a variable SkipPastDetailsYN, i could set up code to do exactly that

but instead of advancing through the records of the subform, it is advancing through records of its parent

any suggestions will be greatly appreciated in advance,
m.

 If DCount("[type]", "tbeAdditionalPages", "[type]= '" & Me.Type & "'") > 0 Then
        If Len(Me.txtCatalogSheetLink) > 0 Then
            vlink = Mid(Me.txtCatalogSheetLink, 2, Len(Me.txtCatalogSheetLink) - 1)
            
            
'this is the code that i am having troubles with:
            If Me.IsMountingDetail And blnSkipPastDetailsYN = True Then

'tried adding
'                me.setfocus 
'without sucess...

                DoCmd.GoToRecord , , acNext
            End If

[CJ_London]

if this code is on the main form then instead of Me. you use nameofsubformcontrol.form.

[markjkubicki]

it's in the Current event of the subform

Private Sub Form_Current()

[Gicu]

Can you please try this:

Dim vBookmark,rst as Dao.Recordset


If blnSkipPastDetailsYN = True Then
	'skip to the non-detail
	Set rst=Me.RecordsetClone
	rst.FindFirst "[IsMountingDetail]= False"
	if rst.NoMatch then GoTo Exit_Skip
	vBookmark=rst.Bookmark
	'navigate to first non-edtail record
	Me.Bookmark=vBookmark
End If


Exit_Skip:
set rst=Nothing

Cheers,

[markjkubicki]

YEA !
(I think)

(seems to have kicked the problem somewhere else... but i'm fairly certain that's an issue of logic (my logic), and not code...) THNX

[Gicu]

You should put the code in a different event, I would say the Current event of the main form (and you will have to adjust it accordingly to replace Me with a reference to the subform like in Me.sfrmName.Form).

Cheers,