ms-access - 在访问 vba 代码中显示组合框

Question

我在访问 vba 中使用以下代码。这段代码给了我输入框来输入更新访问表中输入的值的值。是否可以给输入框的组合框状态。我可以从该组合框中选择设计输入。请让我知道是否可能。

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。
（Access 应该如何知道将哪些选项放入 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