| |
小僧さん：
こんばんわ。
ずーっと、トライしましたが上手くいきません。
一体、どこが悪いのでしょうか？
[#5863]の例ですと、「ポジション」と「年齢」で抽出していましたが、このへんを
「打刻日付の左4文字」 と 「年コンボ」
「打刻日付の6、7文字目」 と 「月コンボ」
を比較すれば可能ですね。この場合は文字列での比較になります。
まずは、[#5863]からトライしたのですが上手くいきません。
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
これに、入団日を付け加えてトライしました。
入団日：日付型
フィールドには適当な年月日を入力
【コンボ年】:コンボボックス
値集合ソース：SELECT Left(選手1.入団日,4) FROM 選手1 GROUP BY Left(選手1.入団日,4);
【コンボ月】:コンボボックス
値集合ソース：SELECT Mid(選手1.入団日,6,2) FROM 選手1 GROUP BY Mid(選手1.入団日,6,2);
【テキストポジション】：テキストボックス
【テキスト人数】：テキストボックス
【検索ボタン】：コマンドボタン
Private Sub 検索ボタン_Click()
Me.Filter = "入団日 = '" & Me.コンボ年
Me.FilterOn = True
Me.テキスト人数 = Me.Recordset.RecordCount
End Sub
何度やっても上手く行かないので１つずつ確認しながら実行するために短くしました。
これで、実行すると
“このオブジェクトに値を代入することはできません。”となってしまいます。
Dim〜As Stringを使うのかとも考え、やってみたのですが結果は同じでした。
どこがいけないのでしょうか？
宜しくお願いします。
給与計算のところで Iif をクエリで使いましたが、
本当はあれもあまり良くないですね…。
他に方法を知らないのですが･･･。
・mdbは年度単位
・テーブルは「今月テーブル」「先月以前テーブル」(もちろん名前は違いますが)
できることならそうしたいですが、どの書籍も詳細から書き始めて
結果的にこうなるというような書き方をしているものが多く、
Access全体を把握しきれていない私には根本的にどう作り上げていくのか考えが及びません。
情けないですが･･･。
|
|
わん
- 05/8/18(木) 2:23 -
