TextBoxに値がある場合、ラベルを可視にします。

Question

テキストボックスに値がある場合、ラベルを表示させようとしています。これまでのところ私はこれを持っていますが、動作していませんか？

Private Sub Label1_Change() 

If MailChannel.Value <> "" Then 
    Me.Label1.Caption = True 
Else 
Me.Label1.Caption = False 

End If 

End Sub 

Answer 1

現在のコードはフォームのラベルにリンクされているため、現在は表示されません。テキストボックスの変更イベントにリンクする必要があります。以下のように実現することができる（テキストボックス名がtxtMailChannelであると仮定して）。

  Private Sub txtMailChannel_Change() 
       If txtMailChannel.Value <> "" Then 
        lblMailChannel.Visible = True 
       Else 
        lblMailChannel.Visible = False 
       End If 
      End Sub 

P.S.あなたのコードに何らかの命令を導入しようとすると、特に変数の命名規則に関係するものがあります。参考のために以下のリンクをチェックアウトしてください：https://github.com/spences10/VBA-Coding-Standards。