ＡＣＣＥＳＳのＶＢＡについて

ＡＣＣＥＳＳ2010を利用しています。

フィールド：わわわわ　（Ｙｅｓ/Ｎｏ型）
フィールド：はははは　（Ｙｅｓ/Ｎｏ型）
フィールド：りりりり　（Ｙｅｓ/Ｎｏ型）
フィールド：わちわち　（Ｙｅｓ/Ｎｏ型）
フィールド：ちちちち　（Ｙｅｓ/Ｎｏ型）
フィールド：メモ欄　（メモ型型）


やりたい事は、【フィールド：わわわわ】と【フィールド：はははは】にチェックをいれると、
メモ欄の中に、わわわわ　、　はははは　表示され
フィールド：わわわわにチェックを外すと、
メモ欄の中に、わわわわ　が表示されず、はははは　のみが表示されるという事です。

下記のコードを作成しましたが、上手く作動しません。

【フィールド：わわわわ】と【フィールド：はははは】にチェックを入れても、
メモ欄には、わわわわ　としか表示されません。

Dim ha As String
Dim wa As String
Dim ri As String
Dim wahi As String
Dim ti As String
Dim memo As String
Dim mea As String

wa = "わわわわ"
ha = "はははは"
ri = "りりりりり"
wahi = "わちわち"
ti = "ちちちち"
mea = Me.[メモ欄].Value
memo = mea & wa & ha

If Me.わわわわ.Value = False Then
memo = mea
ElseIf Me.わわわわ.Value = True Then
memo = mea & wa
End If

If Me.はははは.Value = False Then
memo = mea
ElseIf Me.はははは.Value = True Then
memo = mea & ha
End If

Me.メモ欄 = memo
Me.メモ欄.SetFocus


どこがダメなのか、ご教示お願いします。

No.3 ベストアンサー 回答者： ShowMeHow 回答日時： 2016/03/28 13:18

＞ここに挿入するのですか？

そこです。

実際の稼働に関しては、どのようなイベントで起動させるか？
何度もこのルーチンに入り込んだ際に、結果として何を期待しているのか？
など、いくつか問題はあると思います。
（例えば、、、メモ値は二回目に起動させると、前のものにさらに「わ」とか「は」が追記されることになったり、、、）

この回答へのお礼

ありがとうございます。。
いま、出先なので、会社に戻ったら試してみます。。

お礼日時：2016/03/28 14:12

No.2 回答者： ShowMeHow 回答日時： 2016/03/28 12:29

no.1ですが、、、

それぞれの４パターンを表現するためには、

If Me.はははは.Value = False Then
memo = mea
ElseIf Me.はははは.Value = True Then
memo = mea & ha
End If
の前に、
mea=memo
としたほうが、良いかもしれません。

この回答へのお礼

no.1ですが、、、
それぞれの４パターンを表現するためには、

If Me.はははは.Value = False Then
memo = mea
ElseIf Me.はははは.Value = True Then
memo = mea & ha
End If
の前に、
mea=memo
としたほうが、良いかもしれません。


wa = "わわわわ"
ha = "はははは"
ri = "りりりりり"
wahi = "わちわち"
ti = "ちちちち"
mea = Me.[メモ欄].Value
memo = mea & wa & ha

If Me.わわわわ.Value = False Then
memo = mea
ElseIf Me.わわわわ.Value = True Then
memo = mea & wa
End If

mea=memo　⇒　ここに挿入するのですか？

If Me.はははは.Value = False Then
memo = mea
ElseIf Me.はははは.Value = True Then
memo = mea & ha
End If

お礼日時：2016/03/28 12:51

No.1 回答者： ShowMeHow 回答日時： 2016/03/28 12:25

If Me.はははは.Value = False Then

memo = mea
ElseIf Me.はははは.Value = True Then
memo = mea & ha
End If
↓
If Me.はははは.Value = true Then
memo = memo & ha
End If

とか、

こちらのif文でも、meaを基準にmemo文字列を生成していることが、前if文の内容が反映されない原因です。

この回答へのお礼

If Me.はははは.Value = true Then
memo = memo & ha
End If

上記は、nullの使い方が正しくありませんと表示されますので、
コードを変更しました。

お礼日時：2016/03/28 12:49