Prev: Dates
Next: Why wont this control show whole numbers?
From: IanP on 18 Feb 2010 07:12
Hi,

I have a form consisting of 3 tabbed pages. The 1st tab contains the main
form with 2 sub forms on a the other tabs. I am trying to display the record
number on all of forms but do not want to use the record navigation buttons.

I have used the following code in the On Current event of all 3 forms to do
this;

If Me.NewRecord Then
Me!lblTotal.Caption = "New Record"
Else
With Me.RecordsetClone
.Bookmark = Me.Bookmark
Me!lblTotal.Caption = "Record " & _
.AbsolutePosition + 1 _
& " of " & .RecordCount
End With
End If

This works fine on the main form but not on the subforms. When you move to
the subform tabs the label always displays "Record 1 of 1" until you start
scrolling through the records after which correct record number is shown. I
realise this is because the event runs in the On current event of the subform
but need the code to run everytime the tab onto the subform is clicked.

Any ideas how to do this?

Thanks for your time

From: KateB on 18 Feb 2010 08:11
Hi Ian,

I was looking for something similar earlier this week and found a link to
this:

http://www.lebans.com/rownumber.htm

I am self-taught and managed to get it to work (thanks Stephen Lebans you're
a star!) Not sure if its exactly what you want, but might be of help.

Kate

"IanP" wrote:

> Hi,
>
> I have a form consisting of 3 tabbed pages. The 1st tab contains the main
> form with 2 sub forms on a the other tabs. I am trying to display the record
> number on all of forms but do not want to use the record navigation buttons.
>
> I have used the following code in the On Current event of all 3 forms to do
> this;
>
> If Me.NewRecord Then
> Me!lblTotal.Caption = "New Record"
> Else
> With Me.RecordsetClone
> .Bookmark = Me.Bookmark
> Me!lblTotal.Caption = "Record " & _
> .AbsolutePosition + 1 _
> & " of " & .RecordCount
> End With
> End If
>
> This works fine on the main form but not on the subforms. When you move to
> the subform tabs the label always displays "Record 1 of 1" until you start
> scrolling through the records after which correct record number is shown. I
> realise this is because the event runs in the On current event of the subform
> but need the code to run everytime the tab onto the subform is clicked.
>
> Any ideas how to do this?
>
> Thanks for your time
>
> .
>
 | 
Pages: 1
Prev: Dates
Next: Why wont this control show whole numbers?