Use vba code to programmatically make the tab control refer to and change the current page number

[wire_jp]

Hello,

I would like to use vba code to programmatically make the tab control refer to and change the current page number on a form. I used some vba code from a Microsoft Learn page example from the Section on " Refer to and change the current page "https://learn.microsoft.com/en-us/offic ... cts-in-vba to control a page label denoted as lblRecored_Position:

Code: Select all

Private Sub lblRecord_Position_Click()
TabControl1.Value
End Sub 

When I add a new record and save the form, the form defaults to the first record in the form. However, I want to show the form to last record which was added to the form, once the form is saved after adding a new record. Kindly advise to fix this issue. Thanks

[HansV]

I don't quite understand. The line

Code: Select all

TabControl1.Value

doesn't do anything - you neither change TabControl1.Value not do anything with the current value.

[wire_jp]

Hi Hans,

Thank you for your response. My apologies about the title and the description. Basically, I want to add page numbers (i.e. page y out of pages z) to a form. In browsing around the web, I came across an Allen Browne's post which stated that it is not possible to chronologically number pages on a form: - http://allenbrowne.com/casu-10.html. So I used the approach which he mentioned to number entries on a form:-

Code: Select all

  =[Form].[CurrentRecord]

[HansV]

If you want to open the form at the last record, you can either change the record source of the form to be sorted in descending order on a relevant field (for example an AutoNumber field), or sort it in ascending order and use code in the On Load event of the form:

Code: Select all

Private Sub Form_Load()
    RunCommand acCmdRecordsGoToLast
End Sub

[wire_jp]

Hi Hans,

Awesome! Thank you for the help!