Search code examples
vbams-access

Access NavigationForm, how to navigate to a new record on Load of every Form in?

I Created multible Forms from tabels with subforms of a querys, with some function. And everything works fine. Now I need those forms in a navigation form, but some codes cause errors.

In every form i have the following code:

Private Sub Form_Load()
  DoCmd.GoToRecord acDataForm, Me.Name, acNewRec
End Sub

How schould I change it to work from the navigation form?

I tried:

DoCmd.GoToRecord acDataForm,, acNewRec

DoCmd.GoToRecord acDataForm, Forms!NavForm!form_name, acNewRec

DoCmd.GoToRecord acDataForm, Forms!NavForm!navSubform, acNewRec

DoCmd.GoToRecord acDataForm, Forms!NavForm!navSubform.Form, acNewRec
Solution

  • I solved it by myself in 2 ways:

    • with a macro instead of VBA in Form Events -> on Load -> Set macro to go to a new record.

    • with VBA:

      Forms!NavigationFormName.NavSubform.SetFocus
DoCmd.RunCommand acCmdRecordsGoToNew