在主窗体下如何设置子窗体添加/删除权限？

aries1912

现有“表1”，“表1”有字段[产品]，[产地]。
基于表1生成数据表窗体“子窗体”。基于子窗体做一个“主窗体”。

新建一个窗体“测试单独打开子窗体权限”，对子窗体添加/删除权限做测试。给“无权限”按钮赋予如下代码：
Private Sub Command1_Click()
On Error GoTo Err_Command1_Click
    Dim stDocName As String
    DoCmd.OpenForm "子窗体", acFormDS, , , , acWindowNormal
    Forms![子窗体].AllowDeletions = False
    Forms![子窗体].AllowAdditions = False
Exit_Command1_Click:
    Exit Sub
Err_Command1_Click:
    MsgBox Err.Description
    Resume Exit_Command1_Click
End Sub
此时打开的“子窗体”无删除/添加权限。

再新建一个窗体“打开主窗体时权限”，欲单击“无权限”按钮时，打开“主窗体”，同时主窗体中的“子窗体”无添加/删除权限，给“无权限”按钮赋予如下代码，但是经测试不行啊，求高手帮忙，小弟先谢过！
Private Sub Command1_Click()
On Error GoTo Err_Command1_Click
    Dim stDocName As String
    Dim stLinkCriteria As String
    DoCmd.OpenForm "主窗体", , , stLinkCriteria
    Forms![主窗体]![子窗体].AllowDeletions = False
    Forms![主窗体]![子窗体].AllowAdditions = False
Exit_Command1_Click:
    Exit Sub
Err_Command1_Click:
    MsgBox Err.Description
    Resume Exit_Command1_Click   
End Sub

aries1912

哪位大虾帮忙顶一下呢

kangking

Forms![主窗体]![子窗体].Form.AllowDeletions = False
    Forms![主窗体]![子窗体].Form.AllowAdditions = False

这样试试。

aries1912

果然凶悍，一语搞定