Access VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

6525 / 9994

←次へ　｜　前へ→


	【6672】コンボボックスでの検索方法（２）

チャラ - 05/10/29(土) 23:05 -


	引用なし

	パスワード

＜つづき＞

次に教えてもらったコードを書き込みました。

(3) クラスモジュール
---------------------------------------------------------------------------クラスモジュール[ClsAutoFilterControlSetting]
---------------------------------------------------------------------------
Option Compare Database
Option Explicit

'--------------------------------------------------------------------------
'プロパティ値保存用変数(1)
'--------------------------------------------------------------------------
Private mFilterControlName As String 'コントロールの名前
Private mFieldName As String '対応するフィールドの名前
Private mFieldType As Long '対応するフィールドのデータ型
Private mFilter As String '対応するフィールドに対する抽出条件

'--------------------------------------------------------------------------
'プロパティ値保存用変数(2)
'--------------------------------------------------------------------------
Private mFilterValues1 As Variant '値(条件1)
Private mFilterValues2 As Variant '値(条件2)
Private mFilterCompare1 As Long '比較方法(条件1)
Private mFilterCompare2 As Long '比較方法(条件2)
Private mFilterOperator As Long '演算子

'--------------------------------------------------------------------------
'プロパティの値を取得 - コントロールの名前
'--------------------------------------------------------------------------
Public Property Get FilterControlName() As String
　　　Let FilterControlName = mFilterControlName
End Property

'--------------------------------------------------------------------------
'プロパティに値を設定 - コントロールの名前
'--------------------------------------------------------------------------
Public Property Let FilterControlName(ByVal pFilterControlName As String)
　　　Let mFilterControlName = pFilterControlName
End Property

'--------------------------------------------------------------------------
'プロパティの値を取得 - 対応するフィールドの名前
'--------------------------------------------------------------------------
Public Property Get FieldName() As String
　　　Let FieldName = mFieldName
End Property

'--------------------------------------------------------------------------
'プロパティに値を設定 - 対応するフィールドの名前
'--------------------------------------------------------------------------
Public Property Let FieldName(ByVal pFieldName As String)
　　　Let mFieldName = pFieldName
End Property

'--------------------------------------------------------------------------
'プロパティの値を取得 - 対応するフィールドのデータ型
'--------------------------------------------------------------------------
Public Property Get FieldType() As Long
　　　Let FieldType = mFieldType
End Property

'--------------------------------------------------------------------------
'プロパティに値を設定 - 対応するフィールドのデータ型
'--------------------------------------------------------------------------
Public Property Let FieldType(ByVal pFieldType As Long)
　　　Let mFieldType = pFieldType
End Property

'--------------------------------------------------------------------------
'プロパティの値を取得 - 対応するフィールドに対する抽出条件
'--------------------------------------------------------------------------
Public Property Get Filter() As String
　　　Let Filter = mFilter
End Property

'--------------------------------------------------------------------------
'プロパティに値を設定 - 対応するフィールドに対する抽出条件
'--------------------------------------------------------------------------
Public Property Let Filter(ByVal pFilter As String)
　　　Let mFilter = pFilter
End Property

'--------------------------------------------------------------------------
'プロパティの値を取得 - 値(条件1)
'--------------------------------------------------------------------------
Public Property Get FilterValues1() As Variant
　　　Let FilterValues1 = mFilterValues1
End Property

'--------------------------------------------------------------------------
'プロパティに値を設定 - 値(条件1)
'--------------------------------------------------------------------------
Public Property Let FilterValues1(ByVal pFilterValues1 As Variant)
　　　Let mFilterValues1 = pFilterValues1
End Property

'--------------------------------------------------------------------------
'プロパティの値を取得 - 値(条件2)
'--------------------------------------------------------------------------
Public Property Get FilterValues2() As Variant
　　　Let FilterValues2 = mFilterValues2
End Property

'--------------------------------------------------------------------------
'プロパティに値を設定 - 値(条件2)
'--------------------------------------------------------------------------
Public Property Let FilterValues2(ByVal pFilterValues2 As Variant)
　　　Let mFilterValues2 = pFilterValues2
End Property

'--------------------------------------------------------------------------
'プロパティの値を取得 - 比較方法(条件1)
'--------------------------------------------------------------------------
Public Property Get FilterCompare1() As Long
　　　Let FilterCompare1 = mFilterCompare1
End Property

'--------------------------------------------------------------------------
'プロパティに値を設定 - 比較方法(条件1)
'--------------------------------------------------------------------------
Public Property Let FilterCompare1(ByVal pFilterCompare1 As Long)
　　　Let mFilterCompare1 = pFilterCompare1
End Property

'--------------------------------------------------------------------------
'プロパティの値を取得 - 比較方法(条件2)
'--------------------------------------------------------------------------
Public Property Get FilterCompare2() As Long
　　　Let FilterCompare2 = mFilterCompare2
End Property

'--------------------------------------------------------------------------
'プロパティに値を設定 - 比較方法(条件2)
'--------------------------------------------------------------------------
Public Property Let FilterCompare2(ByVal pFilterCompare2 As Long)
　　　Let mFilterCompare2 = pFilterCompare2
End Property

'--------------------------------------------------------------------------
'プロパティの値を取得 - 演算子
'--------------------------------------------------------------------------
Public Property Get FilterOperator() As Long
　　　Let FilterOperator = mFilterOperator
End Property

'--------------------------------------------------------------------------
'プロパティに値を設定 - 演算子
'--------------------------------------------------------------------------
Public Property Let FilterOperator(ByVal pFilterOperator As Long)
　　　Let mFilterOperator = pFilterOperator
End Property

406 hits

▼

【6670】コンボボックスでの検索方法 チャラ 05/10/29(土) 22:42