Форумы HiProg.com - MS ACCESS, VBA, VB

ник: Stanislav
Создаешь обработчики событий (это понятно как делать?):

Поле1.AfterUpdate
if Me.Поле1 then
Me.Поле2 = False
Me.Поле3.RowSource = "SELECT таблица1.значение FROM таблица1"
else
Me.Поле2 = True
Me.Поле3.RowSource = "SELECT таблица2.значение FROM таблица2"
end if

Поле2.AfterUpdate
if Me.Поле2 then
Me.Поле1 = false
Me.Поле3.RowSource = "SELECT таблица2.значение FROM таблица2"
else
Me.Поле1 = True
Me.Поле3.RowSource = "SELECT таблица1.значение FROM таблица1"
end if