主页 / coding / 问题 / 79543876
Accepted
lalachka
Asked: 2025-03-30 04:40:35 +0800 CST

查明子表单是否从另一个子表单加载

  • 772

我在表单的子表单1上有下面的代码。这指的是同一表单上不相关的子表单2（fzzzSubConditionalFormatCriteria）。

打开主窗体时，我收到“：窗体：<您输入的表达式对属性窗体/报告的引用无效。>：窗体”错误，但之后当我单击记录时，它工作正常。我该如何解决这个问题？或者，最坏的情况是，不要在打开窗体时运行此代码

基本上，需要一种方法来判断子表单何时加载并可以访问

  vrSQL = "SELECT zzAppObjectFields.AppObjectField, zzAppObjectFields.AppObjectFieldTypeID, zzAppObjectFields.AppObjectIDCmb " & _
                            "FROM zzAppObjectFields WHERE zzAppObjectFields.AppObjectFieldTypeID In (10,12) AND zzAppObjectFields.AppObjectID=" & Me.AppObjectID & " " & _
                            "ORDER BY zzAppObjectFields.AppObjectField;"
    
                Me.Parent.fzzzSubConditionalFormatCriteria.Form!uuulllAppObjectFieldIDCriteria.RowSource = vrSQL
                Me.Parent.fzzzSubConditionalFormatCriteria.Form!uuulllAppObjectFieldIDCriteria.Requery
vba

1 个回答

  1. Best Answer

    在回答您的最后一条评论时，您可以使用以下应放入模块的代码来检查子表单的加载状态：

    Option Explicit

Public Function SubformNotLoaded(strFormName As String, _
                                 strSubFormName As String) As Boolean

  Dim frm As Access.Form

  On Error Resume Next

  ' Initialise return value.
  SubformNotLoaded = False

  ' Attempt to reference the subform
  Set frm = Forms(strFormName).Controls(strSubFormName).Form

  ' An error is thrown if the subform has not yet been fully loaded.
  If Err.Number <> 0 Then
    ' Set the return value.
    SubformNotLoaded = True
  End If

  ' Housekeeping.
  Err.Number = 0
  Set frm = Nothing

End Function

    然后，您可以从代码中的任何位置调用此函数，只需传入包含子表单的表单名称以及子表单本身的名称即可：

      If SubformNotLoaded("frmForm", "frmSubForm2") = True Then
    MsgBox "Subform not fully loaded."
  Else
    MsgBox "Subform is fully loaded."
  End If
    • 2

相关问题