Memory Loss - Mine! (A2K)

[AGMCon]

I hate it when this happens. Yesterday I found a neat enhancement to the following code:



Private Sub Form_Current()
If Me.NewRecord Then
Me!lblRecCount.Caption = "New"
Else
Me.RecordsetClone.Bookmark = Me.Bookmark
Me!lblRecCount.Caption = "RA # " & CStr(Me.RecordsetClone.AbsolutePosition + 1) _
& " of " & CStr(Me.RecordsetClone.RecordCount)
End If
End Sub


That would, when the form is first opened, ensure that the full record count showed:

1 of 375

and not

1 of 1

It had to do with going to the last record, or something,

Aaarggghhh! I can

[HansV]

Why don't you use Me.CurrentRecord instead of CStr(Me.RecordsetClone.AbsolutePosition + 1)? You wouldn't need the line

Me.RecordsetClone.Bookmark = Me.Bookmark

Try

...
Else
Me.RecordsetClone.MoveLast
Me!lblRecCount.Caption = "RA # " & Me.CurrentRecord _
& " of " & CStr(Me.RecordsetClone.RecordCount)
End If

<img src=/S/whisper.gif border=0 alt=whisper width=29 height=17> Allow me to once more draw your attention to the nifty built-in feature named Navigation Buttons? No code needed at all!

[AGMCon]

Hans,

Thanks kindly. I would have taken my memory enhancement pills this morning, but I forgot where I left them.

Cute reminder! However, and I can understand why you wouldn't remember this, but I am working for what I like to refer to as the "Near-sighted Mouseless Wonders". Don't ask, it's their nickle. Or Euro. Or Centavo. Or whatever...