Access2013について
メイン親単票フォーム上に連動する二つのサブフォームを配置させました。
内一つは帳票、もう一つは単票にし、帳票からレコードを選択するとデータ詳細が単票側が連動するまで至りましたが、ここでサブフォーム帳票を並べ替えや抽出を実行すると、サブフォーム間の連動が出来なくなり、解決に困っております。
解決方法をご存知の方、お力添え願います。
親フォームに
VBA
Private Sub Form_Open(Cancel As Integer)
Set Me.SubForm2.Form.Recordset = Me.SubForm1.Form.Recordset
End Sub
抽出方法としては帳票サブフォーム上からとメインフォーム上からの実行までを試しておりますが、いずれも抽出後にサブフォーム間の連動が出来なくなってしまう状況です。
お力添え、宜しくお願いいたします。
A 回答 (1件)
- 最新から表示
- 回答順に表示
No.1
- 回答日時:
フォームで並べ替えやフィルタを設定すると、レコードセットが破棄されて再生成されますので、そのタイミングで、もう一度Recordsetに代入して同期させる必要があります。
ユーザーが右クリックなどでフィルタを掛けた時に発生するイベントとして「フィルタ実行時」イベントがありますが、これはフィルタが実行される前に発生するので、この時に代入しても同期しません。
「フィルタ実行後」というイベントがあればいいのですが、残念ながらありません。
そこで、タイマー実行時で同期させるコードを設定して、「フィルタ実行時」でタイマーを開始させるようにします。
SubForm1のモジュール
'タイマ時 イベント
Private Sub Form_Timer()
Me.TimerInterval = 0 'タイマー停止
Set Me.Parent.SubForm2.Form.Recordset = Me.Recordset
End Sub
'フィルタ実行時
Private Sub Form_ApplyFilter(Cancel As Integer, ApplyType As Integer)
Me.TimerInterval = 10 '10ミリ秒後にタイマー時の処理を実行
End Sub
大分時間が経過してしまいましたが、ご回答頂きありがとうございました。
何度も試しましたが、未だご回答の内容の動作が取れずの状態です。
現在はメインフォームにコントロールを置くことで何とか動いてくれる方法を見つけ、何とか対応しておりますが、システムの変更時に動かなくなるのではと不安ありです。
また質問をさせて頂く事もあると思っております。その時は宜しくお願いいたします。
ありがとうございました。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Access(アクセス) マイクロソフト アクセス2021のフォームビュー作成でレイアウトを帳票形式から単票形式にあとから変更 1 2023/03/03 10:56
- Access(アクセス) Accessでセレクタをダブルクリックで別フォームで詳細表示 3 2022/12/20 10:36
- Visual Basic(VBA) Accessフォームで全レコードを指定のExcelのセルへ転送し印刷する方法について 2 2022/09/08 18:23
- Visual Basic(VBA) ユーザーフォーム「frm_基本❶」を立ち上げると新規で入力する行数を右下のNoとして表示しています。 1 2023/03/16 19:02
- Access(アクセス) チェックボックスにチェックが入った後の挙動 1 2022/08/21 12:39
- JavaScript 入力フォームの javascript で メールアドレスの正規チェックをを行い、ボタンをクリックして 2 2022/04/27 16:06
- Access(アクセス) DoCmd.SearchForRecord が動かない時の解決方法 3 2022/07/22 15:31
- Access(アクセス) docmd.gotorecordを起動するには 5 2022/06/17 15:20
- Google Drive Google form を利用して 問い合わせフォームを作りたい 1 2022/04/25 14:15
- Access(アクセス) access レポート 請求書について 2 2022/07/04 22:52
このQ&Aを見た人はこんなQ&Aも見ています
-
性格の違いは生まれた順番で決まる?長男長女・中間子・末っ子・一人っ子の性格の傾向
同じ環境で生まれ育っても、生まれ順で性格は違うものなのだろうか。家庭教育研究家の田宮由美さんに教えてもらった。
-
フォームを開くときに、コンボボックスの値を選択(アクセスVBA)
Visual Basic(VBA)
-
Accessで数値型にNULLをInsertするとエラー
その他(データベース)
-
前のレコードの値を自動で入れたい
PowerPoint(パワーポイント)
-
-
4
新規レコード行を非表示にしたい
Access(アクセス)
-
5
Accessのサブフォームから値を参照する方法について
その他(データベース)
-
6
Accessでコードを入れると名前がでるようにしたい
Access(アクセス)
-
7
【ACCESS】フォーム名/コントロール名を文字列型変数で指定するには
Access(アクセス)
-
8
Access サブフォームでの選択行の取得
その他(データベース)
-
9
アクセスで数値型のフィールドにNullをいれたい
その他(データベース)
-
10
入力途中の入力した値をすべて削除する方法
その他(データベース)
-
11
スクロールバーをVBAで操作したい
Access(アクセス)
-
12
ACCSESS2013VBA フォームのレコードソースを変更する
その他(データベース)
-
13
テキストボックスのvalueとtextの違い
Visual Basic(VBA)
-
14
レコードを保存するコード アクセスvba
その他(Microsoft Office)
-
15
サブフォームを非表示させる方法を教えて下さい
その他(Microsoft Office)
-
16
ACCESS2013 VBA サブフォームから別なサブフォームを参照
その他(Microsoft Office)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
親フォームからサブフォームの...
-
accessでコンボボックスとサブ...
-
Accessで埋め込んだサブフォー...
-
ACCESS VBA メインフォーム及び...
-
サブフォームに対してGoToRecor...
-
クエリで出来た表にチェックボ...
-
ACCESS──メインフォームでサブ...
-
サブフォームの高さをVBAで調整...
-
Access 2003でサブフォームが更...
-
親・子リンクフィールドの設定...
-
Access:データシート形式表示...
-
Access2007 ラベルの削除がで...
-
皆さん使っているブラウザを教...
-
Accessでサブフォームのボタン...
-
DLookup関数を使ってサブフォー...
-
Access VBA には Gridはないで...
-
Access サブフォームでの表示フ...
-
access vba サブフォームに条件...
-
ACCESSの規定値を動的に設定す...
-
Access2010 サブフォームの並び...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
サブフォームに対してGoToRecor...
-
クエリで出来た表にチェックボ...
-
ACCESS──メインフォームでサブ...
-
サブフォームを非表示させる方...
-
親フォームからサブフォームの...
-
ACCESS VBA メインフォーム及び...
-
親・子リンクフィールドの設定...
-
【Access】サブフォームのソー...
-
ACCESSにて
-
ACCESSサブフォームにデータ反...
-
サブフォームのあるフォームか...
-
access フォーム上で複数行の...
-
Access VBA には Gridはないで...
-
Access フォームで条件抽出し...
-
Access2007 ラベルの削除がで...
-
ACCESSのサブフォームコピーに...
-
Access メインフォーム サブフ...
-
Accessで埋め込んだサブフォー...
-
ACCESSのフォームで列固定?
-
ACCESSで条件によってサブフォ...
おすすめ情報