Access VBA 窗体的一列加选项

您可以在Access VBA中使用ListBox控件来创建一个带有多个选项的列。以下是一个简单的示例：

1. 在您的Access表单中添加一个ListBox控件。
2. 在VBA编辑器中打开该表单的代码视图。
3. 在表单的代码视图中，选择“ListBox”控件并添加以下代码：

Private Sub Form_Load()
    ListBox1.AddItem "Option 1"
    ListBox1.AddItem "Option 2"
    ListBox1.AddItem "Option 3"
End Sub

在这个示例中，我们向ListBox添加了三个选项：Option 1、Option 2和Option 3。您可以根据需要添加或删除选项。

4. 保存并运行表单，您应该可以看到ListBox中的选项。用户可以选择一个或多个选项。

如果您想要在代码中访问用户所选的选项，可以使用以下代码：

Private Sub CommandButton1_Click()
    Dim i As Integer
    For i = 0 To ListBox1.ListCount - 1
        If ListBox1.Selected(i) = True Then
            MsgBox ListBox1.List(i)
        End If
    Next i
End Sub

在这个示例中，我们使用了一个命令按钮（CommandButton），当用户单击该按钮时，我们遍历了ListBox中的所有选项，并检查哪些选项被选中。如果选中了一个选项，我们就会弹出一个消息框来显示用户所选的选项。您可以根据需要修改这个代码来执行您希望的操作。