| |
▼小僧 さん：
>▼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
>
>
>コンボボックスで「ポジション」「年齢」を選んだ後、検索ボタンを押して
>結果を確認してみて下さい。
小僧さん
こんにちは。
上記サンプル試してみましたが、以下のような疑問点がでてきました。
>【cmbポジション】:コンボボックス
> 値集合ソース：SELECT [T_選手].ポジション FROM T_選手 GROUP BY [T_選手].ポジション;
>
>【cmb年齢】:コンボボックス
> 値集合ソース：SELECT [T_選手].年齢 FROM T_選手 GROUP BY [T_選手].年齢;
→これですと、フィールドの項目に[ ]があるものとないものがありますが、
全部につけなくていいのでしょうか？
このままコピーで使うと選択肢がでてきません。
>【検索ボタン】：コマンドボタン
>
>を配置します。
>
>検索ボタンの「クリック時」イベントに下記コードを記述します。
>
>Private Sub 検索ボタン_Click()
> Me.Filter = "ポジション = '" & Me.cmbポジション & "' AND 年齢 = " & Me.cmb年齢
> Me.FilterOn = True
> Me.txt人数 = Me.Recordset.RecordCount
>End Sub
>
→これもそのままコピーして使用したら、
Me.Filter = "ポジション = '" & Me.cmbポジション & "' AND 年齢 = " &
の部分で構文エラーがでます。Me.cmb年齢 を全行に持ってきて1行にすると赤い表示
は消えるのですが、それで検索ボタンを押しても動かないです。
これはホカのコンボボックスの設定がおかしいせいでしょうか？
■実際私が扱うデータは下記です■
元データ:クエリからフォームを作成してます。
〜フォームのフィールド〜
1.部署（テキスト型）
2.年（テキスト型）
3.月（テキスト型）
4.日（テキスト型）
5.NO,（テキスト型）
6.種別（正式、概算）（テキスト型）
7.客先名（テキスト型）
8.取引先名（テキスト型）
9.MODEL NO,（テキスト型）
10.コスト（通貨型）
※月日等、一見数値型では？と思われますが、検索用にわざとそうしております。
〜フォームのレイアウト〜
ヘッダに
・年（コンボボックス）
・月（コンボボックス）
・種別（コンボボックス）
・検索 （コマンドボタン）
・件数（テキストボックス）
・合計金額（テキストボックス）
★行いたいこと★
年、月、種別をコンボボックスから選択し、「検索」ボタンをクリック
→それにあたるレコードが詳細で表示され、件数、合計金額にそれの合計が表示される。
と したいです。
小僧さんが作成いただいたサンプルがまさにその通りなんですが、私ではうまく動かせない為、実際扱うデータでご教示願いますでしょうか？
宜しくお願い致します。（AcのVer.は97です）
|
|
![[未読]](./data/access/image/read_icon.gif){kind=icon}
