exclude control from Me.Control

[timothyl]

Can some one tell me if there is a way to exclude a control from this statement

'Loop through each control on the form to get its value.
For Each ctl In Me.Controls
With ctl
Select Case .ControlType
Case acTextBox
.SetFocus

I tried the following, it did not work

For Each ctl In Me.Controls
where Me.Controls <> txtfrom
With ctl
Select Case .ControlType
Case acTextBox
.SetFocus
Thanks Tim

 

[ajetrumpet]

tim, try something like this:

For Each ctl In Me.Controls
   if typeof ctrl is textbox then
      ctl.setfocus
   end if
next ctl

what i wrote is just another way of using what you wrote to get the same thing.

 

[CEH]

How bout using the tag property to exclude it....

 

[timothyl]

Thanks Adam, with a little playing that worked.

Curtis, if you are up for it, could you explained how to use the tag property to exclude a particular control from a group of controls, it seem like a useful thing to know. Thanks

 

[CEH]

Well, simply tag the ones you want to do something ( an asterisk in the tag property for example) with and leave others with no tag.... something this..


If ctl.ControlType = acTextBox Then
"do something"

ElseIf ctl.ControlType = acTextBox And ctl.Tag = "*" Then
"do something else"
else

End If

The tag property is handy to include or exclude whatever you like.

 

[timothyl]

Thank you Curtis, this seems very handy. Tim

 

[gemma-the-husky]

there are lots of possibilities

eg
you have ctrl.name, so you could explicitly test the name
you have ctrl.bgcolor or ctrl.forecolor (or something like) so you could test the color.
eg ignore lightgrey, but do the white ones

etc