Microsoft Access Club Access超初心者対象Forum Access初級者対象Forum Access VBA Tips Forum DAO、ADO、SQL Forum

     

リストへもどる

投稿記事の一括表示

タイトル一つの項目内で複数の絞込み
記事No42616
投稿日: 2011/08/22(Mon) 10:10
投稿者いいだ
解決済: ON
OS:xp
Access Version:2007

テーブル内の項目に入力されたデータを複数選択(チェックボックス)
による絞込みを行いたいのですが、初心者なので作成に行き詰って
います。

テーブル:T_管理
項目:区域(a,b,c,dの4つしか入力しない)
項目1:区域に付随したフロアのデータを入力
絞込みフォーム:F_絞込み(チェックボックスによる絞込み)


項目 項目1
a  1F
a  2F
b  1F
b  3F
c  4F
d  2F
d  屋上

F_絞込みでは4つの項目(a,b,c,d)をチェックボックスにて
選択ができるようにしてあります。
この時、aのみの絞込み、aとbの絞込み、bとdの絞込み、aとbとdの
絞込み等、複数の絞込み(全ての条件および、全件表示)をしたいです。

クエリでの操作?になるのか、VBAでの操作になるのか、どなかた
サンプルを記載し、教えて下さい。

タイトルRe: 一つの項目内で複数の絞込み
記事No42617
投稿日: 2011/08/22(Mon) 10:29
投稿者Hank
解決済: ON
> F_絞込みでは4つの項目(a,b,c,d)をチェックボックスにて
> 選択ができるようにしてあります。
これはどうやっているんですか?
まずそれを説明してください。

タイトルRe^2: 一つの項目内で複数の絞込み
記事No42619
投稿日: 2011/08/22(Mon) 13:44
投稿者いいだ
解決済: ON
> > F_絞込みでは4つの項目(a,b,c,d)をチェックボックスにて
> > 選択ができるようにしてあります。
> これはどうやっているんですか?
> まずそれを説明してください。

フォームのコンボボックスで値集合ソースにて入力をしています

タイトルRe^3: 一つの項目内で複数の絞込み
記事No42622
投稿日: 2011/08/23(Tue) 09:35
投稿者Hank
解決済: ON
> > > F_絞込みでは4つの項目(a,b,c,d)をチェックボックスにて
> > > 選択ができるようにしてあります。
> > これはどうやっているんですか?
> > まずそれを説明してください。
> 
> フォームのコンボボックスで値集合ソースにて入力をしています

ん〜と、「チェックボックスとコンボボックスを置いたフォームが出来ているだけで、他はまだなんにも」ということですか?
で、絞り込みをしたいのはコンボボックスのリストということですね?


> > > F_絞込みでは4つの項目(a,b,c,d)をチェックボックスにて
チェックボックスの名前をchk1, chk2, chk3, chk4 としてください。

次にF_絞り込みフォームのモジュールに次の関数を組んでください。
'---------------------------------------------------
Function ChangeSource()
 Dim i As Integer
 Dim Criteria(1, 4) As String 
 Const Spce As String = " "
 Const strSource As String = "SELECT * FROM T_管理 WHERE" & Spce 

 Criteria(1, 1) = Spce & "Or 区域 = 'a'"
 Criteria(1, 2) = Spce & "Or 区域 = 'b'"
 Criteria(1, 3) = Spce & "Or 区域 = 'c'"
 Criteria(1, 4) = Spce & "Or 区域 = 'd'"

 For i = 1 To 4
   Critteria(0, 0) = Criteria(0, 0) & Criteria(Abs(Me("chk" & i)), i)
 Next

    Criteria(0, 0) = Mid$(Criteria(0, 0), 5)
 If Criteria(0, 0) = Space$(0) Then Criteria(0, 0) = "True"

 Me!コンボボックス名.RowSource = strSource & Criteria(0, 0)

End Function
'---------------------------------------------------

次に4つのチェックボックスを一括選択しておいて
「更新後処理イベント」プロパティに  = ChangeSource()
で完成。

ただし、使えるのは単票フォームだけです。
帳票フォームでは使えません。

タイトルRe: 一つの項目内で複数の絞込み
記事No42626
投稿日: 2011/08/25(Thu) 16:13
投稿者いいだ
解決済: ON
有難う御座いました
助かりました

- 以下のフォームから自分の投稿記事を修正・削除することができます -
処理 記事No パスワード

ページの先頭へ 前ページへ戻る