如何让您的组合框选择选择的项目（自我解决）

-1

我已经操纵和尝试了不同的方式去做某件事。我在窗体上有一个组合框（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

按钮的代码：

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

与实际组合框的上Click事件：

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

End Sub

来源

2014-10-29 Motorhead1308

Command1指示代码是用于按钮而不是用于组合框。我也没有看到代码会引用任何组合框。所以我不清楚你的问题在哪里。 PS：你总是应该以某种方式重新命名你的控制器，以表明它是哪个控制器。 Command1并不是一个好名字;-) – cboden 2014-10-29 14:55:06

我把这个数据库放在了一边，VBA中没有任何注释，所以我花了几分钟的时间才发现Command1引用了组合框...... Command7 （是的，我知道）正在引用按钮。我为上面的按钮添加了VBA。 – Motorhead1308 2014-10-29 15:01:53

当你说你有一个表单及其被调用的编码弹出时，你是在说UserForm吗？ – user3271518 2014-10-29 15:22:24

问题是组合框实际上绑定了某些东西，这就是问题的原因。

来源

2014-10-29 17:49:06 Motorhead1308

好的，试试这个为你的组合框，它可能会给你一个好的开始。您需要在comboxBox中的项目列在.addItem中，一旦表单启动，它们就会添加到组合框中。当您选择该项目时，它会将该值存储在所需工作表的第一个单元格中。如果这件事可以帮助你，让我知道，我们可以努力帮助你解决问题。

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

来源

2014-10-29 15:30:53 user3271518

由于某些原因，即使在更改表单名称和CboBox名称后添加了正确的“Item”，它仍然不会选择=/ – Motorhead1308 2014-10-29 15:46:55

您可以在问题中共享用户表单的整个代码吗？用户表单的名称是什么？ – user3271518 2014-10-29 15:55:30

上面所有的VBA都是在那个被命名为（Coding Pop Up）的特殊形式上的......我会指出，当我试图将这个添加到.AddItem Sub的Form名称时，我可以找不到？所以看起来好像是Command1，我认为这可能是问题所在。那个和这个数据库没有建立任何评论和错误的命名约定。 – Motorhead1308 2014-10-29 16:09:11

如何让您的组合框选择选择的项目（自我解决）

回答

相关问题