Access VBA質問箱 IV

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

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


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

7325 / 9994

←次へ　｜　前へ→


	【5863】Re:検索用のフォーム作成

小僧 - 05/8/17(水) 10:04 -


	引用なし

	パスワード

▼QOO さん：
おはようございます。

テーブルやフォームのご提示がありませんので、
仮テーブルを作って例を作ってみます。
T_選手
背番号　　:数値型(主キー)
選手名　　:テキスト型
ポジション:テキスト型
年齢　　　:数値型
年棒　　　:通貨型

背番号　選手名　ポジション　年齢　年棒
2　　　　　もとき　　内野手　　 34　　\12,000
5　　　　きよはら　内野手　　 38　　\45,000
6　　　　　こくぼ　　内野手　　 34　　\21,000
8　　　　　にし　　　内野手　　 34　　\15,300
18　　　　くわた　　投手　　　37　　\30,500
20　　　　ろおず　　外野手　　37　　\54,000
33　　　　えとう　　内野手　　 35　　\21,500
47　　　　くどう　　投手　　　　42　　\28,000

このテーブルを基に帳票フォームで「F_選手」を作成して下さい。
レポートヘッダを広げて、そこに

【cmbポジション】:コンボボックス
　　値集合ソース：SELECT [T_選手].ポジション FROM T_選手 GROUP BY [T_選手].ポジション;

【cmb年齢】:コンボボックス
　　値集合ソース：SELECT [T_選手].年齢 FROM T_選手 GROUP BY [T_選手].年齢;
　　
【txt人数】：テキストボックス

【txt年棒合計】：テキストボックス
　　コントロールソース：=Sum([年棒])

【検索ボタン】：コマンドボタン

を配置します。

検索ボタンの「クリック時」イベントに下記コードを記述します。

Private Sub 検索ボタン_Click()
　　Me.Filter = "ポジション = '" & Me.cmbポジション & "' AND 年齢 = " & Me.cmb年齢
　　Me.FilterOn = True
　　Me.txt人数 = Me.Recordset.RecordCount
End Sub

コンボボックスで「ポジション」「年齢」を選んだ後、検索ボタンを押して
結果を確認してみて下さい。

345 hits

▼

【5854】検索用のフォーム作成 QOO 05/8/14(日) 15:29