'コンボボックスの名称 cmbCD 'コンボボックスの値リスト Me.cmbCD.RowSource であらわされている。 If 条件1 = 真 then Me.cmbCD.Value = "" Me.cmbCD.RowSource = "クエリー1" Else Me.cmbCD.Value = "" Me.cmbCD.RowSource = "クエリー2" End If