ACCESS2003でのFindの使い方について

質問

１つのクロス集計クエリーと１つのテーブルがあります。
１．クロス集計クエリー（Q_実施報告書_年齢）の中は
年齢 <> 女 男（ここがフィールド名）
24 7 2
40代 11 1
50代 1 9

２．テーブル（実施報告書_相談者年齢構成）の中は
年齢 合計 男 女 不明（ここがフィールド名）
10代
20代
30代
40代
50代
60代
70代
80歳以上
10歳以下
です。

クロス集計クエリー（Q_実施報告書_年齢）の年齢フィールドを
キーにして、もしテーブル（実施報告書_相談者年齢構成）の年齢
フィールドと一致すれば、クロス集計クエリー（Q_実施報告書_年齢）の
例えば「男」フィールドの値をテーブル（実施報告書_相談者年齢構成）の
男フィールドに移そうと思っています。

３．ADOの以下の構文で、上記データだと年齢が40代、50代はあるはずなのですが
１つも該当するデータがない事になってしまいます。

rs1.Open "実施報告書_相談者年齢構成", cnn1, adOpenDynamic, adLockOptimistic
rs2.Open "Q_実施報告書_年齢", cnn1, adOpenDynamic, adLockOptimistic
rs1.MoveFirst
Do Until rs1.EOF
smoji = rs1("年齢")
rs2.Find "年齢 = '" & smoji & "'"
If rs2.EOF = True Then
MsgBox smoji & "ありませんでした"
Else
rs1(2) = rs2("男")
rs1(3) = rs2("女")
MsgBox smoji & "更新できました"
rs1.Update
End If
rs1.MoveNext
Loop

大変恐縮ですが、どなたかおわかりの方おられましたらよろしくご教授ください。

回答No.1

noname#79209 · ベストアンサー

コードを拝見すると、逆に24才が抜けてしまうように思えます。何か質問文に書かれていない処理（ユーザー定義関数など）を通しているのでしょうか。

それはともかく、
「Q_実施報告書_年齢」と「実施報告書_相談者年齢構成」の「年齢」フィールドに入っている文字が異なっているのでは？

考えられる原因：
1. 「40代」と「40台」
2. 「40代」（半角数字）と「４０代」（全角数字）
3. 冒頭で述べた「質問に書かれていない処理」が悪さをしている。