访问VBA-隐藏标签、文本框和按钮（如果="&引用；

我正在尝试隐藏一些标签、文本框和按钮：

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

我有：

• 名为“Label83”的标签
• 名为“C1”的文本框
• 名为“Tex4”的文本框
• 名为“Text8”的文本框
• 一个名为“Command18”的按钮

所以每当我在PM200上和

如果rst！[RI]=“或IsNull（rst！[RI]）

然后，应隐藏列出的标签、文本框和按钮

---

提前感谢。

您至少可以使用：

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

.visible=（rst！[RI]=”或IsNull（rst！[RI]）？非常感谢。顺便说一句，我没有给他们起那些可怕的名字。