在Access中使用子表单过滤表单

Question

在SQL数据库中，我有一个表Table1 。 该表与另一个表Table2相关，而Table2又与Table3相关。 有一个查询Query1从Table1 Query1中选择某些记录。

该数据库链接到Access数据库项目中

Table1Data表单基于Table1 ，数据表包含相关的Table2数据（以及随后的Table3数据）。 此表单由另一个表单（ Switchboard ）打开。 打开表单时出现问题。 我希望过滤表单，但是当我设置宏并打开表单并将Filter设置为Query1 ，表单中的数据未过滤。 为什么会发生这种情况，这不是这样做的方法吗？ Query1从Table1选择所有列，因此不匹配的列应该不是问题。

另外，我想将其锁定-只有某些人可以执行Query1 ，与其他查询（ Query2 ， Query3等）相同。 因此，他们只能编辑被允许编辑的数据。

Answer 1

我的首选解决方案是在Form Open事件中设置记录源。 这使我对所发生的事情拥有最大的控制权。

这是我这样做的样板。 它还包括查找调用表单时传递的OpenArgs。 如果您不希望在SQL的调用表单中指定任何内容，则可以注释掉或删除If / Then语句。

Private Sub Form_Open(Cancel As Integer)
    ' Comments  :
    ' Parameters: Cancel -
    ' Modified  :
    ' --------------------------------------------------

    On Error GoTo Err_Form_Open

    Dim strSQL As String
    Dim strVariable As String
    Dim strDateVariable As String
    Dim dteDateVariable As String
    Dim i As Integer
    Dim n As Integer

    'Get variables from Left and right of | in OpenArgs
    If Not (IsNull(Me.OpenArgs)) Then

        i = InStr(1, Me.OpenArgs, "|")
        n = Len(Me.OpenArgs)

        strVariable = Left(Me.OpenArgs, n - (n - i + 1))

        strDateVariable = Right(Me.OpenArgs, (n - i))

        dteDateVariable = CDate(strDateVariable)

    Else

        GoTo Exit_Form_Open

    End If

    strSQL = "SELECT   ... " _
           & "FROM     ... " _
           & "WHERE (((Field1)='" & strVariable & "') " _
           & "  AND  ((Field2)=#" & dteDateVariable & "#));"

    Me.RecordSource = strSQL

    Me.Requery

Exit_Form_Open:

    Exit Sub

Err_Form_Open:

    Select Case Err.Number
        Case Else
            Call ErrorLog(Err.Number, Err.Description, "Form_Open", "frmName", Erl)
            GoTo Exit_Form_Open
    End Select

End Sub