Question

我已经操纵并尝试了一种不同的方式来做某事。我在表单上有一个组合框（Coding_drop_down）（Coding Pop Up）。

我之前已经从其他人手中接管了这个数据库的维护工作，所以一切都已预先存在。组合框本身有一个值列表，并在单击下拉箭头时引用该列表。但是我已经改变了它并将它绑定到我创建的表（对于过去的事情）。现在，当我进入下拉列表时，我得到了之前我所做的那些特定值，只是从表而不是值列表中加载。问题是，在选择值时，它不会选择。我错过了什么或者VBA是否需要被操纵？

组合框的VBA代码：

Private Sub Command1_click()
On Error GoTo Err_Command1_Click

    Dim stDocName As String

    stDocName = "Query to do easier coding"
    DoCmd.OpenQuery stDocName, acNormal, acEdit

Exit_Command1_Click:
    Exit Sub

Err_Command1_Click:
    MsgBox Err.Description
    Resume Exit_Command1_Click

End Sub

Button的代码：

Private Sub Command7_Click()
On Error GoTo Err_Command7_Click

    Dim stDocName As String
    Dim stLinkCriteria As String
    stDocName = "Query to do easier coding"
    DoCmd.Close acForm, stDocName

    DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_Command7_Click:
    Exit Sub

实际组合框的on Click事件：

Private Sub Coding_drop_down_Click()
Dim test As String
test = Me.Coding_drop_down
MsgBox test

End Sub

Answer 1

好的，所以试试你的comboBox它可能会给你一个良好的开端。您在comboxBox中需要的项目列在.addItem中，并在表单启动后添加到ComboBox中。当您选择项目时，它会将值存储在所需工作表的第一个单元格中。如果这可以帮助你让我知道，我们可以努力帮助解决你的问题。

Private Sub UserForm_Initialize()

With ComboBox1
    .AddItem ("Item 1")
    .AddItem ("Item 2")
    .AddItem ("Item 3")
End With

End Sub

Private Sub ComboBox1_Click()


    ActiveSheet.Range("A1") = ComboBox1.Value

End Sub

Answer 2

问题在于组合框实际上是绑定的，这就是问题的原因。

如何让您的组合框选择所选项目

2 个答案: