Зависимые списки ms access

[forza020]

Ребята выручайте. Нужна помощь. Изучаю ms access. Бьюсь над задачей уже 2ой день. Буду рад любой подсказке.
Собственно:
Вот структура таблиц (см. вложенное изоброжение).

Далее

Есть 3 формы.
1. Заполнение страны. Там все просто 2 поля ИД страны(ИСО код) и название. Ее я сделал.
2. Заполнение региона. Там 3 поля. 1 -ИД региона (автоинкремент) 2. Страна (Список стран который ссылается в таблицу Коунтри) 3. Название региона. Тут тоже все просто и без вопросов сделал.
3. А вот с 3ей таблицей проблема. Там заполнение города.
1-ое поле ИД города(автоинкремент)
2-ое поле ИД страны(Список стран из таблицы коунтри)
3-ие поле Зависимый список. ИД региона. В зависимости какая выбрана страна, от туда должны подгружаться регионы. Вот тут и все засада.. никак не могу это реализовать.
4. Поле название города. Все чисто.

Дак вот как можно с такой структурой реализовать нужный мне выпадающий список?
Поробовал написать такую процедуру и повесить ее на "Афтер Апдейт" Ивент.

CODE
Private Sub cboCountry_AfterUpdate()
Dim SqlStr As String
SqlStr = "SELECT RegionID, RegionName FROM Region WHERE CountryID= " & Me.cboCountry.Value & " ORDER BY RegionName ASC;"
Me.cboRegion.RowSource = SqlStr
End Sub

Работает кое как.. Т.е. не совсем кяк нужно. После выбора Страны не происходят изменения в поле РегионИД, только после того как я нажму на выпадающий список, вылезает окошко и просит ввести значение. Если я ввожу (например РУ), то в список вставляются айдишники регионов. А мне нужен вот такой результат. Чтобы не всплывали окно с просьбой ввести ИД страны а автоматически подставлялось в запрос, и в списке регионов выли бы не айдишники а название региона, а ИДшник вставлялся цифровой.

Очень прошу помощи. Спасибо.

[shanemac51]

Private Sub cboCountry_AfterUpdate()
Dim SqlStr As String
SqlStr = "SELECT RegionID, RegionName FROM Region WHERE CountryID= " & Me.cboCountry.Value & " ORDER BY RegionName ASC;"
Me.cboRegion.RowSource = SqlStr

'может поможет обновление списка
Me.cboRegion.requery
End Sub

[forza020]

Не помогло. Да я думаю дело не в обновлении запроса, просто я что-то не так деалю

[forza020]

Переделал не много базу данных. Посмотрите, может у кого будет совет>?

[Myhaylo]

1. Уберите поле CountryID из таблицы City - страна у Вас определена в таблице Region.
2. У Вас CountryID - текстовое поле, поэтому нужны апострофы:

SqlStr = "SELECT RegionID, RegionName FROM Region WHERE CountryID='" & cboCountry & "' ORDER BY RegionName ASC;"

3. Откройте форму CityForm в режиме конструктора.
3.1. Выделите поле cboRegion и откройте для него окно "Свойства".
3.2. на закладке "Макет" окна "Свойства" заполните поля:
- "Число столбцов"="2" (без кавычек);
- "Ширина столбцов"="0см;4см" (без кавычек).