0

CourseID と CourseCompletionDate を表示する継続的なサブフォームを取得して、メイン サブフォームのコンボボックスを介して選択された従業員に関連する出力を表示しようとしています (これは、従業員が何を完了したかを示す従業員トレーニング プロファイルです)。これが私のVBAです：

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

メイン サブフォームでコンボボックスを使用しようとすると発生するエラー。 メイン サブフォームでコンボボックスを使用しようとすると発生するエラー

コンボボックスで従業員を切り替えるときに、これが機能しないのはなぜですか? この VBA とサブフォームをコンボボックスで問題なく動作させるにはどうすればよいですか?

4

2 に答える 2

1

そのため、pteranodon が述べたことに加えて、employeeID をクエリ自体に追加すると、すべてが修正されました。メッセージ ボックスはなくなり、コンボ ボックスはサブフォームと完全に連携します。

于 2014-07-22T12:59:57.377 に答える