現在2つの問題に直面しています。
どなたかご存知の方いらっしゃいましたらご教示お願い致します。
下記のようなデータベースがあります
テーブル名:テーブル
列名:類、目、名称
哺乳類 単孔目 カモノハシ
哺乳類 有袋目 カンガルー
哺乳類 有袋目 コアラ
哺乳類 貧歯目 アリクイ
哺乳類 貧歯目 アルマジロ
鳥類 ダチョウ目 エミュー
鳥類 ダチョウ目 ダチョウ
鳥類 ダチョウ目 ヒクイドリ
鳥類 ペリカン目 ペリカン
(実際には学名や生息地域等の列名がありますが割愛します)
まず1つ目の問題ですが、
これをフォーム上(フォーム名:一覧画面)で
コンボボックスから選択した物を表示させるようにフィルター機能を使い行っています。
現在コンボボックスで選択肢として(目を選択するコンボボックスの例)
"全て";"単孔目";"有袋目";"貧歯目";"ダチョウ目";"ペリカン"
のように値を指定しています。
数が少ないうちはいいですが、これからデータの追加があった場合にその都度ここに書き足していくのではそのうち漏れや間違いが発生しそうで困っています。(作業量も多くなりますし)
コンボボックスにクエリの値を参照するようにしてみたのですが、選択肢が
単孔目 有袋目 有袋目 貧歯目 貧歯目 ダチョウ目 ダチョウ目 ダチョウ目 ペリカン目
のようになってしまい、同じものがいくつも出てきてしまうのと
全て という選択肢がなくなってしまいます。
次に2つ目の問題ですが、
上記の一覧画面をフィルター機能で検索した画面をレポートに出力したいのですが、条件がうまくいかず困っています。
上記のフォームをロードする際に
Me.目コンボボックス = "▼選択してください"
のように記述しているのですが、
全て と ▼選択してください を選択したときは全てのレコードを
そうでない場合は該当レコードのみを出したいのですが
全て と ▼選択してください の場合がうまくいきません。
IIf([Forms]![一覧画面]![目コンボボックス] = "全て","*",[Forms]![一覧画面]![目コンボボックス]) And IIf([Forms]![一覧画面]![目コンボボックス] = "▼選択してください","*",[Forms]![一覧画面]![目コンボボックス])
のように記述しております。
どなたか上記の問題について解答宜しくお願いします。
A 回答 (1件)
- 最新から表示
- 回答順に表示
No.1
- 回答日時:
レスがなかなかつかないようですが、
まず現状のコンボボックスから見て
いきます。
質問のデータが少ないので以下の
ようにこちらで推測します。
まず、テーブルの名前はtblDATA、
コンボボックスの名前はcmbSelect、
とし、テーブルのフィールドの
ひとつを目とします。フォームは
新規作成からフォームウィザード
で表形式で、レコードソースは
tblDATAとします。
コンボボックスの値リストの項目が
漸次増えていくのでどうにかしたい
ということでは、ます値リストの
中身を削除します。次に値集合ソース
に次のSQL文をはりつけます。
SELECT tblDATA.目
FROM tblDATA
GROUP BY tblDATA.目
UNION SELECT "(全て)" AS 目
FROM tblDATA;
これで値リストに触ることなく
コンボボックスに項目が追加されて
いきます。
次に、コンボボックスの"(全て)"を
選択したときと、どれかの項目を
選択したときに正しく表示したい
という場合は、フォームのコードに
Private Sub cmbSelect_AfterUpdate()
Dim strField As String
strField = cmbSelect.Value
With Me.Form
If strField <> "(全て)" Then
.Filter = BuildCriteria("目", 1, Me.cmbSelect)
.FilterOn = True
Else
.FilterOn = False
End If
End With
End Sub
を貼り付け、フォームを保存します。
これでフォームにはコンボボックス
で選んだ項目が表示されるようにな
ります。
フォームのロード時のイベントプロシージャ
はこの場合全て必要ありません。
レポートについては、文脈がわかりずらい
のと、質問はひとつにしてほしいと
いうことと、まずはコンボボックスの
働きを確かめて別途質問とされてはいか
がですか。いっぺんにたくさんの質問
をされるとレスがつきにくいと思いま
すが。いかがでしょうか。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- SQL Server DBのテーブルの設計ができず困っています。 2 2023/06/29 16:43
- Excel(エクセル) コンボボックス及びリストボックスを5段階連動させる方法をご存知の方ご教授頂きたいです。 Excelで 3 2022/04/03 21:43
- Access(アクセス) Accessフォーム 一部のレコードだけを抽出する方法について 1 2022/06/28 18:45
- Access(アクセス) access フォーム 大分類、小分類 1 2022/08/11 18:03
- 画像編集・動画編集・音楽編集 動画をディスク作成すると画像が乱れる。 4 2022/06/24 07:49
- Access(アクセス) Accessにインポートした複数のテーブルを表示させる方法が分かりません。 1 2023/01/30 20:22
- Chrome(クローム) 入力フォームの履歴を消したい 2 2023/06/29 13:02
- iPhone(アイフォーン) iPhone/iPadの標準メールアプリでのアカウント新規登録について pop/imap選択 1 2023/06/22 08:00
- JavaScript セレクトを全て選択されていないと、文字によるエラーメッセージを表示させるコードを調べています 2 2023/06/22 15:48
- HTML・CSS HTMLのフォームについてお尋ねします 1 2022/12/03 21:47
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
至急!尿検査前日にオナニーし...
-
首吊りどこ締めるの
-
尿検査の前日は自慰控えたほう...
-
尿検査前日に自慰行為した時の...
-
射精をして1週間以内に尿検査を...
-
白血球が多いとどんな心配があ...
-
中出しをするとお腹が痛い・・・。
-
今朝、毎朝の習慣でオナニーし...
-
変な話しになります。尿検査で...
-
1日前の検尿
-
彼女のことが好きすぎて彼女の...
-
腕を見たら黄色くなってる部分...
-
検便についてです。 便は取れた...
-
EXCELで条件付き書式で空白セル...
-
小数点以下を繰り上げたものを...
-
勃起する時って痛いんですか? ...
-
男です。昨日の午後3時くらいに...
-
2つの数値のうち、数値が小さい...
-
これって喉仏ですか? 私は女性...
-
EXCELで式からグラフを描くには?
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
首吊りどこ締めるの
-
中出しをするとお腹が痛い・・・。
-
麻疹風疹の抗体検査結果につい...
-
エクセルでエラーが出て困って...
-
白血球が多いとどんな心配があ...
-
彼女のことが好きすぎて彼女の...
-
検便についてです。 便は取れた...
-
勃起する時って痛いんですか? ...
-
至急!尿検査前日にオナニーし...
-
納豆食べた後の尿の納豆臭は何故?
-
これって喉仏ですか? 私は女性...
-
EXCELで条件付き書式で空白セル...
-
精子が黄色?
-
小数点以下を繰り上げたものを...
-
値が入っているときだけ計算結...
-
口の中に黒い血の塊
-
健否~書類の書き方~
-
甲状腺が腫れているが血液検査...
-
はしかの抗体検査は何科の病院...
-
テスターで断線を調べる方法教...
おすすめ情報