ACCESS 値の代入

テキストボックスの値の代入をさせたい下記

例1
Aのテキストボックス Is not Null
Bのテキストボックス null

結果
Cのテキストボックス OK

例2
Aのテキストボックス null
Bのテキストボックス null

結果
Cのテキストボックス NG

例3
Aのテキストボックス Is not Null
Bのテキストボックス Is not Null

結果
Cのテキストボックス NG

No.4 ベストアンサー 回答者： piroin654 回答日時： 2010/12/08 02:25

一応、パターンからして、

要するに以下のようなことがしたいのだろうと。
Cのフォーカス取得時のイベントで、

Private Sub C_Enter()
If Not IsNull(Me!A) Then
If IsNull(Me!B) Then
Me!C = "OK"
End If
End If
If IsNull(Me!A) Then
If Not IsNull(Me!B) Then
Me!C = "OK"
End If
End If
If IsNull(Me!A) Then
If IsNull(Me!B) Then
Me!C = "NG"
End If
End If
If Not IsNull(Me!A) Then
If Not IsNull(Me!B) Then
Me!C = "NG"
End If
End If
End Sub

No.5 回答者： KAZUMI2003 回答日時： 2010/12/08 06:11

何で私が、Ｎｏ．１の質問をしたかというと…

これ、XOR（排他的論理輪）で簡単に結果が出る問題じゃないかと思ったからです。

C = A XOR B

です。

もし、A=Null B= Not Null → C=OK　ならね。
そうでなければ、if文。

No.3 回答者： layy 回答日時： 2010/12/08 00:07

参考で。

Ａ，Ｂのどちらかに値があればＯＫ、の意図ですね？。
これと仮定したとき、
例えば、
ともに１バイトしかないエリアであれば、
「Ａのテキストボックス」＆「Ｂのテキストボックス」と連結させた値で
＝１ならＯＫ、＝０や＝２はＮＧ
ともに２バイトしかないエリアであれば、
「Ａのテキストボックス」＆「Ｂのテキストボックス」と連結させた値で
＝２ならＯＫ、＝０や＝１、＝３、＝４はＮＧ
「連結させた文字長／２＝１項目分の長さ」
とすれば判断可能かもしれません。
非連結の項目を用意してみては？。
もちろん
ＩＦで判定しても４パターンしかないですからなんとかなります。

対応は、論理演算式を想定していますか？。

No.2 回答者： rasuka555 回答日時： 2010/12/07 23:29

詳細がかかれていないので分かりにくいですが、何かの操作をキーとして、ＶＢＡで上記のような処理を行いたいということでしょうか？

それでしたらＩＦ文の組み合わせで判定するのが一番良いかと思います。

例文を書ければと思いましたが、
A　null
B not null
のパターンについて書かれていないので書けませんでした。

出来れば、こうした質問をする際にも、何で、どういう条件を出したいか、
ある程度文章に書き起こしていただけると答えやすいです。

No.1 回答者： KAZUMI2003 回答日時： 2010/12/07 19:49

Ａがｎｕｌｌで、ＢがＩｓ　Ｎｏｔ　Ｎｕｌｌだったらどうなるんですか？

この回答への補足

お返事ありがとうございます
ifで調べればいいのですか？

補足日時：2010/12/07 22:01