Question

我有一个带有组合框的表单。选择组合框中的某些选项将触发表单中的不同操作。

我想在打开表单或转到下一条记录时自动选择第一个下拉选项。使用VBA命令ComboBox.Value = "Option1"仅将一个字符串输入到组合框中;它与手动单击选项不同，不会触发其他操作。

如何在Access组合框中选择一个选项，Access会像点击它一样识别它？

Answer 1

如果您想在点击事件中使用按钮更新/更改comboxbox值

me.combobox.value = "option1"

Answer 2

在下面的代码中，将Combo7更改为ComboBox的名称。将Filed1更改为表的Fieldname。将option1更改为您的选项字符串：

Private Sub Form_Current()
   If IsNull(Me.recordSet.field1) Then
       Me.recordSet.Edit
       Me.recordSet.Field1 = "option1"
       Me.recordSet.Update
   End If
   Call Combo7_Change
End Sub

在下面的代码中，将Text9.Value更改为表单打开或更改记录时要执行的代码：

Private Sub Combo7_Change()
    Select Case Combo7.Value
    Case "option1"
       Text9.Value = 1
    Case "option2"
       Text9.Value = 2
    Case "option3"
       Text9.Value = 3        
    End Select    
End Sub

如果你有问题，请告诉我。

Answer 3

我通过设置其他答案中所述的组合框值来解决此问题，然后调用AfterUpdate事件，我的操作被编码。该事件触发并使用我使用VBA设置的ComboBox.Value。

ComboBox.Value = "Option1"
Call ComboBox_AfterUpdate

在Access 2013中为VBA选择组合框选项

3 个答案: