Bookmark

[Richard]

Hi

How do I bookmark a record on a bound form?

This form(A) is not editable and when I want to edit the data, I open
another form(B) to edit it.

Let's say I'm on record 36#. in formA. I click edit and open formB to edit.
I requeried form A when I exit FormB. When FormA activeates it opens at
record#1.

How do I bookmark it so that FormA (after requerying) opens at record#36.

Thanks in advance
Richard

 

[Albert D. Kallal]

The problem is that when you re-query, you loose the bookmarks (they become
invalid).

Also, since you are just opening form b,then why requery, and re-load the
whole form?


Just do a me.refresh on the form a....

Hum, just use the close event of form b...

forms!formA.refresh

 

[Richard]

Hi Albert

Thanks for answering. When I refresh the form, sometimes it doesn't update
the record. Or when I delete or add a new record.

Richard

 

[Arvin Meyer]

Hi Richard,

What you'll need to do is a bit more complex. Create a variable as a
placeholder, then set it equal to the ID of the record you want to maintain.
Then you can requery and reset the record position to the placeholder
variable. Something like this (aircode):

Sub Event_Click()

Dim lngID As Long ' variable placeholder

lngID = Me.txtID ' ID of record

'... do whatever

Me.Requery

Me.RecordsetClone.FindFirst "ID = " & lngID

If Not Me.RecordsetClone.NoMatch Then
Me.Bookmark = Me.RecordsetClone.Bookmark
End If

End Sub
--
Arvin Meyer, MCP, MVP
Microsoft Access
Free Access downloads:
http://www.datastrat.com
http://www.mvps.org/access

 

[Richard]

Thanks Arvin

Will try and see...

Richard

Hi Richard,

What you'll need to do is a bit more complex. Create a variable as a
placeholder, then set it equal to the ID of the record you want to maintain.
Then you can requery and reset the record position to the placeholder
variable. Something like this (aircode):

Sub Event_Click()

Dim lngID As Long ' variable placeholder

lngID = Me.txtID ' ID of record

'... do whatever

Me.Requery

Me.RecordsetClone.FindFirst "ID = " & lngID

If Not Me.RecordsetClone.NoMatch Then
Me.Bookmark = Me.RecordsetClone.Bookmark
End If

End Sub
--
Arvin Meyer, MCP, MVP
Microsoft Access
Free Access downloads:
http://www.datastrat.com
http://www.mvps.org/access

 

[Richard]

Hi Arvin

I managed to do it. Thanks a million.

Richard