toggle filter after =[Code] = [Code] where condition

[wnicole]

I have a form with a button that opens another form based on WHERE condition. The [Project Code] links the form.


However once it opens the form, then the user is stuck only on that form.
In order to see the other project they then have to hit toggle filter button.

In the macro (Access 2007) is there something I can add to make sure after you get to the other form, the user can still < > back in forth to other projects.
Currently it only show 1 of 1 in record selectors.
Can you help?

[pbaldy]

If you want yo try VBA:

http://www.baldyweb.com/Bookmark.htm

[wnicole]

Thanks so much I tried this code below but I think I'm missing something.

I named the Code field "textMMMMCode" for both forms so I can link the two.
However, when I hit the button it goes to the correct form, but the txtSubCode is not the correct one.
The parent Projects match, but the sub Projects seem to be starting from beginning as if there is no connection.

What I'm hoping to do:
1. if there are no subprojects that it just goes to the sub form starting at first record.
2. If there is subprojects it goes to the starting parent and the connecting ID for that parent is also linked. (Currently its not).

Private Sub Command320_Click()
Dim rs As Object
Dim lngBookmark As String


'set a variable to the current record
lngBookmark = Me.TextMMMMCode
'open the new form
DoCmd.OpenForm "F_SubProjectMgmt"

'take it to the selected record
Set rs = Forms!F_SubProjectMgmt.RecordsetClone
rs.FindFirst "[MMMM Code]" = " & lngBookmark"
'the lines marked as optional can be included if there's a chance the record won't exist in the form being opened
If rs.NoMatch Then 'optional - if no match, go to a new record
DoCmd.GoToRecord acForm, "F_SubProjectMgmt" 'optional
MsgBox "There are no Subprojects for " & [MMMM Code], vbOKOnly, " 'optional - copy the employee ID from this form"
Forms!F_SubProjectMgmt.TextMMMMCode = Me.TextMMMMCode 'optional - copy the employee ID from this form


Else 'optional
Forms!F_SubProjectMgmt.Bookmark = rs.Bookmark
End If 'optional

Set rs = Nothing
End Sub