2012-06-01 23 views
1

每按一下按钮,我希望能够使“可见”4个文本框和4个标签。我不知道如何使用VBA代码来做到这一点。MS ACcess使按钮单击时可见文本框

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

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窗体,VBS

回答

0

我想你的意思:

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

+0

感谢您的帮助!一旦测试运行完成,我打算将名称更改为“真实姓名”。 – Ish

+0

好主意。并且要留意保留字。 “名称”尤其是任何事情的危险名称,所以我希望这只是一个例子。 – Fionnuala