Add and Edit VBA for form and relative subforms

[E9-Tech]

I have a main form with a Add command to add a new record and an edit command.
The form has a subform which consequently has a further subform itself with a One to Many relation, all forms and subform are set no additions and no edits in the properties.

So I wrote the code to allow additions and edits:

Private Sub CmdAdd_Click()
    DoCmd.OpenForm "frmDuties", acNormal, "", "", acAdd
    Forms!frmDuties!CmdEdit.Visible = False
    Forms!frmDuties!DutyDate.SetFocus
    Forms!frmDuties!sfrmRuns.Form.AllowAdditions = True
    Forms!frmDuties!sfrmRuns!sfrmNotes.Form.AllowAdditions = True
End Sub

And for the Edit command:

Private Sub CmdEdit_Click()
    Me.Form.AllowEdits = True
    Me.DutyDate.SetFocus
    Me.CmdEdit.Visible = False
    Me.sfrmRuns.Form.AllowEdits = True
    Me.sfrmRuns!sfrmNotes.Form.AllowEdits = True
End Sub

When I try to Add a record I get the below error:

The error is on 'Forms!frmDuties!sfrmRuns!sfrmNotes.Form.AllowAdditions = True'

The error is similar for also the Edit command.

Thanks

 

[theDBguy]

You may be missing another Form in that syntax. For example,
Forms!frmDuties!sfrmRuns.Form!sfrmNotes.Form.AllowAdditions

 

[E9-Tech]

@theDBguy Thanks for the reply.
I have tried your suggestion but I am still getting the same error

 

[theDBguy]

@theDBguy Thanks for the reply.
I have tried your suggestion but I am still getting the same error
View attachment 116896

I see. Try setting the focus to the subform first. Just a thought...

 

[E9-Tech]

@theDBguy I tried your suggestion now the erros if set to the focus

 

[theDBguy]

@theDBguy I tried your suggestion now the erros if set to the focus
View attachment 116897

Are you able to post a sample db?

 

[E9-Tech]

@theDBguy I attached an extracted version of it

 

[theDBguy]

@theDBguy I attached an extracted version of it

Thanks. I removed the error, but the result may not be what you wanted. Good luck!