display combobox в доступе код vba

Question

Я использую ниже код в доступе vba. этот код дает мне поле ввода для ввода значения, которое обновляет значение, введенное в таблицу доступа. возможно ли предоставить поле со списком ввода ввода. Я могу выбрать ввод данных из этого списка. PLS, дайте мне знать, если это возможно.

Dim qry As String 

qry = "UPDATE Data_Table SET Data_Table.Workgroup = [Workgroup Name]WHERE (((Data_Table.Workgroup) Is Null));" 

DoCmd.RunSQL qry 

Answer 1

Входной ящик, который появляется, когда вы выполняете ваш код «создан» MS Access на лету, из-за значения [Workgroup Name] в запросе.

Невозможно заставить Access вызывать ComboBox непосредственно из запроса.
(как следует доступ знать, какие параметры нужно поместить в ComboBox?)

Но, конечно, вы можете создать ComboBox самостоятельно (где-то на форме) и вставить значение из этого ComboBox в запросе.

Например, вы можете поместить свой код от вопроса в функцию, которая получает имя рабочей группы, переданное в качестве параметра, например:

Public Function RunQuery(ByVal WorkgroupName As String) 

    Dim qry As String 

    qry = "UPDATE Data_Table SET Data_Table.Workgroup = '" & WorkgroupName & "' WHERE (((Data_Table.Workgroup) Is Null));" 

    DoCmd.RunSQL qry 

End Function 

Затем создается ComboBox в форме (и заполнить его с опциями) и передать значение ComboBox функции RunQuery:

Private Sub SomeComboBox_AfterUpdate() 

    If Nz(Me.SomeComboBox.Value) > "" Then 

     RunQuery Me.SomeComboBox.Value 

    End If 

End Sub