| |
> ＜お料理テーブル＞
> お料理名 牛肉 豚肉 鶏肉 タマネギ にんじん ジャガイモ 写真 レシピ
> カレー YES NO NO YES YES YES YES YES
> オムライス NO NO YES YES NO NO NO YES
テーブル：T_材料
フィールド：材料ID
材料名
テーブル：T_料理
フィールド：料理ID
料理名
写真の有無
レシピの有無
テーブル：T_使用材料
フィールド：料理ID
材料ID
のようなテーブル構成がいいと思います。
まぁ、現在の構成を前提で回答します。
フォームの開く時イベントで、
Me!リストボックス.RowSource = _
"SELECT お料理名, 写真, レシピ FROM お料理テーブル"
フォームモジュールの中に、
Private Sub 抽出サブ()
Dim strSql As String
If Me!chk牛肉 = True Then
strSql = strSql & "牛肉 = True AND "
End If
If Me!chk豚肉 = True Then
strSql = strSql & "豚肉 = True AND "
End If
：（省略）
strSql = "SELECT お料理名, 写真, レシピ FROM お料理テーブル" _
& Left(strSql, Len(strSql) - 4)
Me!リストボックス.RowSource = strSql
Me!リストボックス.Requery
End Sub
んで、各チェックボックスの更新後イベントで、
Call 抽出サブ
と入れてみてください。
テキストエディタでの直書きなので、間違いがあるかも ^^;
|
|
![[未読]](./data/access/image/read_icon.gif){kind=icon}
