ник: Анатолий (Киев)
В запросе "подкатегории" указать "категорию" в критерии отбора;
На AfterUpdate "категории" выполнять Me![подкатегория].Requery
Для большей функциональности можно в запрос "подкатегории" добавить условие, что если "категория" не выбрана - все записи.