Доступ к списку запросов - PullRequest
Новая
       29

Доступ к списку запросов

0 голосов
/ 18 апреля 2011

У меня есть два выпадающих списка, один используется для управления другим. Поэтому в событии AfterUpdate для combo_1 я делаю запрос для combo_2, чтобы заставить его обновить свой список в соответствии со значением, выбранным в combo_1. Но мой код этого не делает.

Private Sub combo1_AfterUpdate () 

Dim strSQL As String

Select Case Me.combo1.Column(1)
    Case "Production"
        Me.combo2.Visible = True
        strSQL = "SELECT id_prod FROM tblProd;"
        Me.combo2.ControlSource = strSQL
        Me.combo2.Requery
    Case Else
        Me.combo2.Visible = False
End Select

End Sub

Нет ничего в combo_2, когда я выбираю "Производство" в combo_1. Предложение Require выполняется, но без эффекта.

1 Ответ

0 голосов
/ 18 апреля 2011

Если синтаксис не изменился в более поздней версии, вы должны изменить строку 

Me.combo2.ControlSource=strSQL

На 

Me.combo2.RowSource=strSQL

Попробуйте, потому что в противном случае он выглядит хорошо

...