アクセスでの

質問

Access2000を使用しています。
基本的なこととは思いますが教えてください。
テキストボックスの値を比べるVBAを組みましたが、
片方は文字列として、もう一方は数字として認識
されてしまうようで同じ値が入っているのに違う値
として認識されてしまいます。
(ブレークポイントを設定して中の値をみてみると
me.txテスト１.value = "1"
me.txテスト２.value = 1 となり異なる値と認識去れてしまいます）
書式設定はどちらのコントロールも何もしてありませんし、共に非連結
のテキストボックスです。
どのようにすればこれらの値が同じものとして認識してくれるでしょうか？
お願いいたします。

回答No.5

noname#4564 · ベストアンサー

> やりたいことは
>
> Me.テスト1.value ＝　Me.テスト２.value　かつ
> Me.テスト２.value ≠ null　のときに「よいです」
>
> というメッセージを出すものです。

If Me.テスト1.Value = Me.テスト2.Value Then
Call MsgBox("よいです")
End If

でOKです。IsNull(Me.テスト2.Value) = True のとき、
「Me.テスト1.Value = Me.テスト2.Value」はTrueでもFalseでもなく、Nullと評価されます。(値が入力されていないときの処理が必要であれば、別途記述が必要)

Me.txテスト１.ValueがStringと評価されている、とのことですので、値を代入する部分に何らかの問題があるのだと思います。(前後にスペースがある、全角の数字が入っている、等)

> Nullはvariant型のみ使用できるようですがどのように
> 記述すればよいのでしょうか？

Null値の確認は前述のIsNull関数でできます。また、文字列として処理する場合、&演算子で長さゼロの文字列と結合すれば、文字列となりますので、

Len("" & Me.txテスト1.Value)

がゼロ／非ゼロかで値が入力されていることを確認できます。

> 　また、フォーム上に非連結のテキストボックスを作成
> した場合、それはvariant型になるのでしょうか？

そういう仕様です。

TextプロパティならVariantではなく、String型ですが、こちらは、コントロールにSetfocusしていないと使用できません。

お礼

細かな説明どうもありがとうございます。
「みえなものがみえてきた」心境です。
ただ、やはり stringと認識するかintegerと認識するかは
アクセスのきまぐれなのでしょうか？
（前後に不正なデータは入れてないのです・・・）
まだまだ自分のものにするには時間がかかりそうです。
ありがとうございました。

回答No.6

taknt

テストしてみたところ
If Me.txテスト1.Value = Me.txテスト2.Value And Me.txテスト2.Value <> "" Then MsgBox ("よい")

これで ＯＫだと思います。

私が最初に書いたのは ちょっと記述ミスと、不具合がありました。

お礼

わざわざテストまでしていただきまして
感謝しております。
Nullにばかりこだわりすぎて、""て記述することも
できることを忘れていました。
発展途上にある時というのは得てして基本的なこと
を忘れてしまいがちですよね。
どうもありがとうございました。

回答No.4

noname#4564

#1さんWrote

> dim a,b string

これだと、b はStringですが、aはVariantです。
バグの原因となる場合もありますので、要注意です。
(VB.NETでは、この記述でa, bどちらもStringになりますが)

将来的にVBAの言語仕様が変わることもあるかもしれませんが、現時点での注意点ということで、ご参考まで・・・。

補足

ありがとうございます。
やりたいことは

Me.テスト1.value ＝　Me.テスト２.value　かつ
Me.テスト２.value ≠ null　のときに「よいです」

というメッセージを出すものです。
Nullはvariant型のみ使用できるようですがどのように
記述すればよいのでしょうか？
　また、フォーム上に非連結のテキストボックスを作成
した場合、それはvariant型になるのでしょうか？
あわせて教えていただければと思います。
よろしくお願いいたします。

回答No.3

kmor

Forms!フォーム1!txテスト１
というふうに指定するといいと思いますが。

補足

ありがとうございます。
同一フォーム内のイベントプロシージャ内に記述しておりますが、
「me.～」ではいけないのでしょうか？
その辺の規則性を詳しく理解しておりませんので、そのような決まり
があるようでしたら教えていただけますでしょうか？
よろしくお願いいたします。

回答No.2

taknt

dim a,b string

a=me.txテスト１.value
b=me.txテスト２.value

と 文字列に代入してあげれば 両方とも文字列になると思います。

お礼

そのようなことで直るんですね。
それにしても同じように作成しているのに
ともに数値として認識してくれるものもある
のは解せません。
奥が深いのか単にわかってないだけなのか・・・。
いずれにしても、どうもありがとうございました。

回答No.1

wildcard

文字列として扱うなら、下記ではダメでしょうか？
cstr(me.txテスト１.value)
cstr(me.txテスト２.value)
数値データならcstrの箇所をclngやcintにすれば、良いと思うのですが…

お礼

簡単なことだったようですが
初心者のためお許しください。
どうもありがとうございました。