Clear Fields and Reset Defaults 3

[waubain]

I have looked for a sub or func to reset property defaults back to the default in the Property Sheet, but without any luck. Similar to what would happen if you closed the form and reopened it, except I do not want to close the form. I have a different sub that sets the controls to NULL.

This works but looks less than ideal.

Private Sub SetDefaults()

	Me.txtUnit1.Enabled = True
        Me.txtUnit2.Enabled = True
        Me.txtUnit3.Enabled = True
        Me.txtUnit4.Enabled = True
        Me.txtUnit5.Enabled = True
        Me.txtUnit6.Enabled = True
        Me.txtUnit7.Enabled = True
        Me.txtUnit8.Enabled = True
        Me.txtUnit9.Enabled = True
        Me.txtUnit10.Enabled = True
        Me.txtUnit11.Enabled = True
        Me.txtUnit12.Enabled = True

End Sub

I tried to simplify this sub with following

Private Sub SetDefaults()
Dim i As Integer
Dim regNumber As Integer
Dim strControlName As String

strControlName = "txtUnit"
regNumber = 12

For i = 1 To regNumber
  
          Me."strControlName" & "i".Enabled = True

Next i
End Sub

but does stops at

Me."strControlName" & "i".Enabled = True

The error message is Syntax Error. I tried to enclose in [] and () or just one "...", but Syntax Error at the same line.
Thanks

 

[PHV]

Me.Controls("strControlName" & i).Enabled = True

Hope This Helps, PH.
FAQ219-2884
FAQ181-2886

 

[MajP]

me.controls(strControlName & i).enabled

strControlName is the variable
or
me.controls("txtUnit" & i).enabled

 

[Andrzejek]

You may want to try something like this:

Dim cntr As Control

For Each cntr in Me.Controls
    If TypeOf cntr Is UserForm.TextBox Then
        [blue]If Left(cntr.Name, 7) = "txtUnit" Then[/blue]
            cntr.Enabled = True
        [blue]End If[/blue]
    End If
Next cntr

If you do not have other textboxes on your Form, just the txtUnit(s), you may skip the blue part of the code.

Have fun.

---- Andy

 

[MajP]

Even easier. Select them all and put a tag in the tag field.

For Each cntr in Me.Controls
If cntr.tag = "someTag"
cntr.Enabled = True
End If
Next cntr

 

[waubain]

Thanks everyone for your ideas and suggestions. I have never heard of some of what each of you suggested, but gets me thinking about other possibilities.

I may go with MajP suggestion, as most controls are enable = True there are a few others that are = False, so I could use a Else: in that sub.

Thanks again.