Group non visible Textbox remove focus

[ag_122]

Hi
I have a code below. Is there a way were the macro skip or not focus on invisible textbox
And i dont want to change the name of the textbox


Macro below

Dim ctrl As Control

Dim EntryRequired As Boolean



For Each ctrl In Me.Frame161.Controls

Select Case TypeName(ctrl)

Case "TextBox", "ComboBox"

If Not EntryRequired Then

EntryRequired = CBool(Len(ctrl.Text) = 0)

If EntryRequired Then ctrl.SetFocus



End If

ctrl.BackColor = IIf(Len(ctrl.Text) = 0, &HC0C0FF, vbWhite)



End Select

Next

If EntryRequired Then

MsgBox "Please fill the Info above to proceed", 48, "Entry Required"





End If

 

[dmt32]

Hi,

try changing this line

EntryRequired = CBool(Len(ctrl.Text) = 0)

to this

EntryRequired = CBool(Len(ctrl.Text) = 0) And CBool(ctrl.Visible)

and see if this does what you want

Dave

 

[ag_122]

Hi,

try changing this line

EntryRequired = CBool(Len(ctrl.Text) = 0)

to this

EntryRequired = CBool(Len(ctrl.Text) = 0) And CBool(ctrl.Visible)

and see if this does what you want

Dave

Hi Dave
Im still getting an error below

"Run time error 2110
Cant move focus to the control because it is invisible, not enabled or a type does not accept the focus"

And i have some textboxs that are invisible

 

[dmt32]

Very curious

Try this change

If ctrl.Visible And Not EntryRequired Then

EntryRequired = CBool(Len(ctrl.Text) = 0)

etc etc

Dave

 

[ag_122]

Hi dave im still getting an error

Ill attach the error

 

[dmt32]

try this change

For Each ctrl In Me.Frame161.Controls
    
    Select Case TypeName(ctrl)
        
        Case "TextBox", "ComboBox"
            
            If ctrl.Visible Then
                
                If Not EntryRequired Then
                    
                    EntryRequired = CBool(Len(ctrl.Text) = 0)
                    
                    If EntryRequired Then ctrl.SetFocus
                    
                    ctrl.BackColor = IIf(Len(ctrl.Text) = 0, &HC0C0FF, vbWhite)
                End If
                
            End If
            
    End Select
    
Next

Dave