如何用VBA修改Access子窗体subfrmEquipmentDatasheet的AllowEdits属性?
解决Access子窗体编辑权限切换的VBA问题
你的错误核心是子窗体引用方式错误:子窗体是作为主窗体的控件嵌入的,不能直接通过Forms集合调用,必须通过主窗体的子窗体控件访问其内部的Form对象。
正确VBA代码(按钮在主窗体上时)
Private Sub UpdateRecords_Click() ' 访问主窗体上的子窗体控件,获取其内嵌窗体对象 Me.subfrmEquipmentDatasheet.Form.AllowEdits = True ' 严格保留创建/删除记录禁用的需求 Me.subfrmEquipmentDatasheet.Form.AllowAdditions = False Me.subfrmEquipmentDatasheet.Form.AllowDeletions = False End Sub
关键说明
Me:代表按钮所在的主窗体(EquipmentListF),无需硬编码窗体名称,更灵活subfrmEquipmentDatasheet:主窗体上的子窗体控件名称(注意区分子窗体本身的名称,以设计视图中属性表的「名称」为准).Form:子窗体控件的核心属性,用来获取嵌入的实际窗体对象,所有数据源权限设置都在这个对象上
额外注意事项
- 若要恢复禁用编辑,只需将
AllowEdits设为False - 确认子窗体的数据源(EquipList表/查询)本身未设置只读权限
- 子窗体控件的「源对象」属性需正确指向目标子窗体
内容的提问来源于stack exchange,提问作者treohr
相关产品推荐
相关产品推荐

