0
所以我有兩個子表單,一個用於顯示員工的內部培訓課程完成情況,另一個則是針對供應商培訓的相同內容。訪問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訓練子窗體仍然工作和更新基於組合框僱員ID,但是第二,供應商,子窗體不會更新。
關於爲什麼和可能的解決方案的任何想法?
我剛試過這個。它不更新第二種形式。任何其他想法? – JBear