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.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
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.