Looking for an easier way of doing things

[Mhat]

Hi all,

If you want to perform an action on multiple items on a user form, do they have to be performed individually or is there a way to perform the operation as a group. For example, lets say that I want to set all text boxes on a user form to blank when I click a command button. I am currently doing this:

Tb_TailNo.Value = ""
        Tb_Register.Value = ""
        Tb_Owner.Value = ""
        Tb_Address.Value = ""
        Tb_City.Value = ""
        Tb_State.Value = ""
        Tb_Country.Value = ""
        Tb_ZIP.Value = ""
        Tb_MAKE.Value = ""
        Tb_Model.Value = ""
        Tb_COLOR.Value = ""
        Tb_Trim.Value = ""
        Tb_PaxSeats.Value = ""

Is there an easier way to do this?

Regards,

Mike

 

[Norie]

Take a look at the Controls collection of the userform.

Code like the followning will go through all the controls.

Dim ctl

For Each ctl In Me.Controls ' Me is a reference to the userform
     ' do something with the control ctl eg clear it
Next ctl

There are various ways you could test if the control is one you want to clear.

Perhaps in your case something like this:

If Left(ctl.Name) = "Tb" Then ctl.Value = ""

 

[HalfAce]

Or without testing for the control name, but just the control type...

Private Sub CommandButton1_Click()
Dim Ctrl As Control
For Each Ctrl In Me.Controls
If TypeName(Ctrl) = "TextBox" Then Ctrl.Value = ""
Next Ctrl
End Sub

Hope it helps,
Dan

 

[Mhat]

Thank you,

It works great and it certainly is easier. Can I assume that if I wanted to perform an operation on another control that I would replace "Textbox" with
say "listbox"?

If TypeName(Ctrl) = "TextBox" Then Ctrl.Value = ""

 

[HalfAce]

Sure, TextBox, ListBox, ComboBox...
When using it for CheckBox & OptionButton, you'll want to use
Value = False instead of Value = "".

Dan