Detect type of control in userForm.

[Joe]

Hi,
I missed out code portion for my last posted question. (Only combox can be
detected but not textbox). My code attached here, please suggest if any way I
can loop though all controls in my form.
*********
For each ctl in me.Controls
If Typeof ctl Is TextBox or Typeof ctl is ComboBox then
'OK....
End if
Next
*********

regards,

 

[Charles Maxson]

Joe,

You are very close here; its too bad MSFT was not consistent with this (or
least documented it better). But all you need to do is refer to your textbox
type like this:

MSForms.TextBox

and it will work.....


Private Sub UserForm_Click()
Dim ctl As Control
For Each ctl In Me.Controls
If TypeOf ctl Is MSForms.TextBox Or TypeOf ctl Is ComboBox Then
MsgBox ctl.Name
End If
Next
End Sub

 

[Joe]

Charles,
It works. Thanks a lot.
Joe

Joe,

You are very close here; its too bad MSFT was not consistent with this (or
least documented it better). But all you need to do is refer to your textbox
type like this:

MSForms.TextBox

and it will work.....


Private Sub UserForm_Click()
Dim ctl As Control
For Each ctl In Me.Controls
If TypeOf ctl Is MSForms.TextBox Or TypeOf ctl Is ComboBox Then
MsgBox ctl.Name
End If
Next
End Sub