Public Function fShowTitles(lngEmploymentID As Long) As String
On Error GoTo Err_fShowTitles
'This function shows Employment Titles in a string format
Dim dbs As DAO.Database
Dim snp As DAO.Recordset
Set dbs = CurrentDb
Set snp = dbs.OpenRecordset("qryEmploymentTitles", dbOpenSnapshot)
snp.MoveFirst
Do Until snp.EOF
If snp![EmploymentID] = lngEmploymentID Then
fShowTitles = fShowTitles & IIf(fShowTitles = "", "", "; ") & snp!Title
End If
snp.MoveNext
Loop
snp.Close
dbs.Close
Exit_fShowTitles:
Exit Function
Err_fShowTitles:
MsgBox Err.Description, vbCritical, "Error " & Err.Number
Resume Exit_fShowTitles
End Function
