我正在使用Ms-Access，创建了一个用户窗体，其中包含多个文本框。这些文本框的名称为：Box1，Box2，Box3 ...
我需要循环遍历所有文本框，但我不知道哪一个是最后一个。为了避免循环遍历所有用户窗体控件，我想尝试以下方法：
For i =1 To 20
If Me.Controls("Box" & i).value = MyCondition Then
'do stuff
End If
Next i
On Error，但我更愿意使用代码捕获这个特定实例。Exists或Contains等方法，因此您需要一个带有错误处理函数来检查/从集合中提取小部件。Public Function ExistsWidget(ByVal Name As String) As Boolean
On Error Resume Next
ExistsWidget = Not Me.Controls(Name) Is Nothing
On Error GoTo 0
End Function
Public Function PullBoxes() As Collection
Dim Control As MSForms.Control
Set PullBoxes = New Collection
For Each Control In Me.Controls
If TypeOf Control Is MSForms.TextBox And _
Left(Control.Name, 3) = "Box" Then
Call PullBoxes.Add(Control)
End If
Next
End Function
Dictionary，并能够正确地检查小部件的名称是否存在，而不需要错误抑制。 Dictionary 对您来说是新信息，则这里有一份很好的指南。Function转换为具有Static集合的Static Property Get或只是Property Get，这样您只需要在UserForm_Initialize事件中迭代所有控件一次！Public Property Get Boxes() As Collection
Static PreservedBoxes As Collection
'There's no loop, but call to PullBoxes to reduce duplicate code in answer
If PreservedBoxes Is Nothing Then _
Set PreservedBoxes = PullBoxes
Set Boxes = PreservedBoxes
End Property
毕竟，最后创建的名称为Box*的TextBox将会是：
Public Function LastCreatedBox() As MSForms.TextBox
Dim Boxes As Collection
Set Boxes = PullBoxes
With Boxes
If .Count <> 0 Then _
Set LastCreatedBox = Boxes(.Count)
End With
End Function
MyBoxes = MyBoxes + 1来缩写所有内容，而不是Call PullBoxes.Add(Control)？MyBoxes可以是一个公共变量或者是表单上隐藏的标签。 - GeorgeMyBoxes变量是什么？一个代表计数器的Long变量吗？如果是这样，那么您可以检查集合/字典的Count属性。如果您要创建一个公共集合而不是属性-那就由您决定，在这两种情况下行为没有区别（但取决于您将放置公共变量的位置）。如果它是某种迭代器/当前索引-那么请详细说明您需要它的原因是什么？ - CommonSensePublic Function PullBoxes() as collection替换为Public Function MyBoxes() as integer更好。 MyBoxes将在初始化表单时运行并计算我拥有的盒子数量。缩短所有内容到for each control in me.controls循环中。 Existswidget，getboxes和lastcreatedbox将不再需要。 - GeorgeOn Error检查对象是否存在。这样，你的代码就不会被破坏了。Function ControlExists(ControlName As String, FormCheck As Form) As Boolean
Dim strTest As String
On Error Resume Next
strTest = FormCheck(ControlName).Name
ControlExists = (Err.Number = 0)
End Function
源自这里:http://www.tek-tips.com/viewthread.cfm?qid=1029435
要查看整个代码的运行情况，请按照以下方式检查:
Option Explicit
Sub TestMe()
Dim i As Long
For i = 1 To 20
If fnBlnExists("Label" & i, UserForm1) Then
Debug.Print UserForm1.Controls(CStr("Label" & i)).Name & " EXISTS"
Else
Debug.Print "Does Not exist!"
End If
Next i
End Sub
Public Function fnBlnExists(ControlName As String, ByRef FormCheck As UserForm) As Boolean
Dim strTest As String
On Error Resume Next
strTest = FormCheck(ControlName).Name
fnBlnExists = (Err.Number = 0)
End Function
Else Exit For。看起来要么这样做，要么在初始化表单时循环所有控件并获取循环的结束值。 - GeorgefnBlnExists 如何工作的。因此，我加了 debug.print。 - VityataPrivate Sub Command1_Click()
Dim i As Long
i = 1
Do Until Not BoxExists(i)
If Me.Conrtols("Box" & i).Value = MyCondition Then
'Do stuff
End If
i = i + 1
Next
End Sub
Private Function BoxExists(ByVal LngID As Long) As Boolean
Dim Ctrl As Control
On Error GoTo ErrorHandle
Set Ctrl = Me.Controls("BoX" & LngID)
Set Ctrl = Nothing
BoxExists = True
Exit Function
ErrorHandle:
Err.Clear
End Function
BoxExists才会返回true。您在这里采取了错误的方法。
如果您想限制循环，可以仅在控件所在的区域（例如详细信息）中进行循环。您可以使用ControlType属性将控件限制为文本框。
Dim ctl As Control
For Each ctl In Me.Detail.Controls
If ctl.ControlType = acTextBox Then
If ctl.Value = MyCondition Then
'do stuff
End If
End If
Next ctl
我认为通过循环来检查控件名称是否存在会比使用帮助函数和On Error Resume Next更快。
但这只是个人观点。
if ctl.controltype = acTextBox and LEFT(ctl.name, 3) = "Box" Then。这就是为什么我只想循环遍历名为 Box1、Box2 等的控件。 - George
Me.Controls最终也将需要更改，但目前还不相关。 - George