ACCESS2010 データ一致でテキストを返す

質問

ACCESS2010でクエリー内の計算式について質問です。
クエリー内にフィールド1とフィールド2があり、この中のデータの組み合わせによって別のフィールドにテキストのコメントを返すための計算式を教えていたたきたいのです。

例：同一のレコードで、フィールド1が”A”でフィールド2が”1”であった場合、フィールド3に”当たり”といったテキストを返したい。
そのほかの組み合わせであった場合はブランクのままとするか、そのパターンによってテキストを変えたいのです。（Bと2の組み合わせではずれ、Cと3の組み合わせでもう一回、それ以外はブランク）

フィールド1　フィールド2　フィールド3
　　　A 　　　　　1　　　　　当たり
　　　B 　　　　　2　　　　　はずれ
　　　C 　　　　　3　　　　　もう一回

IIf 関数を使ってチャレンジしてみたのですが、エラーが出てうまくいきません。
一つだけのフィールドを対象とした場合、下記の計算式で表示されるのですが、複数となった場合うまくいきません。
式1: IIf([フィールド1]="A","当たり")

よろしくお願いします。

回答No.1

piroin654 · ベストアンサー

解決しましたか。方法はいろいろありますが、質問に合わせてIIf関数を
使うならば、IIfの入れ子を行ないます。以下のように。

判定1:IIf([フィールド1]="A"AND[フィールド2]="1","当たり",IIf([フィールド1]="B"AND[フィール2]="2","はずれ",IIf([フィールド1]="C"AND[フィールド2]="3","もう一回","")))

あるいは、ユーザー定義関数を作成して処理を行なう方法もあります。
たとえば、以下の二つの関数は同じ動作をします。

Function cmdJudge1(ByVal fld1 As String, ByVal fld2 As String) As String

Select Case True
Case fld1 = "A" And fld2 = "1"
cmdJudge1 = "当たり"
Case fld1 = "B" And fld2 = "2"
cmdJudge1 = "はずれ"
Case fld1 = "C" And fld2 = "3"
cmdJudge1 = "もう一回"
Case Else
cmdJudge1 = ""
End Select

End Function

Function cmdJudge2(ByVal fld1 As String, ByVal fld2 As String) As String

If fld1 = "A" And fld2 = "1" Then
cmdJudge2 = "当たり"
ElseIf fld1 = "B" And fld2 = "2" Then
cmdJudge2 = "はずれ"
ElseIf fld1 = "C" And fld2 = "3" Then
cmdJudge2 = "もう一回"
Else
cmdJudge2 = ""
End If

End Function

これらの関数を使用する場合は、標準モジュールにそのまま貼り付け、保存し、
クエリの中から呼び出します。

IIf関数と二つの関数の挙動を確認するために以下のSQL文を新しい
クエリのSQLビューに貼り付け確認してみてください。

SELECT テーブル2.フィールド１, テーブル2.フィールド２, IIf([フィールド1]="A" And [フィールド2]="1","当たり",IIf([フィールド1]="B" And [フィールド2]="2","はずれ",IIf([フィールド1]="C" And [フィールド2]="3","もう一回",""))) AS 判定1, cmdJudge1([フィールド１],[フィールド２]) AS 判定2, cmdJudge2([フィールド１],[フィールド２]) AS 判定3
FROM テーブル2;

IIf関数を使った場合と、二つの関数のいづれかを使った結果は
多分、同じだと思いますが。

お礼

IIf関数およびユーザー定義関数どちらでもできました。
非常に参考になりました。ありがとうございました。

回答No.2

piroin654

No1です。回答の最後のあたりの以下のSQL文の中で、

SELECT テーブル2.フィールド１, テーブル2.フィールド２, IIf([フィールド1]="A" And [フィールド2]="1","当たり",IIf([フィールド1]="B" And [フィールド2]="2","はずれ",IIf([フィールド1]="C" And [フィールド2]="3","もう一回",""))) AS 判定1, cmdJudge1([フィールド１],[フィールド２]) AS 判定2, cmdJudge2([フィールド１],[フィールド２]) AS 判定3
FROM テーブル2;

テーブル2がいくつかでてきますが、、これはこちらで作成
したテーブル名なので実際に合わせて変更してください。