更新子窗体的"Enabled“和"Locked”属性

Question

当在子窗体后面的表中插入记录时，我需要启用和解锁该子窗体。子窗体"sfrmSaplingCount“是"frmData”的子窗体。我使用一个弹出式表单从用户那里获取信息来创建记录，并启用和解锁子表单。该子窗体将被锁定和禁用，直到它实际具有可供用户交互的记录为止。

Private Sub cmdSaveSaplingCount_Click()

Dim strSQL As String  

strSQL = "INSERT INTO tblNETN_MicroplotEventSaplingCount   
(MicroplotEventID, TaxonID, SaplingCount, 
TaxonomicReferenceAuthority_IdentificationID, ProtectedStatusID) VALUES 
(" & Me.OpenArgs & ", " & Me.cboTaxonID & ", " & Me.SaplingCount & ", " & 
intTR & ", " & intPS & ")"

CurrentDb.Execute strSQL, dbFailOnError

Forms.frmData.sfrmSaplingCount.Form.Requery
Forms.frmData.sfrmSaplingCount.Form.Enabled = True
Forms.frmData.sfrmSaplingCount.Form.Locked = False
DoCmd.Close acForm, "frmNewSaplingCount"

启用或解锁子窗体的语句返回“运行时错误2465:应用程序定义或对象定义的错误”。

给我带来问题的两个语句是："Forms.frmData.sfrmSaplingCount.Form.Enabled = True“和"Forms.frmData.sfrmSaplingCount.Form.Locked = False”

你能告诉我我哪里做错了吗？

Answer 1

据我所知，窗体没有锁定和启用属性，控件有这些属性。子窗体/子报表容器是一个控件，并具有这些属性。建议将容器命名为与其形式不同的名称，例如ctrSapling。

Forms.frmData.ctrSapling.Enabled = True
Forms.frmData.ctrSapling.Locked = False