访问VBA - 隐藏标签，文本框，按钮If =＆＃34; ＆＃34;

Question

我试图隐藏隐藏的标签，文本框和按钮：

If rst![RI] = "" Or IsNull(rst![RI]) Then

我有：

• 标签名为＆＃34; Label83＆＃34;
• 一个名为＆＃34; C1＆＃34;的文本框;
• 一个名为＆＃34; Tex4＆＃34;的文本框
• 一个名为＆＃34; Text8＆＃34;的文本框
• 名为＆＃34; Command18＆＃34;
的按钮

所以每当我在PM200和If rst![RI] = "" Or IsNull(rst![RI])时 然后应隐藏列出的标签，文本框和按钮。

提前谢谢。

Answer 1

您可以至少使用：

Me!Label83.Visible = Len(Nz(rst![RI].Value))

或者，玩得很好：

Me!Label83.Visible = CBool(Len(Nz(rst![RI].Value)))

要获得更多控件，请设置变量：

Dim Visible As Boolean
Visible = CBool(Len(Nz(rst![RI].Value)))
Me!Label83.Visible = Visible
Me!text8.Visible = Visible

' etc.

并将控件重命名为有意义的内容，例如：lblCtransfer