Here is the code, tables, query, and relationship
#####Code that returns the data to show the query works #####
Private Sub Command3_Click()
On Error GoTo Err_Command3_Click
Dim stDocName As String
stDocName = "qryFindEmpByJobType"
DoCmd.OpenQuery stDocName, acNormal, acEdit...