Pass Control

[AlanJordan]

As I increase the number of text boxes that I have on a form, it becomes obvious to me that code like this for each text box is inefficient.

    With Me("txtNonSchHours" & i)
        .Value = ""
        .Format = "Fixed"
        .DecimalPlaces = 2
    End With

    With Me("txtCode" & i)
        .Value = ""
        .Format = "Fixed"
        .DecimalPlaces = 2
    End With

. . . etc.

Can anyone suggest the best way to make this more generic, passing a control.

 

[gwinn7]

Yes, use the controls collection of the form loop through them to set the control properties. Example...


For each ctl in me.controls
with ctl
.value = ""
.format = "Fixed"
.decimalplaces = 2
end with
next

Gary
gwinn7

 

[TheAceMan1]

How are ya AlanJordan . . .

[blue]gwinn7[/blue] in on target with the [blue]controls collection[/blue].

Another technique is to set [purple]Tag[/purple] property of all controls of interest to say a question mark [blue]?[/blue]. This allows you to pick out only those controls you need. Then its a loop thru the [blue]controls collection[/blue]:

[blue]   Dim ctl As Control
   
   For Each ctl In Me.Controls
      If ctl.Tag = "?" Then
          With ctl
            .Value = ""
            .Format = "Fixed"
            .DecimalPlaces = 2
         End With
      End If
   Next[/blue]

[purple]Your thoughts . . .[/purple]

See Ya! . . . . . .

 

[AlanJordan]

Hi Gwinn7,

Thanks for your continued feedback. I was just about to upload the code that I implemented, which is a hybrid of your suggestions:

Sub ClearCurrentInfo()
On Error GoTo err_CCI
Dim ctrl As Control
Dim i As Integer
For i = 0 To 6
    Me!cboMyNameIs.Value = ""
Next i
Me!lblOtherExplan.Caption = ""
For Each ctrl In Me.Controls
  If TypeOf ctrl Is TextBox Then
     Select Case ctrl.Tag
        Case "DNR"
            'Take no action
        Case "DNR1"
            ctrl.Value = ""
        Case Else
             With ctrl
                .Value = ""
                .Format = "Fixed"
                .DecimalPlaces = 2
            End With
        End Select
     End If
Next ctrl
Exit Sub
err_CCI:
    ErrBox ("The problem originated in ClearCurrentInformation in frmTimecard.")
End Sub

Alan