Access2000でテキストボックスから文字列抽出

Access2000のフォーム上でのデータの抽出で困っています。
[生年月日年]には、生年月日の年(和暦:2桁)が格納されています。
ここから、[生年月日年1]に生年の上1桁を抽出したいのですが、何も抽出
されません。

下記のようなコードを記述してみたのですが、うまくいきません。
どうしたらよいでしょうか?

Private Sub 生年月日年1_Enter()
Me![生年月日年1] = MidB([生年月日年], 1, 1)
End Sub

ちなみに、LeftB もやってみましたが、結果はやはり何も抽出されませんでした。
Mid や Left は固定文字列からの抽出にしか使えないのでしょうか?

おわかりになるかた、できるだけ簡単なコードをご教示いただければ、幸いです。

No.1 ベストアンサー 回答者： maruru01 回答日時： 2002/04/25 20:33

こんにちは。

maruru01です。
これでどうですか。

Me![生年月日年1].Text = Left(Me![生年月日年].Value, 1)

では。

この回答へのお礼

ありがとうございました。
また、お礼が遅くなってしまってすいません。

やってみたところ、非常にうまくいきました。
MID でもうまくいきました。

お礼日時：2002/05/14 08:39

No.2 回答者： yoisho 回答日時： 2002/04/26 13:25

Accessでは、文字列には Unicode が採用されています（たしか、Access95 以降からだったと思います）ので、半角文字も２バイトになります。

そのため、MidB や LeftB 関数を使う場合には、数字も２バイト文字として考える必要があります。
（詳しくは、ＨＥＬＰの Unicode 形式 を参照してください。）

具体的には、
Me![生年月日年1] = LeftB([生年月日年], 2)
または、
Me![生年月日年1] = Left([生年月日年], 1)
とすれば、ご希望の処理が可能になると思います。

この回答へのお礼

ありがとうございました。
また、お礼が遅くなってしまってすいません。

半角文字も２バイトだとは知りませんでした。
さっそくチャレンジしてみます。

お礼日時：2002/05/14 08:42