Ok I tried this and it does not seem to be working or at least it is not putting the shift in the table,
Code:Private Sub EmployeeNumber_AfterUpdate() Shift = DLookup("[Shift]", "[employeelistingjac]", "[EmployeeNumber]= " & [Forms]![Paroll Time on]![EmployeeNumber]) End Sub