[code=vba]erection_finished = DMax("erection_actual_date_finished", "equipment list", "[master_equipment]='" & rs.Fields(5) & "'")
Application.CurrentDb.Execute "UPDATE [equipment list] set [erection_actual_date_finished]=#" & erection_finished & " #where [equipment_tag]='" & rs.Fields(5) & "' "