多个组合框选择访问VBA

时间:2014-03-11 01:59:21

标签: vba ms-access combobox

我正在尝试创建一个VBA代码,如果组合框等于这个或这个或那个,那么就会填充单选按钮。当我只使用一个桶(134)它工作正常,但当我尝试添加多个部分,我得到和错误。

我的代码:

If Me.cmbBucketFilter = "134,135,136" Then
    'Working Echo Triggers
    Me.fmeReached.Visible = True
    Me.fmeRecovered.Visible = True
    Me.fmeError.Visible = False
      Else
    'Working Another Bucket
    Me.fmeError.Visible = True
    Me.fmeReached.Visible = False
    Me.fmeRecovered.Visible = False
  End If

1 个答案:

答案 0 :(得分:0)

只有当cmbBucketFilter等于“134,135,136”(它永远不能)时,你才会要求它运行。如果它等于任何那些值,那么你真正想要的就是它。

将第一行更改为:

If Me.cmbBucketFilter IN ("134", "135", "136") Then