| |
こんにちは。
息づまってしまったので、どなたか教えて下さい。
■テーブルの内容
テーブル名・・・Ｔ色サンプル価格
項目（フィールド）名・・・1.ＩＤ（オートナンバー型）
2.色名
3．一般（通貨型）
4.特別（通貨型）
■フォーム（帳票形式）の内容
コンボボックス名・・・1.種類（一般or特別）
2.色名
テキストボックス名・・・1.個数
2.金額
コマンドボックス・・・1.検索
名前は上記名前の前にそれぞれコンボならcmb、テキストならtxtと
つけています。
と このような、テーブル、フォームを作っています。
フォームで、種類（一般or特別）、色名を選択し、個数を手入力して検索ボタンをクリックするとそれに合致した価格X個数が金額に表示するようにしたいんです。
自分なりに作成したのが下記になります。
Private Sub 検索_Click()
Dim strfil As String
strfil = "色名 = '" & Me.cmb色名 & "' AND " _
& "一般 = '" & Me.cmb種類 & "' AND " _
& "特別 = '" & Me.cmb種類 & "'"
Me.Filter = strfil
MsgBox strfil
Me.FilterOn = True
End Sub
としましたが、次のような問題点＆行き詰っています。
Ｑ１．検索ボタンをクリックしたとき、確認msgが言葉にならず、「色名='5' AND 一般='1' AND特別='1'というようにID！？数字がでてしまう。
Ｑ２．txt金額のコントロールソースにはなんと入れればいいですか？
単純に価格X個数ですが、価格は「種類」で選択した一般又は特別のどちら かになるのでその都度条件にあった価格をもっていきたいのですが、わかり ません。
Ｑ３．上記の文では、「Me.Filter = strfil」部分でデバッグとなってしまいま す。
わかりにくい説明かも知れませんが、ヨロシクお願いします。
|
|
スターフルーツ
- 06/5/15(月) 14:35 -
