The way I got it to work is to use:
Private Sub TabCtl0_Change()
Select Case Me.TabCt10
Case 0
Me.YourFormNameHere.Setfocus
DoCmd.RunCommand accmdRecordsGoToLast
Case 1
Me.YourFormNameHere.Setfocus
DoCmd.RunCommand accmdRecordsGoToLast
Case 2
Me.YourFormNameHere.Setfocus
DoCmd.RunCommand...