Ms access 在access 2010中，两个不同的连续表单是否可以运行相同的查询？

因此，我有两个子表单，一个用于显示员工的内部培训课程完成情况，另一个是相同的，但用于供应商培训

这两个子窗体都从同一个表中提取相同的数据，但从表中不同列显示不同的选择性数据

我添加了员工搜索组合框代码以反映第二个供应商培训子表单：

Private Sub cboEmployee_AfterUpdate()
    On Error GoTo Proc_Error
    If IsNull(Me.cboEmployee) Then
        Me.subEmployeeCourseTrainingCompletion.Form.Filter = ""
        Me.subEmployeeCourseTrainingCompletion.Form.FilterOn = False
        Me.subEmployeeVendorCourseTrainingCompletion.Form.Filter = ""
        Me.subEmployeeVendorCourseTrainingCompletion.Form.FilterOn = False
    Else
        Me.subEmployeeCourseTrainingCompletion.Form.Filter = "[EmployeeID]=" & Me.cboEmployee
        Me.subEmployeeCourseTrainingCompletion.Form.FilterOn = True
        Debug.Print Me.subEmployeeCourseTrainingCompletion.Form.Filter
        Me.subEmployeeVendorCourseTrainingCompletion.Form.Filter = "[EmployeeID]=" & Me.cboEmployee
        Me.subEmployeeVendorCourseTrainingCompletion.Form.FilterOn = True
        Debug.Print Me.subEmployeeVendorCourseTrainingCompletion.Form.Filter
    End If
Proc_Exit:
        Exit Sub
Proc_Error:
        MsgBox "Error " & Err.Number & " in setting subEmployeeCourseTrainingCompletion filter:" & vbCrLf & Err.Description
        MsgBox "Error " & Err.Number & " in setting subEmployeeVendorCourseTrainingCompletion filter:" & vbCrLf & Err.Description
        Resume Proc_Exit
End Sub

internval training子表单仍然有效，并根据组合框中的员工ID进行更新，但第二个子表单供应商子表单不更新

---

关于原因和可能的解决方案，有什么想法吗？

一旦您在第一个表单中进行了更改并保存了数据，则强制更新第二个表单：

Me.subEmployeeVendorCourseTrainingCompletion.Form.Requery

您可以在更新第一个子表单后以_的形式执行此操作：

Private Sub Form_AfterUpdate()
    Parent.subEmployeeVendorCourseTrainingCompletion.Form.Requery
End Sub

更新

---

尝试另一种方法。使用子窗体的“链接子字段”和“链接主字段”属性将子窗体链接到主窗体，而不是设置筛选器。

我刚刚尝试了这个方法。它没有更新第二张表格。还有其他想法吗？