using ctl

[slimjen]

All; using 2010. I have a search form with a clear button. I forgot how to use the ctl vba code to reset my controls to null. Heres the code I found:

Sub ClearFormText(frm As Form)
Dim ctl As Control
For Each ctl In frm.Controls
If ctl.ControlType = acTextBox Then
ctl.Value = ""
End If
Next ctl
End Sub

I have 4 unbound text boxes to search my subform. I remember I needed to put something in either smart tags or tag on the property of the txtboxes and reference in the code but I can't remember. can anyone help please. Thanks

[hapm]

Using the tag is one possibility to identify the controls to clear. You can access the tag by using ctl.Tag:

Sub ClearFormText(frm As Form)
   Dim ctl As Control
   Dim txtBx As TextBox
   For Each ctl In frm.Controls 
      If ctl.ControlType = acTextBox Then
         Set txtBx = ctl
         If txtBx.Tag = "YourFancyResetTextTag" Then
            txtBx.Value = Null
         End If
      End If
   Next ctl
End Sub

For this to work, you need to set the tag of the textboxes to reset to "YourFancyResetTextTag".

[ItsMe]

If you instantiate an object as a Control, you can access the Tag property. It just does not appear in intellisense.

[slimjen]

Thanks! Just what I wanted

[hapm]

Well, I used to use Option Explicit, and the compiler doesn't like it when in explicit mode afaik. So I corrected it from mind without testing.

[ItsMe]

Well, I used to use Option Explicit, and the compiler doesn't like it when in explicit mode afaik. So I corrected it from mind without testing.

Good to know. Yah, been years for me since I used Option Explicit too.