Question

每按一下按钮，我希望能够制作“可见”的4个文本框和4个标签。我不知道如何使用VBA代码。

这是我到目前为止尝试过的内容：没有产生错误，但我不知道如何从这里开始。

Private Sub Command36_Click()

Static Counter As Integer
Dim Name As String
Dim Name2 As String
Dim Count As Integer

Counter = Counter + 1

Name = "Label" & Counter
Name2 = "Text" & Counter
Command36.Caption = Name & Name2

For Count = 1 To Count = Counter

Microsoft Access Forms，VBS

Answer 1

我认为你的意思是：

Private Sub Command36_Click()
Dim Name As String
Dim Name2 As String
Dim Count As Integer


   For Count = 1 To 4
      Name = "Label" & Counter
      Name2 = "Text" & Counter
      Command36.Caption = Name & Name2
   Next

End Sub

我不太清楚以上是什么意思。

如果如你所说，你想让某些东西可见，那么这可能会更有用：

   For Count = 1 To 4
      Name1 = "Label" & Counter
      Name2 = "Text" & Counter
      Me(Name1).Visible = True
      Me(Name2).Visible = True
   Next

帮自己一个忙，并确保你给控制“真实”的名字，而不是Command36，但像cmdShowLabel

MS ACcess单击按钮时可以显示文本框

1 个答案: