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

このために、
１.サーバーテーブルをローカルテーブルへコピー
２.帳票フォームでローカルテーブルを表示しつつ、レコード入力・変更時にはローカルテーブルを変更
３.そのローカルテーブルをもとにサーバーのテーブルをフィールド単位で更新する
４.更新されたサーバーテーブルをローカルテーブルへコピー
という形を検討しています。
　※一つの帳票フォームでの使用であり、別の入力フォームの作成は不可。
 
２.〜４.はなんとか解決できた（トピック：コントロールソースを別テーブルに動的設定したい）のですが、１.のコピーについては、常に最新のサーバーテーブルを表示するようにしたいがレコード件数が約13万件、フィールド数が約140あり、コピーするにも時間がかかり現実的でないと思っています。
 
フォームの表示内容と更新等の処理を切り分けて考えることでできれば、できるような気がするのですが、Access自体の知識も乏しく良い方法が思いつきません。
何か良い方法や作り方があれば、ご教示お願いします。
 
よろしくお願いします。

引用:
１.サーバーテーブルをローカルテーブルへコピー
２.帳票フォームでローカルテーブルを表示しつつ、レコード入力・変更時にはローカルテーブルを変更

引用:
１.のコピーについては、常に最新のサーバーテーブルを表示するようにしたいがレコード件数が約13万件、フィールド数が約140あり、コピーするにも時間がかかり現実的でないと思っています。

引用:
ただ。。。
単票フォームなら、連結フォームとせず、非連結フォームとしてしまった方が楽でしょう。

引用:
1：編集前の表示の画面では、サーバーテーブルのレコードを表示　その中から編集するレコード指定
2：編集画面を開く際に、サーバーかローカルに 当該レコードをコピー
　　編集画面にはローカルのコピーしたレコードを表示　になります。
2： で表示するレコードが 1件のみであれば、単票フォームになるでしょうから
　　連結フォームにするメリットがありません。非連結フォームで十分です。

引用:
非連結フォームを処理する流れとしては
1：編集前の表示の画面では、サーバーテーブルのレコードを表示　その中から編集するレコード指定
ここは一緒。
 
2：非連結フォームの、各コントロールに 1で指定した レコードの値を代入。
　　(編集を行う 単票フォームのレコードソースやレコードセットには何も指定せず
　　コントロールのコントロールソースにも何も指定しません)
 
　保存ボタンを押した際に、画面上の値を サーバーの当該レコードの各フィールドの値として保存します。
　ローカルテーブルは必要ありません。

おーさん0729 さんの引用:
このやり方だと帳票フォームと入力フォームを分ける必要がありませんか？
 
編集前の表示の画面（帳票フォーム）上で入力・更新といった編集をしたいです。

引用:
１.サーバーテーブルをローカルテーブルへコピー
 
１.のコピーについては、常に最新のサーバーテーブルを表示するようにしたいがレコード件数が約13万件、フィールド数が約140あり、コピーするにも時間がかかり現実的でないと思っています。
 
フォームの表示内容と更新等の処理を切り分けて考えることでできれば、できるような気がするのですが、

引用:
フォームの表示内容と更新等の処理を切り分けて考えることでできれば、できるような気がするのですが、

いつも返信ありがとうございます。
 
編集前の表示の画面（帳票フォーム）でサーバーテーブルをソースにして、
レコードの検索結果のうち、検索結果レコードに表示フラグをもたせ、ローカルテーブルに追加、
ローカルテーブルレコードの表示フラグでフィルター設定する（ローカルテーブルにあるレコードだけを表示するように）
で直接サーバーテーブルを編集しつつ、表示はローカル依存にできるのではないかと考えました。
また、テーブルは、サーバーとローカルで、IDでリレーションさせてます。
 
この場合、サーバーテーブルをレコードソースにもつフォームをローカルテーブルのフィールドでフィルター設定することは可能でしょうか。
もしくは、一致クエリを使えば可能でしょうか。
設定を間違っているのか、うまく設定できません。
自分自身、Accessの理解がまだあまりできておらず、あいまいな説明になっていて申し訳ありません。

引用:
編集前の表示の画面（帳票フォーム）でサーバーテーブルをソースにして、
レコードの検索結果のうち、検索結果レコードに表示フラグをもたせ、ローカルテーブルに追加、
ローカルテーブルレコードの表示フラグでフィルター設定する
（ローカルテーブルにあるレコードだけを表示するように）
で直接サーバーテーブルを編集しつつ、表示はローカル依存にできるのではないかと考えました。

引用:
検索結果レコードに表示フラグをもたせ、ローカルテーブルに追加、

引用:
ローカルテーブルレコードの表示フラグでフィルター設定する
　（ローカルテーブルにあるレコードだけを表示するように）

引用:
　テーブルは、サーバーとローカルで、IDでリレーションさせてます。

引用:
Fld1 Fld2 Fld3 Fld4
1 A J K

引用:
同一レコードに対し、同時に複数ユーザーが 別のフィールドのValue を更新する

ありがとうございます。

引用:

記述されている処理の内容が理解できかねます。
その処理の目的・意図は何でしょうか？

引用:

方法.B

引用:
ローカルテーブルレコードの表示フラグでフィルター設定する
　（ローカルテーブルにあるレコードだけを表示するように）

引用:
　テーブルは、サーバーとローカルで、IDでリレーションさせてます。

　から ※1 の処理の意図を推測すると、
　　ローカルテーブルに、表示したい ID の値を保存。
　　その ID を、
　　SELECT * FROM
      サーバーテーブル INNER JOIN ローカルテーブル ON サーバーテーブル.ID = ローカルテーブル.ID
　　の様な感じに使いたい。
　　とも読めるのですが、
　　そうであるなら、ローカルテーブルにフィルターを適用するだけで、※1 の必要性がありません。

引用:

当方の前提条件は
・複数人ユーザーによる
・同一レコードにおいて、それぞれのフィールドの値を、それぞれ別のユーザーが同時に編集状態に入る
　　（フィールドA は ユーザーA、フィールドB は ユーザーB、・・・）があり得る
・を 帳票フォーム(帳票フォームの様に見えるを含む)で処理する
であり、
先のスレッド
https://www.moug.net/faq/viewtopic.php?t=81934

引用:
Fld1 Fld2 Fld3 Fld4
1 A J K

の実現を前提として検討しています。
23/01/06 08:59:23

引用:
同一レコードに対し、同時に複数ユーザーが 別のフィールドのValue を更新する

をお聞きしていますが、その回答を得られていません。
前提条件が違うのかどうなのか、説明をお願いします。

引用:

その前提条件が同じで、
　同一レコードに対し、別ユーザーが別フィールドに値を更新する為に
 23/01/06 21:28:52 の仕組みをお考えなら、先に説明した様に、
　レコードソースがサーバーテーブルである以上、実現できません。
前提条件が別で、 23/01/06 21:28:52 の仕組みをお考えなら、その意図をお聞かせください

引用:

他の方の質問の中でも、うまくいきません の様な 記載がある事が多いです。
でも うまくいかない だけでは、回答者には、何が希望と違うのかが判らず
原因も答えようがない事が多いです。
その様な事も考慮し、記載する事をお願いします。

1. 常に最新のサーバーテーブルを表示するようにしたい
2. レコード件数が約13万件、フィールド数が約140あり
3. 複数人ユーザーが同一レコードを同時編集することがある、その場合、最後に編集したユーザーのデータがテーブルに格納されればよい
4. 帳票フォーム上で入力・更新
 
ご希望の要点だけ抜き出すと上記のようなことでしょうか。
 
1.に関しては、サーバーテーブルのリンクテーブルを帳票フォームのレコードソースに設定することになるでしょう。
2.のデータ量だと表示に時間がかかるでしょうし、13万ものレコードを帳票表示して目的のレコードをスクロールして探すのは現実的ではないので、なんらかの抽出条件を設定して表示件数を絞り込んで、そのなかから目的のレコードを探すということになるでしょう。
 
3.は非連結フォームに帳票フォームのカレントコードのデータをコピーして、編集後、帳票フォームのレコードに上書きして保存すればいいでしょう。更新クエリで更新するという手もありますが、VBAで帳票フォームのカレントレコードに代入してレコード保存すれば一瞬ですので、更新クエリと大差ないでしょう。
 
ローカルテーブルにこだわっているようですが、要件からみてローカルテーブルにする必要性があるとは思えません。
そもそもご自身が最初に「コピーするにも時間がかかり現実的でないと思っています。」といっていますし。
 
4.に関しては、投稿日時: 23/01/06 17:20:18 の回答で提示した、非連結フォームを帳票フォームのカレントレコードに重ねて表示させればいいでしょう。
非連結フォームは帳票フォームの詳細セクションのレイアウトと同じにしておけばユーザーは帳票フォーム上で編集しているようにみえると思います。
 
非連結フォームを重ねるタイミングが難しいですが、編集ボタンを配置してそれをクリックして編集開始ということにしておけばそのタイミングで重ねればいいでしょう。保存も保存ボタンクリックで実行すればいいでしょう。
 
最初に提示した要件なら、私ならこのような設計にします。

同一レコード に対し、複数人ユーザーが 別々のフィールドを編集する 事を前提に回答していましたが
それを諦めるのであれば、
　サーバーテーブルをソースとする連結の帳票フォームで良いです。

引用:
あとで編集したデータが優先される仕組み、もしくは、「編集できなかった」と表示される仕組みを作れれば、良さそうです。

引用:
サーバーテーブルに表示フラグを持たせると、複数人使用時に検索結果の画面が同じになってしまう

「あとで編集したデータが優先される仕組み、もしくは、「編集できなかった」と表示される仕組み」とあるので、
 
前スレッドでの
 
同一レコードに対し、複数人がそれぞれ別フィールドの値を同時に更新する→それぞれの更新がテーブルに反映されるようにしたい
 
はあきらめたと解釈しましたが、可能なら実現したいということなら、
 
非連結フォーム(1レコードのみのワークテーブルでもいいですが)で、
どのフィールドを更新したかを配列にでも記録しておいて、
保存ボタンを押して、レコード保存するときに、
帳票フォームを Refeshメソッドでカレントレコードの最新データを読み込んで、
非連結フォームの更新していないフィールド値と帳票フォームの最新値と異なっていたら、
最新値の方で更新するというロジックでいいと思います。
 
これらの処理をVBAで短時間にすれば( Refeshメソッドはカレントレコードのみの読み込みなので時間はかからない)、Refesh → レコード保存が、複数ユーザーで重なることは稀ではあると思いますが、重なる場合を考慮するなら、Refesh → レコード保存の間はレコードロックをかけておくという処理を追加すればいいでしょう。更新時にロックされていて更新に失敗したら少し時間を置いて再トライするという処理にすればいいでしょう。

Suzu さんの引用:
同一レコード に対し、複数人ユーザーが 別々のフィールドを編集する 事を前提に回答していましたが
それを諦めるのであれば、
　サーバーテーブルをソースとする連結の帳票フォームで良いです。

引用:
あとで編集したデータが優先される仕組み、もしくは、「編集できなかった」と表示される仕組みを作れれば、良さそうです。

これも、更新時に同様の趣旨のメッセージが表示されます。
それでも、先の方法にこだわるのであれば、不満がおありなのだと思います
不満の内容は何でしょうか？

引用:

抽出にしても、帳票フォームに対し、フォームフィルター を適用する事で事足りると思います。
　検索条件を入れるにしても
　　・フォームォームヘッダーへ配置し、フォームフィルターを適用する
　　・単票フォームに条件を入れ、そこから帳票フォームを開くにしても
　　　Docmd.OprnForm の WhereCondition 引数 へ その条件を渡せば フォームフィルターへ適用できます。
　　・単票フォーム に、条件を入れる 各コントロールとサブフォームコントロールを配置
　　　サブフォームコントロールのコントロールソースをを帳票フォームとし、
　　　　リンク親子 を、条件を入れる各コントロール
　　等の方法もあります。
 
　抽出条件を別のフォームやレポートで利用したいなら、
　その 抽出条件 を 設定する事になる
　　Me.Filter プロパティー の 値 を
　　　対象となる オブジェクトの Filterプロパティに渡す
　　　対象となる オブジェクトを開く際の WhereCondition引数に渡す　
　で実現できます。
 
レコードソースとなるテーブルに 表示フラグを持たせる方法を採るにしても

引用:
サーバーテーブルに表示フラグを持たせると、複数人使用時に検索結果の画面が同じになってしまう

これは、表示フラグ Yes/No型 で考えていますよね？
Yes/No型 ではなく、「ユーザー名」またはユーザーを特定する数値を入れるフィールドを配置
その 値 で抽出する様にすれば 良いです。

引用:

何にしても、前スレッドで提案した、ローカルテーブルを持たせる手法は
【　同一レコードに対し、複数人がそれぞれ別フィールドの値を同時に更新する　】
　　を実現させる為に提案しています。
そうでないなら、サーバーテーブル（にリンクしたリンクテーブル）をソースにした
帳票フォームを作成すれば良いと思います。

hatena さんの引用:
「あとで編集したデータが優先される仕組み、もしくは、「編集できなかった」と表示される仕組み」とあるので、
前スレッドでの
同一レコードに対し、複数人がそれぞれ別フィールドの値を同時に更新する→それぞれの更新がテーブルに反映されるようにしたい
はあきらめたと解釈しましたが、可能なら実現したいということなら、
非連結フォーム(1レコードのみのワークテーブルでもいいですが)で、
どのフィールドを更新したかを配列にでも記録しておいて、
保存ボタンを押して、レコード保存するときに、
帳票フォームを Refeshメソッドでカレントレコードの最新データを読み込んで、
非連結フォームの更新していないフィールド値と帳票フォームの最新値と異なっていたら、
最新値の方で更新するというロジックでいいと思います。
これらの処理をVBAで短時間にすれば( Refeshメソッドはカレントレコードのみの読み込みなので時間はかからない)、Refesh → レコード保存が、複数ユーザーで重なることは稀ではあると思いますが、重なる場合を考慮するなら、Refesh → レコード保存の間はレコードロックをかけておくという処理を追加すればいいでしょう。更新時にロックされていて更新に失敗したら少し時間を置いて再トライするという処理にすればいいでしょう。

引用:
現時点では、保存ボタンの作成は考えていません。

引用:
表示フラグ Yes/No型でしてますが、フィールドが１つしかないと個別の値にしても、使用者AとBの検索結果がかぶったときに上書きされて、最初の人は表示されなくなりませんか？

フィールド毎に更新されたらそく反映する場合、
非連結フォームを重ねるという方法を提案しましたが、今、もっといい方法があるのを思い出しました。
 
帳票フォームの連結テキストボックスの背面に非連結テキストボックスを配置する方法です。連結テキストボックスと非連結テキストボックスのサイズを同じにしておけば、通常は非連結テキストボックスは連結テキストボックスの背面に隠れています。非連結ボックスにフォーカスが当たると前面に出てくるという性質があります。
 
連結テキストボックスのタブストップは「いいえ」にしてフォーカスが来ないようにしておいて、フォーカス取得時に、非連結へフォーカス移動するようにしておきます。
 
非連結テキストボックスの更新後処理に下記のような処理を設定しておきます。
 
Me.Refresh で最新データの読み込み
フィールドに非連結の値を書き込み
Me.Refresh でレコード保存、再読込
 
コードとしては下記のようになります。
 

Private Sub 連結テキストボックス_Enter()
    Me.非連結テキストボックス.SetFocus
End Sub

Private Sub 非連結テキストボックス_AfterUpdate()
    Me.Refresh
    Me.連結テキストボックス.Value = Me.非連結テキストボックス.Value
    Me.Refresh
End Sub

もう一度 良く読み返し
 
当方の認識から

引用:
2.のデータ量だと表示に時間がかかるでしょうし、13万ものレコードを帳票表示して目的のレコードをスクロールして探すのは現実的ではないので、なんらかの抽出条件を設定して表示件数を絞り込んで、そのなかから目的のレコードを探すということになるでしょう。

引用:
自分なら、クライアント側に ID と 表示フラグ(Yes/No型) のフィールドのみのテーブルを作成しておいて、サーバーのリンクテーブルとIDで外部結合させればいいでしょう。

引用:
フィールドが１つしかないと個別の値にしても、使用者AとBの検索結果がかぶったときに上書きされて、最初の人は表示されなくなりませんか？

引用:
「サーバーテーブル（にリンクしたリンクテーブル）をソースに」が何とリンクさせているのか、いまいちよく分かっていません...

面白そうだったので、投稿日時: 23/01/12 10:47:36 の回答の方法のサンプルを作成してみました。
 
ソースのテーブルは下記
 
ID 主キー　オートナンバー型
F1 短いテキスト
F2 短いテキスト
F3 短いテキスト
F4 短いテキスト
F5 短いテキスト
 
上記のテーブルを元に帳票フォームを作成。
各連結テキストボックス名はフィールド名と同じ。
上記のテキストボックスをコピーして貼り付け。
コントロールソースを削除、
名前を txtF1, txtF2 ・・・・というように前に連結テキストボックス名の前にtxtを追加したものに変更。
 
フォームモジュールに下記のコードを記述。
 

Option Compare Database
Option Explicit
Private OldValue

Private Function FocusChange()
    Me("txt" & Me.ActiveControl.Name).SetFocus
End Function

Private Function txtGotFocus()
    MyRefresh
    OldValue = Me.ActiveControl.Value
End Function

Private Function txtAfterUpdate()
    Dim NewValue, CurValue
    Me.Refresh '最新データ読み込み
    NewValue = Me(Mid(Me.ActiveControl.Name, 4)).Value
    If NewValue <> OldValue Then
        If MsgBox("他のユーザーがこのフィールドを更新しました。編集した値で上書きしてもいいですか。", vbYesNo) = vbNo Then
            MyRefresh
            Exit Function
        End If
    End If
    Me(Mid(Me.ActiveControl.Name, 4)).Value = CurValue
    MyRefresh
End Function

Public Sub MyRefresh()
    Me.Refresh '最新データ読み込み
    '↓非連結テキストボックスを最新データに更新
    Dim ctl As Control
    For Each ctl In Me.Controls
        If ctl.Name Like "txt*" Then
           ctl.Value = Me(Mid(ctl.Name, 4)).Value
        End If
    Next
End Sub

hatena さんの引用:

上記のようにすると、イベントとFunctionプロシージャを関連付けることができるので、各コントロールのイベント処理を共通化できます。(Accessはクラスを使わなくてもこのような方法で共通化できるので楽です。)

引用:
よくわからずに、モジュールに書いたFunctionをCallで呼び出してたのですが、もっと簡単にできるってことですよね？

hatena さんの引用:

ソースのテーブルは下記
ID 主キー　オートナンバー型
F1 短いテキスト
F2 短いテキスト
F3 短いテキスト
F4 短いテキスト
F5 短いテキスト
 
上記のテーブルを元に帳票フォームを作成。
各連結テキストボックス名はフィールド名と同じ。
上記のテキストボックスをコピーして貼り付け。
コントロールソースを削除、
名前を txtF1, txtF2 ・・・・というように前に連結テキストボックス名の前にtxtを追加したものに変更。
 
フォームモジュールに下記のコードを記述。
 

Option Compare Database
Option Explicit
Private OldValue

Private Function FocusChange()
    Me("txt" & Me.ActiveControl.Name).SetFocus
End Function

Private Function txtGotFocus()
    MyRefresh
    OldValue = Me.ActiveControl.Value
End Function

Private Function txtAfterUpdate()
    Dim NewValue, CurValue
    Me.Refresh '最新データ読み込み
    NewValue = Me(Mid(Me.ActiveControl.Name, 4)).Value
    If NewValue <> OldValue Then
        If MsgBox("他のユーザーがこのフィールドを更新しました。編集した値で上書きしてもいいですか。", vbYesNo) = vbNo Then
            MyRefresh
            Exit Function
        End If
    End If
    Me(Mid(Me.ActiveControl.Name, 4)).Value = CurValue
    MyRefresh
End Function

Public Sub MyRefresh()
    Me.Refresh '最新データ読み込み
    '↓非連結テキストボックスを最新データに更新
    Dim ctl As Control
    For Each ctl In Me.Controls
        If ctl.Name Like "txt*" Then
           ctl.Value = Me(Mid(ctl.Name, 4)).Value
        End If
    Next
End Sub

 
ID以外の連結テキストボックスを選択した状態で、プロパティのフォーカス取得時に
=FocusChange()
と設定。
非連結テキストボックスを選択した状態で、プロパティのフォーカス取得後に
=txtGotFocus()
更新後処理に
=txtAfterUpdate()
と設定。

一番の課題は、検索した後の表示レコードの表示の仕方だと気付きました。
紆余曲折してすみません。

引用:
「表示フラグ」の必要性が理解できてませんが、必要なら、ユーザー毎に表示フラグを持たせる場合、自分なら、クライアント側に ID と 表示フラグ(Yes/No型) のフィールドのみのテーブルを作成しておいて、サーバーのリンクテーブルとIDで外部結合させればいいでしょう。
一対一関係になりますので扱いにちょっとこつがいりますが、下記を参考にしてみてください。
一対一関係のテーブル設計 - hatena chips
https://hatenachips.blog.fc2.com/blog-entry-29.html

おーさん0729 さんの引用:

同じように作成したのですが、NewValue=""となってしまい、入力後に空欄になってしまいました。

Me(Mid(Me.ActiveControl.Name, 4)).Value = CurValue

Me(Mid(Me.ActiveControl.Name, 4)).Value = Me.ActiveControl.Value

おーさん0729 さんの引用:
一番の課題は、検索した後の表示レコードの表示の仕方だと気付きました。
紆余曲折してすみません。

おーさん0729 さんの引用:

参考に一対一のリレーションは（たぶん）できたのですが、リンクの例で言うと、
�@フォームに従のレコード表示ができない（ソースの設定がうまくいかない？）
�A従のレコードを使用したフィルター設定ができない
で困っています。

hatena さんの引用:

おーさん0729 さんの引用:

同じように作成したのですが、NewValue=""となってしまい、入力後に空欄になってしまいました。

あっ、すみません。いろいろ修正していたのですが、修正する前のもの貼り付けていたようです。
Function txtAfterUpdate()内の下記の部分を修正してください。
 

Me(Mid(Me.ActiveControl.Name, 4)).Value = CurValue

↓
 

Me(Mid(Me.ActiveControl.Name, 4)).Value = Me.ActiveControl.Value

hatena さんの引用:
検索(抽出)処理はうまくできているということですか。(処理速度的にも問題ないですか。)
抽出した後、さらに、チェックボックスで表示するレコードを絞り込むということでしょうか。

引用:
リンク先を参考にクエリを作成したのでしょうか。
そのクエリのSQL文を提示してもらえますか。文を提示してもらえますか。

おーさん0729 さんの引用:

�@サーバーレコードを特定検索（自作処理）
�A該当するレコードをローカルレコード（ID、表示フラグ）に追加。
�Bそのローカルレコードと同じサーバーレコードだけを表示。（フィルター設定？）
です。
 
したいことは「ローカルレコードに存在するレコードと同じサーバーレコードの表示」です。
もしくは、「抽出条件をローカルレコードにしたサーバーレコードの表示」です。
あくまでも、表示するのはサーバーレコードです。
投稿日時: 23/01/11 14:42:58や投稿日時: 23/01/12 08:20:21でも触れている内容です。
表示フラグにこだわりません。表示するレコードがサーバーレコードであり、複数の使用者で共用にならなければ、大丈夫だと思います。

引用:
�@サーバーレコードを特定検索（自作処理）とは、具体的にどのような処理なのでしょう。
抽出条件を生成してフィルターをかけるということでしょうか。
もし、そうならその時点で目的のサーバーレコードの絞り込みはできているということではないですか。
その抽出条件を帳票フォームのフィルターに設定すれば済む話だと思いますが。あるいは、抽出条件を設定したクエリをレコードソースに設定すればいいと思いますが。
ローカルテーブルが必要になる必然性が分かりません。
抽出条件の生成ではないのなら、�@サーバーレコードを特定検索（自作処理）[/color]の具体的に内容を説明してください。

コードを提示していただいたので、解読を試みたが、とてもじゃなけど読めません。
未定義の変数が多数あり、無駄な処理が多数あり、・・・・
そもそも、コンパイルエラーで実行不可、
 

引用:
�@検索用フォームに検索ワードを入力する。複数入力、and,or可能（見た目は表示用フォームと同じ）
�A対応するフィールドで検索ワードを使い、抽出。
�B表示フラグを持たせる
�C表示フラグでフィルター設定

テーブル
　T_サーバー        ID(COUNTER:主キー), 他フィールド
　T_ローカル        |D(Long), 選択(Yes/No)
 
 
処理
1　検索用 帳票フォーム
　　ソース
    SELECT T_サーバー.*, T_ローカル.選択
    FROM T_サーバー INNER JOIN T_ローカル ON T_サーバー.ID INNER JOIN T_ローカル.ID
 
　　詳細セクションに
    T_サーバーの 表示したいフィールド と　T_ローカルの 選択 をソースとしたコントロールを配置
 
　　フォームヘッダーに
    検索用のコントロールを配置
 
2　検索用フォーム を開く前に T_サーバーの ID の最大値を取得
    T_ローカルのID に、最大値までの値を全て追加
    (更新クエリにて、T_ローカルの選択を全て False に変更)
 
3　検索用フォームを開く (Filter = Off)
 
4　ユーザーは、検索用フォーム フォームヘッダーに検索条件を入力し
　　フィルターにて、レコード抽出(Filter = On)
 
5　ユーザーは 表示したいレコードの「選択」をチェック
 
6　適当なイベントで
　　レコードソースを
    SELECT T_サーバー.*, T_ローカル.選択
    FROM T_サーバー INNER JOIN T_ローカル ON T_サーバー.ID INNER JOIN T_ローカル.ID
    WHERE T_ローカル.選択=True
　　としたフォームを開き
　　検索フォームを閉じる
 
全体はこんな感じで良いのでは？
 
 
別になりますが、
表示したいテーブルを、フォームとして表示した状態で、
そのテーブルを、SQL の UPDATE 〜 等で 更新しない方が良いです。
 
フォーム として表示しているという事は、レコードを使用している状態です。
ここで、SQL UPDATE〜 を 処理すると言う事は、別ルートでテーブルにアクセスしています。
 
・フォームを閉じる
・フォームのレコードが表示されない様にし、レコードソースに "" を渡し、
　　一時的に非連結フォームとし、処理が終わったら、レコードソースを元に戻す
・UPDATE〜 を使用しないで、フォームのレコードセットに対しループ処理
等の方が接続数を減らすという意味で、良いと思います。

hatena さんの引用:
コードを提示していただいたので、解読を試みたが、とてもじゃなけど読めません。
未定義の変数が多数あり、無駄な処理が多数あり、・・・・
そもそも、コンパイルエラーで実行不可、
 
�@�Aで抽出ができている、つまり、抽出条件が生成できているので、それを帳票フォームにフィルターに設定するだけのこと。
�B�Cは不要です。
 
これが理解できないなら、私とは次元の違う位置にいると思われますので、これ以上の私からのアドバイスはないです。

Suzu さんの引用:
テーブル
　T_サーバー        ID(COUNTER:主キー), 他フィールド
　T_ローカル        |D(Long), 選択(Yes/No)
 
 
処理
1　検索用 帳票フォーム
　　ソース
    SELECT T_サーバー.*, T_ローカル.選択
    FROM T_サーバー INNER JOIN T_ローカル ON T_サーバー.ID INNER JOIN T_ローカル.ID
 
　　詳細セクションに
    T_サーバーの 表示したいフィールド と　T_ローカルの 選択 をソースとしたコントロールを配置
 
　　フォームヘッダーに
    検索用のコントロールを配置
 
2　検索用フォーム を開く前に T_サーバーの ID の最大値を取得
    T_ローカルのID に、最大値までの値を全て追加
    (更新クエリにて、T_ローカルの選択を全て False に変更)
 
3　検索用フォームを開く (Filter = Off)
 
4　ユーザーは、検索用フォーム フォームヘッダーに検索条件を入力し
　　フィルターにて、レコード抽出(Filter = On)
 
5　ユーザーは 表示したいレコードの「選択」をチェック
 
6　適当なイベントで
　　レコードソースを
    SELECT T_サーバー.*, T_ローカル.選択
    FROM T_サーバー INNER JOIN T_ローカル ON T_サーバー.ID INNER JOIN T_ローカル.ID
    WHERE T_ローカル.選択=True
　　としたフォームを開き
　　検索フォームを閉じる
 
全体はこんな感じで良いのでは？

引用:

別になりますが、
表示したいテーブルを、フォームとして表示した状態で、
そのテーブルを、SQL の UPDATE 〜 等で 更新しない方が良いです。
 
フォーム として表示しているという事は、レコードを使用している状態です。
ここで、SQL UPDATE〜 を 処理すると言う事は、別ルートでテーブルにアクセスしています。
 
・フォームを閉じる
・フォームのレコードが表示されない様にし、レコードソースに "" を渡し、
　　一時的に非連結フォームとし、処理が終わったら、レコードソースを元に戻す
・UPDATE〜 を使用しないで、フォームのレコードセットに対しループ処理
等の方が接続数を減らすという意味で、良いと思います。

そもそもFileMaker と Access は違うものであり、当然GUIも違います。
それらしく 見せる事はできるかも知れませんし、できないかも知れません。
少なくとも、全く同じにする事は無理だと思います。
 
少なくとも、当方は FileMaker を知りませんから、具体的な GUI をどうするかは全く判りません。
 
 

引用:
完全再現はできなかったのですが、４から６を一緒に処理するのが理想かもです。
５の必要がなく、検索結果が表示されれば、良いです。
また、ボタン一つで検索結果の反対（False）レコードの表示やフィルターのリセット（レコードソースの設定？）もしたいです。

引用:
抽出条件 を指定し、抽出結果を表示、更にその抽出結果に対し、表示するレコードを「選択」し画面に表示する

Suzu さんの引用:
そもそもFileMaker と Access は違うものであり、当然GUIも違います。
それらしく 見せる事はできるかも知れませんし、できないかも知れません。
少なくとも、全く同じにする事は無理だと思います。
少なくとも、当方は FileMaker を知りませんから、具体的な GUI をどうするかは全く判りません。
5の必要が無い？？
抽出条件 を指定し、抽出結果を表示、更にその抽出結果に対し、表示するレコードを「選択」し
画面に表示するのではなかったのでしょうか？
それなのに、その「選択」が必要ないのですか？

引用:
当方は 大まかな処理の流れを提示させて頂いただけであり、
希望とそぐわない部分があれば、希望の動作になる様に、修正すれば良いです。
おおまかな流れについての当方の認識は、

引用:
抽出条件 を指定し、抽出結果を表示、更にその抽出結果に対し、表示するレコードを「選択」し画面に表示する

違うのであれば、どう動かしたいのか説明くさい。質問者さんの理想が、どうあるのか当方には判りません。
当方は、処理を行うための大まかな流れや、部分的なコードは提示するかもしれませんが
希望の動作そのものをする全体コードは提示しませんので、ご承知ください。

引用:
見た目は少なくとも同じ感じ。処理は同じように処理できれば大丈夫です。

引用:
帳票フォームで全件100件表示状態から、検索用フォームを使い、偶数を抽出（検索）する。

引用:
2,4,6,...と偶数50件を帳票フォームに表示する。

引用:
50件表示状態から再抽出しても、全件から再抽出できるように。

引用:
少し別件なのですが、
ここの即効テクニック→Access一般機能→データ操作→他のテーブルのデータを直接参照する
にあるDlookUp関数をコントロールソースにしたデータはフィルター設定にできないですか？
=DLookUp("[ローカル用.表示]","[ローカル用]","[ローカル用].[ID]=[サーバー].[ID]")
を帳票フォームに配置して、これをフィルターかけれたら、解決するのではと思っています。

引用:
1.帳票フォームで全件100件表示状態から、検索用フォームを使い、偶数を抽出（検索）する。
「検索用フォーム」にて 抽出条件を指定 これは判ります
　　念のため・・ これは、抽出条件のみを入れる、非連結単票フォームですよね？

引用:
3.50件表示状態から再抽出しても、全件から再抽出できるように。
？？？ 　2.で、50件は表示されているのですよね？ 同じレコードを表示する？
　　　　2. と何が違うのでしょうか？
　　　　　　抽出条件が変わるのですか？
　　　　　　表示するフォームが変わるのですか？

引用:
抽出したい 値を持つコントロールを選択し、手動で、抽出が適用できれば
Filter で出来るでしょう。

引用:
帳票フォームをコピーしてコントロールを非連結にしている"非連結帳票フォーム"にしてます。
メニュー→表示フォーム→検索フォーム→表示フォームです。
また、"非連結単票フォーム"タイプのものもあります。
こちらは、メニュー→検索フォーム→表示フォームで使っています。

引用:
もしかして、設定を間違っているだけで、常に全件から抽出できるんですかね？(表示されているレコードから抽出されるものだと思ってました。)

    Dim strWhere As String
    strWhere = Forms![フォーム].Filter

　　'フィルタープロパティーが適用済みか判断
    If Len(strWhere) > 0 AND Forms![フォーム].FilterOn = True Then
      'フィルター適用済み
      '既存のフィルターに【 区分2="いい" 】を追加
      Forms![フォーム].Filter = Forms![フォーム].Filter & " And 区分2=""いい"""
　　Else
      'フィルター適用なし
      'フィルターに【 区分2="いい" 】を渡す
      Forms![フォーム].Filter = "区分2=""いい"""
　　End If
    Forms![フォーム].FilterOn = True

引用:
抽出条件を入力させるフォームが 検索フォームなのですね。
　（非連結 の 帳票フォーム は 作成できません。
　　非連結にした段階で単票になるはずです。）

引用:
フィルター適用済みのフォームに対し

引用:
　　MSGBOX Forms![フォーム].Filter

とでもして
Filterの内容を確認しましょう。
保存した クエリの SQL の WHERE句 以降と同じはずです。
先のコードでも示しましたが、
変数 = Forms![フォーム].Filter とでもすれば、Filter の文字列を退避できます。
必要な時に、
Forms![フォーム].Filter = 変数
と戻せばFilterの抽出を再現できます。

引用:
質問者さんは、Filter の処理の 認識が違うので

引用:
3.50件表示状態から再抽出しても、全件から再抽出できるように。

この動作が必要と感じたのでしょうが、
そもそも、全件からの抽出になるので、処理自体必要無いと言う事で良いでしょうか？

引用:

-----------------------------------------------------------------------------------
VBA は、手動操作 を 自動化します。
手動で操作を行っている事を 楽にする為　
或いは、
ユーザーインターフェイスとして、ボタンやテキストボタンを配置しユーザー操作の簡易化を図ります。
ですから、Accessにどんな機能があるか 動作がどうなるか を知ったうえで使った方が良いです。
また、手動できちんと動作する事を確認し、
その上で、VBAでどう自動化するかを考えましょう。
一般的には、一般機能を知った上で、VBAを使い操作します。
対し、 質問者 さん は 一般機能 についての 理解が不足している様に思います。
回答者としては
コードでこの機能を使っているのであれば、この辺りは理解しているだろうと 推測する部分について
質問者の 理解が 不十分であったり、間違っている事で　表現に対し認識の齟齬が発生している状況です。
手動で、操作し動作する事を確認しましょう。

質問者さんの 希望の動作が出来た様で何よりです。
 
 

引用:
検索用テーブルを作り、それと連結させていました！
そのフィールドの値を変数に持たせて、検索ワードで使っています。

引用:
この辺を参考になんとか形にできました。
フィルターが働いていなかった原因は、別のところで違うレコードソースを設定していたからみたいです。

引用:
フィルターの設定の仕方が悪かったものだと思われます！なんとかなりました！

Suzu さんの引用:

結局、勘違いや、設定違い ですか・・ 今までの 時間は・・
それも、結局は 気付けなかった自分自身も悪いのですが・・
SQL JOIN に別テーブルを指定し、その別テーブルに抽出条件となるキーワードを設定
確かに、在りますね
上記を採ると、一致条件が完全一致になり ユーザー目線で使いたいと思える、
【フィールドの内容の一部に 指定したキーワードが含まれいる部分一致の抽出】
に不向きであり、思考の枠外においていました。
とりあえず、今回の質問に関しては解決された様でなによりです。

マルチユーザーによる使用について VBAで作成するのは 難易度として高い部類です。
 
失礼とは思いますが、質問者の方はVBAコーディングのスキルはお持ちの様ですが
抽出についての考え方に現れている様に Accessの機能 への 習熟が不足していて、
容易な手法があるにも関わらず煩雑な手法を採用し VBAコーディングになっている様に拝見します。
 
既存のFileMakerシステムを Accessへ移植させる それが会社(上司)の意思とは拝聴しましたが
既存のモノを移植するのに、1年以上掛けているのであれば、会社としては
質問者の方に、VBA云々もでしょうが、Accessのスキル習得も期待しているのではないでしょうか？
 
色々と齟齬が出て把握しきれていないとの事ですが
状況の把握を行い、移行進捗・問題点を含め、上司の方と相談された方が良いと思います。

Suzu さんの引用:
マルチユーザーによる使用について VBAで作成するのは 難易度として高い部類です。
 
失礼とは思いますが、質問者の方はVBAコーディングのスキルはお持ちの様ですが
抽出についての考え方に現れている様に Accessの機能 への 習熟が不足していて、
容易な手法があるにも関わらず煩雑な手法を採用し VBAコーディングになっている様に拝見します。
 
既存のFileMakerシステムを Accessへ移植させる それが会社(上司)の意思とは拝聴しましたが
既存のモノを移植するのに、1年以上掛けているのであれば、会社としては
質問者の方に、VBA云々もでしょうが、Accessのスキル習得も期待しているのではないでしょうか？
 
色々と齟齬が出て把握しきれていないとの事ですが
状況の把握を行い、移行進捗・問題点を含め、上司の方と相談された方が良いと思います。

引用:
調べながらでしたので、拾ってきた情報をそのまま流用して、帳尻を合わせて行き当たりばったりに作っていた感じです。なので、いろいろ支障をきたしています。