What you can do is put an AfterUpdate event in the supervisor's end date. If the end date is null and that means the supervisor still works there, then
Me.Parent.txtSupervisor = DLookUp("[strSupervisor]", "tblSupervisors", "[dtmEndDate] Is Null")
This is using fake names for the supervisor textbox, the fields in the table, and the table name listing the supervisors. Replace those with your real names.
The .Value (rather than the .Text) property is not needed but can be specified.
Also put that code in the main form's ON OPEN event.
Greg Serrano
Michigan Dept. of Environmental Quality, Air Quality Division
|