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

質問

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

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

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

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

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

回答No.1

maruru01 · ベストアンサー

こんにちは。maruru01です。
これでどうですか。

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

では。

お礼

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

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

回答No.2

yoisho

Accessでは、文字列には Unicode が採用されています（たしか、Access95 以降からだったと思います）ので、半角文字も２バイトになります。
そのため、MidB や LeftB 関数を使う場合には、数字も２バイト文字として考える必要があります。
（詳しくは、ＨＥＬＰの Unicode 形式 を参照してください。）

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

お礼

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

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