ник: mulrus
На событие "После обновления" поля РАЙОН:
If Me.РАЙОН.Value = "Название района" Then
Forms!ВашаФорма!ГОРОД.RowSourceType = "Table/Query"
Forms!ВашаФорма!ГОРОД.RowSource = "ИмяТаблицыГородов"
Me.ГОРОД.Value = "" 'очиащаем на всякий случай, чтобы было пустое и потом выбираем
На событие "После обновления" поля ГОРОД:
If Me.ГОРОД.Value = "Город" Then
Forms!ВашаФорма!Улица.RowSourceType = "Table/Query"
Forms!ВашаФорма!Улица.RowSource = "ИмяТаблицыУлиц"
Me.Улица.Value = ""