Facing the problem of having an access subform being used for viewing and additions only were solved the following way:
Private Sub subfrm_Enter()
Me.subfrm.Form.DataEntry = True
End Sub
Private Sub subfrm_Exit(Cancel As Integer)
Me.subfrm.Form.DataEntry = False
End Sub