主窗体打开时子窗体OnCurrent错误

时间:2017-08-28 15:39:23

标签: vba activerecord ms-access-2010 subform

我在子窗体上有关于当前的以下代码,但在打开主窗体时出错:

If IsNull([Forms]![frmMContacts]!ID) Then
    With Forms!frmMContacts!frmMContacts_SubPeopleContacts.Form
        .Enabled = False
    End With
Else
    With Forms!frmMContacts!frmMContacts_SubPeopleContacts.Form
        .Enabled = True
    End With
    If Me.NewRecord Then
        Me.txtCurrRec = "New Contact Role Record"
    Else
        Me.txtCurrRec = CStr(Me.CurrentRecord) & " of " & _
        DCount("ID", "tblContactPeople", "FKClient = " & Me.Parent.CM_CID) & " Contact Roles"
    End If
End If

重点是,只需更新表单页脚中的文本框,即可提供子表单的记录计数。问题是,当用户打开主(父)表单时,主菜单中的主记录没有记录,子表单仍在加载。实际上,我隐藏了主窗体的细节,因此隐藏了这个子窗体。用户必须在主窗体标题中点击2个按钮中的1个。找到记录(弹出窗体)或开始新记录(另一个弹出窗体)。

当我尝试打开此主窗体时,出现错误"运行时错误' 2465'应用程序定义的或对象定义的错误"。

我不确定如何捕获这个并且只是禁用子表单或阻止此on-current代码表单触发,直到父记录为止。

感谢您的帮助!

0 个答案:

没有答案