Accessナビゲーションフォームでサブフォームのフィルター更新について

Question

Access2010のナビゲーションフォームについての質問です。

サブフォームをデータシートビューで表示して、メインフォームの条件によりサブフォームのフィルター切り替えで表示を更新するものを、

ナビゲーションフォームに乗せたところ、他の移動ボタンのクリック時に「サブフォームを保存しますか？」と聞かれるようになってしまいました。

（動作は問題なく、条件通りのフィルタで表示しています）

色々調べたのですが、ナビゲーションフォームでなく通常のフォームを外側に作成すると問題ないので、

ナビゲーションフォームの場合フィルターを更新してもサブフォームはリアルタイムで保存されず、

切り替わるときにメッセージが表示されてしまうようです。

サブフォームが保存されないのは何か原因があるのでしょうか？

また最悪、保存メッセージだけ回避したいのですが、回避方法をご存じないでしょうか？

P.S.

移動ボタンのクリック時に強制的にメッセージを出さないようにしようと思いましたが、

移動ボタンのClick、メインフォーム/サブフォームのUnloadよりも先に保存メッセージが出てしまうのでダメでした。

よろしくお願いいたします。

Answer 1

MukkuMuku様

原因がわかりましたのでご連絡します。

サンプルプログラムを新規に作成、とお話していたのですが、

テーブルとサブフォームに関しては手を抜いて既存のものを改造していました。

全く新規に作成したところ、保存確認メッセージが出なくなったため差異を確認したところ、

メッセージが出る方のサブフォームプロパティ「読み込み時に並べ替えを適用」が"いいえ"になっており、

これを"はい"に変更したところメッセージが出なくなりました。

このプロパティと保存確認メッセージの関連は分からないのですが、

とりあえずご報告まで。

お手数をおかけして申し訳ありません。ありがとうございました。

P.S.

Filter と Order に関しては解決しましたが、

本物のシステム開発に関しては、サブフォームフィールドの"ColumnHidden"制御も行っています。

この変更に対しても保存確認メッセージが出てしまうのですが、

こちらはパターンが少ないので別サブフォームを用意して切り替える方法を取ろうかと考えています。

Answer 2

MukkuMuku様

返信ありがとうございます。

保存したいわけではないです。

変更したプロパティは破棄されても全く問題ないのですが、別の移動ボタンをクリックしたときに保存のダイアログが出てしまうので困っています。

下記のサンプルプログラムを作成したのですが、同じ現象が発生します。

何か使い方が間違っていますでしょうか。

(Filterは使用せず、OrderByだけを使用しています）

サブフォーム

　レコードソース：POST_CODE

　項目（PREFECT_CD、PREFECT_NM)をテキストボックスで定義

メインフォーム

　サブフォームを貼り付け

　コマンドボタン作成（コマンド1、コマンド２）

　Private Sub コマンド1_Click()

    Me!サブフォーム.Form.OrderBy = "PREFECT_CD DESC"

    Me!サブフォーム.Form.OrderByOn = True

    Me!サブフォーム.Requery

　End Sub

　Private Sub コマンド2_Click()

    Me!サブフォーム.Form.OrderBy = "PREFECT_CD"

    Me!サブフォーム.Form.OrderByOn = True

    Me!サブフォーム.Requery

　End Sub

ナビゲーションフォーム

　移動ボタン１、移動ボタン２を作成

　移動ボタン１のNavigationSubformにメインフォームを設置

これで実行すると、コマンド１、コマンド２を押す度にサブフォームの表示順序が変わるのですが、

移動ボタン２を押したときに「サブフォームを保存しますか？」のメッセージが出てしまします。

Answer 3

MukkuMukuです。

実行時に変更などしたプロパティは保存されないのですが、保存をしたいということでしょうか？

どんな方法なら保存のダイアログが表示されるのか試してはみるものの特に手がかりがなく、ふとどっちなんだろうと思って。

Answer 4

MukkuMuku様

返信ありがとうございます。

>“サブフォーム“が配置された“メインフォーム”をナビゲーション フォーム内に表示するフォームの一つとして配置したということでよいのでしょうか。

その通りです。

フィルタの処理は、

メインフォームにサブフォームに表示しているテーブルの抽出条件を指定するテキストボックスなどがあり、

メインフォームの”抽出実行"ボタンをクリックすることにより、サブフォームのフィルタを書き換えてRequeryすることにより表示を変えています。（条件によりOrderByも指定しています）

なので、テキストボックスなどに入力された値によりテーブルの複数項目に対して"="や"Like"のAND条件でフィルタをかけています。

よろしくお願いいたします。

Answer 5

MukkuMukuです。

‐‐‐

サブフォームをデータシートビューで表示して、メインフォームの条件によりサブフォームのフィルター切り替えで表示を更新する

‐‐‐

このフィルタ処理はどのような内容でしょう。

保存の対象となっているフォームとは。

“サブフォーム“が配置された“メインフォーム”をナビゲーション フォーム内に表示するフォームの一つとして配置したということでよいのでしょうか。