Обновите свойства «Включено» и «Заблокировано» для подчиненной формы

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: ошибка приложения или объекта" возвращается в операторах длявключить или разблокировать подчиненную форму.

2 утверждения, которые вызывают у меня проблемы: «Forms.frmData.sfrmSaplingCount.Form.Enabled = True» & «Forms.frmData.sfrmSaplingCount.Form.Locked = False"

Можете ли вы сказатьмне что я делаю не так?

Answer 1

Насколько я вижу, формы не имеют свойств Locked и Enabled, они есть у элементов управления. Контейнер Subform / Subreport является элементом управления и имеет эти свойства. Рекомендовать именовать контейнер, отличный от формы, которую он содержит, например, ctrSapling

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