多個組合框選擇訪問VBA

Question

我正在嘗試創建一個VBA代碼，其中說，如果combobox等於this或this或this，則填充單選按鈕。 當我只使用一個存儲桶（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

Answer 1

您要求它僅在cmbBucketFilter等於“ 134、135、136”時運行（它永遠不會）。 如果它等於任何這些值，則您真正想要的是運行它。

將第一行更改為此：

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