ここから本文です

ACCESS VBAについて質問です。 初心者の為、質問内容わかりづらいかもしれません。

lum********さん

2018/11/1121:28:48

ACCESS VBAについて質問です。
初心者の為、質問内容わかりづらいかもしれません。

ACCESSを使う必要ないかもしれないのですが

下記VBAで表示ボタンをクリック時、3つのIf条件を満たす時
テキストボックスに"本""鉛筆""パソコン"と3つとも表示させる方法はないでしょうか?
当たり前ですが下記のVBAでは"パソコン"のみ表示となります。
※If条件でなくてもいいです。

Private Sub 表示_Click()
If book > 0 Then
Me.txt.Value = "本" 'テキストボックスに表示
End If

If pen > 0 Then
Me.txt.Value = "鉛筆" 'テキストボックスに表示
End If

If pc > 0 Then
Me.txt.Value = "パソコン" 'テキストボックスに表示
End If


End Sub

閲覧数:
40
回答数:
1
お礼:
100枚

違反報告

ベストアンサーに選ばれた回答

kik********さん

2018/11/1203:39:18

雰囲気、以下でどうなりますか


Private Sub 表示_Click()
   Dim sS As String
   Const CSP As String = " "

   sS = ""
   If (book > 0) Then sS = sS & CSP & "本"
   If (pen > 0) Then sS = sS & CSP & "鉛筆"
   If (pc > 0) Then sS = sS & CSP & "パソコン"

   sS = Mid(sS, Len(CSP) + 1)
   If (Len(sS) > 0) Then
      Me.txt.Value = sS
   Else
      Me.txt.Value = Null
   End If
End Sub



※ > 3つのIf条件を満たす時

なら、判別3つを、1つの If で And で繋げれば・・・

(book > 0) And (pen > 0) And (pc > 0) なら
Me.txt.Value = "本 鉛筆 パソコン"

質問した人からのコメント

2018/11/17 22:01:37

ご回答ありがとうございます。
いただいた回答をもとに目的のVBAつくることができました。
ありがとうございました。

みんなで作る知恵袋 悩みや疑問、なんでも気軽にきいちゃおう!

Q&Aをキーワードで検索:

Yahoo! JAPANは、回答に記載された内容の信ぴょう性、正確性を保証しておりません。
お客様自身の責任と判断で、ご利用ください。
本文はここまでです このページの先頭へ

「追加する」ボタンを押してください。

閉じる

※知恵コレクションに追加された質問は選択されたID/ニックネームのMy知恵袋で確認できます。

不適切な投稿でないことを報告しました。

閉じる