AccessでReplace関数を使うときに…

質問

Access2003を使っています。

１つのフィールドに入っている文字列が何種類かあります。
ここでは１０種類あるとします。
それぞれ、

在庫あり/在庫わずか/お取り寄せ/商品なし/販売終了/品切れ中４月21日入荷/品切れ中５月１４日入荷/品切れ中６月１日入荷/品切れ中７月31日入荷/品切れ中８月31日入荷/

これを、在庫あり/在庫わずか/お取り寄せ　は「0」に、それ以外は「1」にしたいのです。

いろいろ調べた結果、Replace関数というものを知り、使ってみたのですが、

Replace(Replace(Replace(Replace(Replace(Replace([在庫],"在庫あり","0"),"在庫わずか","0"),"お取り寄せ","0"),"商品なし","1"),"販売終了","1"),"品切れ中*","1")

としても、最後の「"品切れ中*"」がうまく働きませんでした。どうやら「*」は使えないようです。

ただ、１０種類ならまだ１０回カッコを書いていくだけでいいですが、品切れ中の日付が１００日分などとなるとそうも行きません。ですので何かいい方法をお持ちの方、おしえていただけませんでしょうか？よろしくお願いいたします。

（特にReplace関数にこだわっているわけではありません。ただ、あまりAccessには詳しくないので、クエリのデザインビューで紐付ける程度のことしかやっておりません。お手数をお掛けしますがよろしくお願いいたします。）

回答No.1

mitarashi · ベストアンサー

随分難しく考えていらっしゃる様ですが、下記程度ではいかがでしょうか。ご参考まで。
式1: IIf(([在庫] Like "在庫*") Or [在庫]="お取り寄せ",0,1)

お礼

ご回答ありがとうございます。
そうですまさにこういうことをやりたかったのです。どうやらIIFは基本的なことのようですね…。でも知らなかった私にはとてもありがたかったです。どうもありがとうございました。それからもうちょいAccess勉強します。

回答No.3

imogasi

質問表現があいまいだが、１（というか各レコードというか）レコードの１フィールドにおいて、／で区切られた文字列のうちのどれか１つが這いいているということですよね。
エクセルでは決った空きの列のせるに項目と隣列に対応コードを入力し、ＶＬＯＯＫＵＰ関数で簡単に索引できる課題ですが、アクセスはＶＬＯＯＫＵＰはなく、ＤＬＯＯＫＵＰは似ているといえます。
しかしアクセスでは文言とコードの対応表をテーブルとしてもって、クエリの画面で
テーブル　コード振り
ID 文言 コード
1 aa 1
2 ｂｂ 1
3 ｃｃ 2
4 ｄｄ 3
5 ee 2
6 ｆｆ 2
7 ｇｇ 1
質問ではaa は「在庫あり」にあたる（漢字入力手抜きでこうした）。
ーーー
テーブル　文言索引で
ID コード 文言
1 aa
2 ｂｂ
3 ｃｃ
4 ｆｆ
5 ｄｄ
6 ee
とあるとする。コード列は空白。
ーーー
クエリで
ｔａｂｌｅの表示　コード振りと文言索引
文言と文言を結合線を引いておく
コードフィールドで
ビルド画面を出して、
コード: DLookUp(コード振り.コード,"コード振り",コード振り.文言=文言索引.文言)
を入れて、ＯＫ
クエリ実行で
ID コード 文言
1 1 aa
2 1 ｂｂ
3 2 ｃｃ
4 2 ｆｆ
5 3 ｄｄ
6 2 ee
とコードのフィールドにコードが振られる。
クエリをテーブル化も可能。
ーーーー
質問者は、エクセル式発想がアクセスでも、前に出すぎているようだ。

お礼

ご回答ありがとうございます。
確かにおっしゃるとおり、ExcelとAccessとごっちゃになるときがよくあります。出来る人はちゃんとそのあたりも区別されているんですね。関数についてはもっと勉強しないとなあとひしひしと感じました。どうもありがとうございました。

回答No.2

piroin654

標準モジュールに以下を保存します。

Function funcJudge(str As String) As Integer
Select Case str
Case "在庫あり"
funcJudge = 0
Case "在庫わずか"
funcJudge = 0
Case "お取り寄せ"
funcJudge = 0
Case Else
funcJudge = 1
End Select
End Function

この関数をReplace関数のかわりに使用します。
たとえば、クエリで、

SELECT テーブル1.在庫, funcJudge([在庫]) AS 判定
FROM テーブル1;

のように。

お礼

ご回答ありがとうございます。
なるほどモジュールを使ったやり方もあるんですね。勉強になります。正直ぱっと見では理解が出来ませんが、ちゃんと復習して理解したいと思います。どうもありがとうございました。