BackStyle property (1 Viewer)

[MikeLeBen]

I have this button in a form that's used to go to a new record so that user can fill various textboxes.

These textboxes are by default transparent, so to look non-editable. Therefore I want them to become Normal as the user clicks on that button.

On the _click event I used the following code

Dim txt As TextBox

For Each txt In Me.Form
txt.BackStyle = Normal
Next txt

but I get a type mismatch error. Any ideas?

 

[vbaInet]

Use the Integer equivalent. Normal is 1

 

[MikeLeBen]

I did, and got the same error:

Type mismatch on line -> For Each txt In Me.Form

 

[boblarson]

You will likely need to do it this way:

Dim ctl As Control
For Each ctl In Me.Controls
    If ctl.ControlType = acTextBox Then
        ctl.BackStyle = 1
    End If
    
Next

Tested and works.

 

[MikeLeBen]

You will likely need to do it this way:

Dim ctl As Control
For Each ctl In Me.Controls
    If ctl.ControlType = acTextBox Then
        ctl.BackStyle = 1
    End If
    
Next

Tested and works.

beautiful, cheers