| |
▼かるびの さん：
>>オプショングループのオプションボタンで
>>複数選択や全て表示させるには
>>どの様に変更すれば良いでしょうか？
>
> オプショングループ内のオプションボタンについて複数選択をすることはできません。
> それが仕様です。
>
>
> もしオプションボタンの複数選択をしたいなら、オプショングループは配置せず、
>フォーム上にそのままオプションボタンを配置します。
>
> ただ、オプショングループを使わないと、オプショングループの機能、すなわち、例えば、
>「opt1」という名前のオプションボタンが選択されているときに、
>「opt3」という名前のオプションボタンを選択したら、
>「opt1」の選択が解除される
>という機能は使えなくなります。
> しかし、その機能はＶＢＡを使って実装すればいいです。
>
>
> また、オプション値とは、オプショングループコントロールの値ですから、
>オプショングループを使わなければ、オプション値を取得することはできなくなります。
>
> その代わり、If文あるいはSelect Case文を使って、
>各オプションボタンの値に応じて、フィルタに設定する抽出条件文字列を生成する
>ことになります。
お返事ありがとうございます
だいぶググって以下を作成しましたがテキスト用の検索と
グループ用の検索をどの様に組み合わせたらいいのか解りません
Dim strTemp As String
strTemp = "Nz(項番, '') LIKE '*" & テキスト1 & "*'" & _
" AND Nz(お客様名, '') LIKE '*" & テキスト2 & "*'" & _
" AND Nz(住所, '') LIKE '*" & テキスト3 & "*'" & _
" AND Nz(電話番号, '') LIKE '*" & テキスト4 & "*'" & _
" AND Nz(郵便番号, '') LIKE '*" & テキスト5 & "*'" & _
" AND Nz(対応者1次, '') LIKE '*" & テキスト6 & "*'" & _
" AND Nz(対応日1次, '') LIKE '*" & テキスト7 & "*'" & _
" AND Nz(対応者2次, '') LIKE '*" & テキスト8 & "*'" & _
" AND Nz(対応日2次, '') LIKE '*" & テキスト9 & "*'"
Me!サブクエリのサブフォーム.Form.Filter = strTemp
Me!サブクエリのサブフォーム.Form.FilterOn = True
’今回作成した検索
Select Case Me.グループ
Case 1: Me.サブクエリのサブフォーム.Form.Filter = "進捗='OK'"
Case 2: Me.サブクエリのサブフォーム.Form.Filter = "進捗='NO'"
Case 3: Me.サブクエリのサブフォーム.Form.Filter = "進捗='未定'"
Case 4: Me.サブクエリのサブフォーム.Form.Filter = "進捗='その他'"
Case 5: Me.サブクエリのサブフォーム.Form.Filter = "項番 is not null" ←IDを全て表示
Case 6: Me.サブクエリのサブフォーム.Form.Filter = "(進捗 ='OK' Or 進捗 = 'NG') AND 対応日2次 is null"
End Select
ご教授いただければ幸いです
|
|
naan
- 15/10/26(月) 15:09 -
![[未読]](./data/access/image/read_icon.gif){kind=icon}
