Clearing Form, unbound text boxes

[ResTech]

I have a form that has some unbound text boxes in it, when I switch to a new record I want the unbound text boxes to clear.

 

[pbaldy]

One way, using the Tag property:

  Dim ctl                As Control

  For Each ctl In Me.Controls    'Only check data entry type controls.
    Select Case ctl.ControlType
      Case acTextBox, acComboBox
        If ctl.Tag = "Clear" Then
          ctl = Null
        End If
    End Select
  Next ctl

 

[ResTech]

I was hoping to use expression builder or a macro to do this, is using code a must? I'm horrible when it comes to programming.

 

[pbaldy]

Sure, you can use a macro to set each control one by one.

 

[ResTech]

I can't even figure that out.

 

[pbaldy]

It's either SetValue or SetProperty as I recall.

 

[ResTech]

Thanks so much, I will try that.:banghead:

 

[pbaldy]

No problem.