学员问题：

这个表用于设定相关工位必备得培训课程

这个表用于存储员工培训记录

我得需求是如何通过查询员工现有得培训记录获取此员工是否具备相关得工位，只有此工位得所有培训都已经参与，才能获得此工位。

示   例:

点击下载此附件

图   示：

源   码：

Private Sub 姓名_AfterUpdate()
    Dim rst As Object
    Dim strSQL As String
    Dim num As Integer
    Dim str As String
    
    Me.获得工位 = Null
    
    strSQL = "select jobtitle from MandatoryTraining group by jobtitle"
    Set rst = CurrentDb.OpenRecordset(strSQL)
    
    Do Until rst.EOF
        num = DCount("*", "MandatoryTraining", "jobtitle='" & rst!jobtitle & "'")
        If DCount("*", "查询1", "jobtitle='" & rst!jobtitle & "' and staff='" & Me!姓名 & "'") >= num Then
            str = rst!jobtitle
            Me.获得工位 = str & "、" & Me.获得工位
        End If
        rst.MoveNext
    Loop
    rst.Close
    Set rst = Nothing
    
End Sub