スキルアップ・問題解決なら、モーグにおまかせ！

いつもお世話になっております。
 
フォームフィルター機能をボタンで再現したいです。
フォーム上にボタンを配置し、そのボタンを押すと、フォームフィルターと同じように入力画面に移行し、入力できるようにしたいです。
 
また、フィルター時の20/100を表示中に、残り分である80/100を表示できるように切り替えたい。
 
また、20/100を表示中に表示レコードを選択し、表示を除外したい。
　※20/100を19/100の表示にし、上記切り替えをすると、81/100となるようにです。
 
よろしくお願いします。

多くの要望がありますが、ご自身で、どこまでお調べになって、
具体的に何が判らなくてつまづいているのでしょうか？
 
 
一般的なのは、
フィルターの条件を入力する複数のテキストボックス等を設置したフォームを作成し
そのテキストボックスの中身を取得し、SQLの WHERE句を生成し、
Filter プロパティーに設定するなり、
フォームのレコードソースとして設定する
があります。
 
フォームフィルターで良いなら、フォームフィルターを呼び出せば良いのでは？
当方では、直接呼び出す方法が検索しきれませんでした。
 
Form.Filter イベント (Access)
https://learn.microsoft.com/ja-jp/office/vba/api/access.form.filter(even)
辺りで出来るかも知れませんが、確認できていません。
 
ApplyFilter も調べてみてください。
 
 
逆・・・は難しいのですよ。。
他のデータベースソフトだと、実装しているのもある様ですが。
 
 
実装するなら、フィルターで抽出するのではなく、
 
1. WHERE句を取得し、クエリとして保存。
2. このクエリをレコードソースとして、フォームを表示。
3. 逆を選択した際には、元のテーブルと、そのクエリの不一致クエリを作成。
4. 不一致クエリをフォームのレコードソースとして表示
の様な形でしょうか。
 
でも、これだと、編集は出来ない。
 
編集を考慮するなら、不一致クエリ結果の 主キー部分を、ワークテーブルに保存
ワークテーブルと、元テーブルを主キーで連結したクエリを ソースとしてフォーム表示でしょうか。

引用:
フォームフィルター機能をボタンで再現したいです。
フォーム上にボタンを配置し、そのボタンを押すと、フォームフィルターと同じように入力画面に移行し、入力できるようにしたいです。

Docmd.RunCommand acCmdFilterByForm

Private Sub コマンド1_Click()
    Dim f As String
    f = Me.filter
    If Me.FilterOn And f <> "" Then
        If Me.filter Like "Not (*)" Then
            Me.filter = Mid(f, 6, Len(f) - 6)
        Else
            Me.filter = "Not (" & f & ")"
        End If
    End If
End Sub

引用:
また、20/100を表示中に表示レコードを選択し、表示を除外したい。
　※20/100を19/100の表示にし、上記切り替えをすると、81/100となるようにです。

おーさん0729 さんの引用:

Suzu さんの引用:

逆・・・は難しいのですよ。。
他のデータベースソフトだと、実装しているのもある様ですが。

そうなんです。
要するに、FileMakerでの「現在の対象レコードにないレコードのみを表示」を
Accessで再現したいんです。
 

引用:
安易に考えれば、レコード 1件1件に、チェックボックスを用意し、そのチェックボックスにより選択を行う
これは、レコードソースに、そのチェックボックスのコントロールソースとなる
フィールドを用意する必要があります。

今しているのは、レコード自体にフィールドでチェックを持たせ、検索やフィルターをこのチェックのオンオフを表示して形にしています。
そこで少しでも簡単にできないものかと...。

hatena さんの引用:

かなり面倒なことになりそうですので、フォームフィルターを使えばいいと私も思います。
フォームフィルターを呼び出すコマンドは下記ですね。

Docmd.RunCommand acCmdFilterByForm

引用:

Not (フィールター条件式) で選択を反転できるので、下記のような感じでどうでしょう。

Private Sub コマンド1_Click()
    Dim f As String
    f = Me.filter
    If Me.FilterOn And f <> "" Then
        If Me.filter Like "Not (*)" Then
            Me.filter = Mid(f, 6, Len(f) - 6)
        Else
            Me.filter = "Not (" & f & ")"
        End If
    End If
End Sub

引用:
また、20/100を表示中に表示レコードを選択し、表示を除外したい。
　※20/100を19/100の表示にし、上記切り替えをすると、81/100となるようにです。

追記です。
 
したいこととしては、FileMakerの
「現在の対象レコードにないレコードのみを表示」※検索結果の反転
「レコードの対象外」※検索結果からの除外
「複数レコードを対象外に」
になります。これをAccessで再現したいです。
 
今日、調べていたのですが、
FileMakerの「検索」はAccessの「フィルター」でも「検索」でもないので、
少なくとも、Accessの「フィルター」で再現するなら、フィルターをかけた状態からレコードの増減ができないといけないなと思いました。

引用:
したいこととしては、FileMakerの
「現在の対象レコードにないレコードのみを表示」※検索結果の反転
「レコードの対象外」※検索結果からの除外

Private Sub コマンド1_Click()
    Dim f As String
    f = Me.filter
    If Me.FilterOn And f <> "" Then
        If Me.filter Like "Not (*)" Then
            Me.filter = "(" f & ") AND (ID <>" & Me.ID & ")"
        Else
            Me.filter = "ID<>" & Me.ID
            Me.FilterOn = True
        End If
    End If
End Sub

[quote="hatena"]

引用:
FileMakerは触ったことがないのでよくわかりませんが、
「レコードの対象外」というのが、
カレントレコードを対象外(非表示)にするということなら、

引用:
この場合、複数レコードはどのように指定することを想定してますか。
帳票フォームの場合、連続したレコードは複数選択可能ですが、とびとびのレコードも選択したいですよね。
例えば、チェックボックスを配置してチェックが入ったレコードを対象にするという感じでしょうか。

1. 抽出条件を元に、更新クエリを発行し、チェックボックスの連結フィールドの値を True へ 更新
2. True の レコードを 表示対象として表示
3. 反転処理で、Not（チェックボックス=True）のレコードを表示
　　チェックボックスは False のはず
4. ユーザー操作で、チェックボックス を True へ
5. 反転処理 で、 チェックボックス = True
 
で、希望の動作になるかと。

複数人 同時 使用前提の場合
ロックを自前で用意が必要になる事があります。
 
今回の操作でも、ワークテーブルを別に用意した方が無難でしょうね。
 
FileMakerは FileMakerの得意な事があり
そうであれば、FileMaker を使う方が無難でしょう。
 
難しいなら、難しいと言う事も仕事でしょうから。
その辺りの判断は必要と思います。

あれ、、、
 
これって、以前、同じ質問をされていませんか？
FileMaker を Access 移植。
 
その時も、マルチユーザー、抽出条件 の反転、の話は出て、
 
　サーバーではなく、ローカルに抽出条件を保存 しないと、
　複数人が同じ抽出結果を表示される様になるよと 話した記憶があります。
 
https://web.archive.org/web/20230326035031/https://www.moug.net/faq/viewtopic.php?t=81858
https://web.archive.org/web/20230531112029/https://www.moug.net/faq/viewtopic.php?t=81959&sid=fedc8c14e58ef87e69008e778bdd9f14
 
何と言うか・・お疲れ様です。

おーさん0729 さんの引用:

連続したレコードを選択する形です。
カレントレコードでボタンを押すと、メッセージで「○件対象外にしますか？」と表示して、入力した数字分をカレントレコードから対象外にする感じです。

おーさん0729 さんの引用:

具体的には、フィルター→20/100(表示)→反転→80/100(表示)→選択したレコードを対象外→79/100→反転→21/100という感じです。
(フィルターかけた)表示レコードに除外したレコードを足すといった感じですかね。
「フィルター」を使っている以上、両立できないような気がしてます...。

Suzu さんの引用:
あれ、、、
 
これって、以前、同じ質問をされていませんか？
FileMaker を Access 移植。
 
その時も、マルチユーザー、抽出条件 の反転、の話は出て、
 
　サーバーではなく、ローカルに抽出条件を保存 しないと、
　複数人が同じ抽出結果を表示される様になるよと 話した記憶があります。
 
何と言うか・・お疲れ様です。

hatena さんの引用:

帳票フォームでレコードセレクターをドラッグするあるいはShiftキーでクリックで複数選択して、その選択レコードを対象にするということではなく、
インプットボックスで件数を入力させて、カレントレコード以降その件数分を対象にするということでしょうか。
対象レコードの主キーの値を取得して、それもとに条件式をFilterに追加すれば可能でしょう。
 
前者の場合は、コマンドボタンだと、複数レコード選択が解除されますので、ラベルクリックで代用するなどの対策が必要です。
 
対象の主キーの値を取得する方法はRecorsetプロパティのレコードセットをループさせることで可能です。
 
下記のような条件式をFilterプロパティに追加すればいいでしょう。
 
(Filterプロパティの条件式) And (ID Not In (3,5,7,9))
 
IDが 3,5,7,9 のレコードを除外

引用:

前にも回答した反転方法で可能です。
 
79/100→反転→21/100
なら 79/100 の条件式を Not (条件式) とすることで可能です。

引用:
以前の質問時より開発状況はほぼ変わっておりません...

引用:
サーバーのテーブルの主キーをローカルに落としこんで、
その主キーにチェックボックスをくっつけたものをテーブルにして、
そのチェックボックスで、表示を操作してました。
 
が、ローカルに落とし込んでるので、サーバーデータが追加削除されると反映されないのです。
(一人ならもちろん問題なし。複数人なら、です)
 
なので、基本に帰って、検索方法(フィルター)を何とかできないかなーが今回の質問につながります

ありがとうございます。
全部ひとりでしてるので手一杯ですが、少しずつ進めていきます。