Microsoft Access 掲示板

Microsoft Access 掲示板

サブフォームの入力内容をチェックしたい / 2
2
hatena 2024/03/21 (木) 23:02:44

メイン・サブフォームがあります（メインＩＤでリレーション）。

サブフォームのリンク親フィールド、リンク子フィールドに「メインID」が設定されている状態でしょうか。

サブフォームのフォームヘッダーかフォームフッターにテキストボックスを配置して
下記のように設定します。

名前　サブチェック
コントロールソース　=Sum([F1]=90+[F2]=90)<>0

If Me.F_Sub.Form!サムチェック Then
   kaeri = MsgBox("項目９０がありますが、そのまま閉じていいですか？", vbYesNo)
End If

Falseは0、Tureは-1なので、90の-件数になることを利用しています。
このようなことを使うのはちょっとという場合は、

コントロールソース　=Sum(IIf([F1]=90,1,0)+IIf([F2]=90,1,0))<>0

通報 ...