AllowDeletion Property on OnOpen event

[excellenthelp]

Hi Accessers,



I am attempting to make the code function well to no avail. The form consists of a subform (datasheet). The Allow properties is for the subform. What am I writing incorrectly?!

Private Sub Form_Open(Cancel As Integer)On Error GoTo Err_Form_Open
    
    If User.AccessID = 1 Then
        Me.Form.AllowAdditions = True
        Me.Form.AllowDeletions = True
        Me.Form.AllowEdits = True
    ElseIf User.AccessID = 2 Then
        Me.Form.AllowAdditions = True
        Me.Form.AllowDeletions = False
        Me.Form.AllowEdits = False
    Else
        Me.Form.AllowAdditions = False
        Me.Form.AllowDeletions = False
        Me.Form.AllowEdits = False
    End If
        
Exit_Form_Open:
    Exit Sub


Err_Form_Open:
    MsgBox Err.Description
    Me.Visible = True
    Resume Exit_Form_Open
End Sub

SPECS:
Access 2010
64-bit system

Thanks for the help!

[ranman256]

Did you use the builder to set these controls?
I think it may be me.child.form.allowedits

(sub forms in a main form usually are named CHILDxxx)

[excellenthelp]

Not sure how to use CHILD control.

How could I build a such code?