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

时间：2016-01-08 08:53:28

标签： vba ms-access ms-access-2007

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

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

我有：

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

enter image description here

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

提前谢谢。

1 个答案:

答案 0 :(得分：2)

您可以至少使用：

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

相关问题
最新问题