A quick way of doing this would be to take the username and lookup the department of that employee using DLookup, store that in a variable, then do a select case on that variable for each department.
Here's a rough incomplete example of what I'm talking about:
strDept = DLookup(lookup syntax...