Access VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

8310 / 9994

←次へ　｜　前へ→


	【4861】Re:フィルタについて

Gin_II - 05/4/10(日) 21:56 -


	引用なし

	パスワード

> ＜お料理テーブル＞
> 　　お料理名　牛肉　豚肉　鶏肉　タマネギ　にんじん　ジャガイモ　写真　レシピ　　　　　
> 　　　カレー　　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 抽出サブ

と入れてみてください。

テキストエディタでの直書きなので、間違いがあるかも ^^;

442 hits

▼

【4853】フィルタについて うさこ 05/4/10(日) 0:07