Обновление значений ComboBox

[superpsih]

Добрый день.
Подскажите, пожалуйста, как сделать так, чтобы в ComboBox, в котором отображаются все значения из таблицы (в примере, это ФИО пользователей, Combo9), после обновления CombоBox c значением подразделений (Combo 17 - список участков), выводил бы только тех пользователей, которые принадлежат к этому участку?
Собственно, сделать обновление combo9 несложно с помощью кода:

Private Sub Combo17_AfterUpdate()
Combo9.Requery
End Sub

А запрос должен отбирать значения из combo 17 (критерий:

[Forms]![Login]![Combo17]

).
SQL:

SELECT Users.ID, Users.FIO, divisions.ID
FROM divisions INNER JOIN Users ON divisions.ID = Users.Room
WHERE (((divisions.ID)=[Forms]![Login]![Combo17]))
ORDER BY Users.FIO;

Но при таком критерии, при пустом значении Combo 17, будет пустой список в Combo 9, а надо, чтобы был полный.

[shanemac51]

возможно так

[superpsih]

Сообщение от shanemac51

возможно так

Работает, но не до конца: нужно чтобы при пустом поле "Участок" отображались все пользователи. Сейчас отображаются не все.

[shanemac51]

пробуйте ,поправила

[superpsih]

Сообщение от shanemac51

пробуйте ,поправила

Да, круто! Работает. Спасибо, вам, большое!

[superpsih]

Ещё один вопрос возник. Помогите, пожалуйста:
Как изменить процедуру

Private Sub Combo9_AfterUpdate()
Text15.Value = Combo9.Text
End Sub

так, чтобы в поле Text15 вставлялось не значение combo9, а значение из combo17, если бы оно там было.
Т.е., в случае если пользователь не выбирал участок, а выбрал сразу свою фамилию, в поле текст 15 записывался бы его участок.

[Aleksandr H.]

Private Sub Combo9_AfterUpdate()
    If Combo17.ListIndex = -1 Then
        Text15.Value = CurrentProject.Connection.Execute("SELECT Room FROM [divisions] WHERE id=" & Combo9.Column(2)).Fields(0)
    Else
        Text15.Value = Combo9.Text
    End If
End Sub