先日質問した者です。その際はhatenaさまの回答でお世話になりました。別の事でやり方が分からない事がでてきました。
メイン・サブフォームがあります（メインＩＤでリレーション）。
サブフォームにはフィールドがいくつかあります。Ｆ１、Ｆ２・・・
Ｆ１、Ｆ２はコンボボックスでＩＤ選択となってます。Ｆ１選択時はＦ２がＮＵＬＬの時に仮の項目（ID：90）が一旦代入される様にしてます（Ｆ２を先に選択時はＦ１がそうなる様にしてます）。仮の項目はフォームを閉じるまでに別な項目（ID：90以外）を選択させたいので、メインフォームにある閉じるボタンに注意喚起の下記のコードを記述しました。（クリック時イベント）
Dim check1 As Integer, kaeri As Integer
check1 = DCount("*", "クエリ１", "[F_Sub].Form![Ｆ１]=90 Or [F_Sub].Form![Ｆ２]=90")
If check1 > 0 Then
kaeri = MsgBox("項目９０がありますが、そのまま閉じていいですか？", vbYesNo)
End If
その後はvbYes、vbNoの処理をさせてます。クエリ１はチェック用にフォームのメインＩＤだけを条件にしたものを用意してます（DCountの条件を一度に記載が難しかったので）。
これで出来たと思ったのですが、このコードだとサブフォームのフォーカスのある行でしかチェックが出来てない事に気づきました。例えば２行目に項目IDの90があり、フォーカスが１行目の状態で閉じるボタンではスルーしてしまいます。
サブフォーム全体をチェックさせる事は可能でしょうか？
Microsoft Access 掲示板
サブフォームの入力内容をチェックしたい
3
コメント
views
4
フォロー
通報 ...
きちんと「クエリ１」に存在するフィールドを指定するだけでは？
質問文の状態では、「クエリ１」とは無関係の内容を抽出条件にしているので、「『クエリ１』とは無関係な内容の真偽によって、『クエリ１』の全件数または0どちらかの数値を得る」という計算になっています
サブフォームのリンク親フィールド、リンク子フィールドに「メインID」が設定されている状態でしょうか。
サブフォームのフォームヘッダーかフォームフッターにテキストボックスを配置して
下記のように設定します。
名前 サブチェック
コントロールソース =Sum([F1]=90+[F2]=90)<>0
Falseは0、Tureは-1なので、90の-件数になることを利用しています。
このようなことを使うのはちょっとという場合は、
コントロールソース =Sum(IIf([F1]=90,1,0)+IIf([F2]=90,1,0))<>0
hirotonさま：ありがとうございます。初歩的なミスをしてました。確かにそうですね、修正したら機能しました。フォームの入力内容とクエリ値がごっちゃになってました。
hatenaさま：ありがとうございました。なるほどです。ちょっとした事ですが中々思いつかないアイデアです。参考にします。