如果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。