Hi all,
I just figured it out.
Code:
Private Sub WorkerCode_AfterUpdate()
Dim BureauValue As String
Dim WorkerCodeValue As String
' Get the value of WorkerCode field
WorkerCodeValue = Me.WorkerCode.Value
' Extract the first two characters of WorkerCode field
WorkerCodeValue = Left(WorkerCodeValue, 2)
' Look up the Bureau value in tbl_WorkerCode based on the first two characters of WorkerCode
BureauValue = DLookup("Bureau", "tbl_WorkerCode", "WorkerCode Like '" & WorkerCodeValue & "*'")
' Set the Bureau field value to the retrieved value
Me.Bureau.Value = BureauValue
Thank you @June7 and @Welshgasman for staying with me and providing your thoughts!!!
-Steve