条件によって、Where分のキーを変更させたい

質問

ACCESS97を使用しています。SQL文の中で、変数？を使用したいのですが、
その扱いがわかりません。

例)　下記のようなテーブルがあります。

項目(1) 項目(2) 項目(3) 項目(4) 項目(5)
1 A 100 EE RR
2 B 200 EE RR
3 A 100 EE RR
4 A 100 CC EE
5 B 300 RR EE
6 A 100 RR EE
7 B 200 CC RR

フォーム上で、項目(2)を入力します。(入力_1)
また、もう1つ、データを入力します。(入力_2、EE,CC,RR)

項目(2)の値によって、
Aの時、項目(4)
Bの時、項目(5)をみにいくようにしたいのです。

例えば、入力_1=A、入力_2=EEの時、
合計値200　(項目(1)は、1,3)
　　　　入力_1=B、入力_2=EEの時、
合計値300　(項目(1)は、5)

この時、下記のようなロジックを組んでみたのですが
パラメーターが少なすぎます　と出てきます。
　(SELECT対象は、一旦　*　にしています）

Dim KEY　As String

If (ME.入力_1 = "A") Then　　'条件は別入力です。
KEY = "項目(4)"
Else
KEY = "項目(5)"
End If

Set RS = Nothing
Set DB = Nothing
Set DB = CurrentDb()
strSQL = "SELECT * FROM テーブル WHERE "
strSQL = strSQL + "KEY='" & Me.入力_2 & ";"
strSQL = strSQL + "AND 項目(2)='" & Me.入力_1 & "'"
Set RS = DB.OpenRecordset(strSQL, dbOpenDynaset, dbReadOnly)

KEY をどのようにすればいいのかがわかりません。
宜しくお願いします。

回答No.1

maruru01 · ベストアンサー

こんにちは。maruru01です。

内容はともかく、SQLの記述ミスは以下の通りです。

誤：strSQL = strSQL + "KEY='" & Me.入力_2 & ";"
正：strSQL = strSQL & "[" & KEY & "]='" & Me.入力_2 & "' "

誤：strSQL = strSQL + "AND 項目(2)='" & Me.入力_1 & "'"
正：strSQL = strSQL & "AND [項目(2)]='" & Me.入力_1 & "';"

フィールド名はかっこが使われているので、念のため[]で括っておいた方が無難かも知れません。（なくてもOKかも知れません。）
なお、直接関係ありませんが、文字列の結合は「+」ではなく「&」を使用するようにしましょう。

お礼

ありがとうございました。
上手くいきました。