2014-07-22 69 views
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,但是第二,供應商,子窗體不會更新。

關於爲什麼和可能的解決方案的任何想法?

回答

0

強制第二種形式的更新,一旦你所做的更改,並保存在第一個數據:

Me.subEmployeeVendorCourseTrainingCompletion.Form.Requery 

你可以在首體的Form_AfterUpdate做到這一點:

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

UPDATE

嘗試另一種方法。爲了將子表單鏈接到主表單,而不是設置過濾器,請使用子表單的Link Child FieldsLink Master Fields屬性。

+0

我剛試過這個。它不更新第二種形式。任何其他想法? – JBear

相關問題