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 · ベストアンサー

一応、パターンからして、
要するに以下のようなことがしたいのだろうと。
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

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

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

C = A XOR B

です。

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

回答No.3

layy

参考で。

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

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

回答No.2

rasuka555

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

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

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

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

回答No.1

KAZUMI2003

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

補足

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