And this is the module to find the current department...
Option Compare Database
Option Explicit
Public Function fnLastLoc(ParamArray ref() As Variant) As Variant
Dim v As Variant
Dim i As Integer
Dim pos As Long
For i = UBound(ref) To 0 Step -1
v = v & (IIf(Trim(ref(i) & "") = "", Null...