Change border color of textboxes when they have focus (1 Viewer)

GinaWhipp said:

@isladogs

Yep, ALL things on my *Do Not Use* list!

I was just peeking at your site to see what goodies you have! Great minds think alike.

Click to expand...

isladogs said:

The examples & samples part of my site is still work in progress.
I'm currently working on a number of articles then will add loads of links to other sites - all the usual suspects of course ... then there are a few more examples to add.

I'm currently looking at Access 95 files in relation to Access (non) security & trying to remember how ULS is meant to work. Fun!

Click to expand...

GinaWhipp said:

@shadow9449

Yeah, this thread kind of confusing because it's resurrected, see post #18, that is the recent one.

Click to expand...

isladogs said:

Shadow
Oxicottin came in and sort of hijacked this thread leading it in a different direction
A bit like someone else did in a current thread about Windows/Office upgrade woes....! Naming no names of course ...

Click to expand...

boblarson said:

Okay first off you would need to use
For Each ctl in frm.CONTROLS

or did you just accidentally omit it in the code you posted here?

Second, your reference to set them is not right.

What I would do is create a Function like this in a standard module:

Code:Copy to clipboard

Function SetFocusCtl(strFrm As String, strCtlNameWithFocus As String, blnFocus As Boolean)
    Dim strActiveColor As String: strActiveColor = RGB(255, 0, 0)
    Dim strNonActiveColor As String: strNonActiveColor = RGB(0, 0, 0)
    Const intActiveWidth As Integer = 3
    Const intNonActiveWidth As Integer = 1
    Dim ctl As Control
    Dim frm As Form

    Set frm = Forms(strFrm)

    For Each ctl In frm.Controls
        Select Case ctl.ControlType
        Case acTextBox, acComboBox, acListBox, acOptionGroup
            If ctl.Name = strCtlNameWithFocus Then
                ctl.BorderColor = strActiveColor
                ctl.BorderWidth = intActiveWidth
            Else
                ctl.BorderColor = strNonActiveColor
                ctl.BorderWidth = intNonActiveWidth
            End If
        End Select
    Next ctl

End Function

And then in the form's On Load event Or Open event:

Code:Copy to clipboard

Private Sub Form_Load()
    Dim ctl As Control
    Dim strGot As String
    Dim strLost As String

  
    For Each ctl In Me.Controls
        Select Case ctl.ControlType
        Case acTextBox, acComboBox, acListBox, acOptionGroup
            With ctl
            strGot = "=SetFocusCtl([Form].[Name],[" & ctl.Name & "].[Name], True)"
            strLost = "=SetFocusCtl([Form].[Name],[" & ctl.Name & "].[Name], False)"
                .OnGotFocus = strGot
                .OnLostFocus = strLost
            End With
        End Select
    Next
End Sub

Click to expand...

LauraPat said:

Thank you very much for this. This code works amazingly on my main form but not on my subform. Can you please show code to include subforms? or advise how to have this 'change border color function on my subform.

Click to expand...

theDBguy said:

Hi. What is it doing with your subform? Are you getting an error? Did you also add the Load event code in your subform?

Click to expand...

LauraPat said:

Hi, Thank you very much for the speedy reply.
I have tried various methods/adaptations of this code to include my subform but been unsuccessful each time. I Think the issue is, I have not referenced my subform on my main form.
So the border colour changes in my main form as expected but when I tab to my subform I get the error “2450 - Cannot find referenced subform” OR I can tab to the subform but the focus (border colour change) remains on the last control in my main form.

Click to expand...

LauraPat said:

Hi, Thank you very much for the speedy reply.
I have tried various methods/adaptations of this code to include my subform but been unsuccessful each time. I Think the issue is, I have not referenced my subform on my main form.
So the border colour changes in my main form as expected but when I tab to my subform I get the error “2450 - Cannot find referenced subform” OR I can tab to the subform but the focus (border colour change) remains on the last control in my main form.

Click to expand...