Code:
Option Compare Database
Option Explicit
Private Sub Client_Change()
Select Case Client.Value
Case 0, 1, 3, 4
[Client Name].SetFocus 'move cursor here
Case 2
txtDummy.SetFocus 'get to top of form
[Explain Mental Challenge].SetFocus 'move cursor here
End Select
End Sub
Private Sub Command726_Click()
DoCmd.GoToRecord , , acNewRec
End Sub
The only tab that had the problem on my system was the Client Data tab. That's because it was greater in height (taller) than my screen resolution. If you have this problem with other tabs, treat them like Case 2, adding txtDummy to each.
This is code for Form Main. The code above command726 is new.
On tab Client Data, create a textbox named txtDummy. Remove its label. Change its properties to Height: .001, Width: .001, Top: 0, Left: 0, Back Style: transparent
Remove the embedded macros for ALL the tabs ON_CLICK event.