Changing a controls property 2

[AccessGuruCarl]

I'd like to create a module to change the backcolor, forecolor for textboxes on Got/Lost Focus.

Please help with the following Function.
I've alway's stayed away from modules for this reason.
I believe I'm missing the Form Name to make it work.

Here's what I got started,

Public Function TextGotFocus(strTextBoxName As String)
On Error Resume Next
   With Me.Controls(strTextBoxName)
        .BackColor = 11796479   'custom Light Yellow
        .SelStart = 0
    End With
End Function

Thanks...


AccessGuruCarl
Programmers helping programmers
you can't find a better site.

 

[VBslammer]

I would pass the argument by reference so it wouldn't matter which form called the function:

Public Function TextGotFocus(ByRef tb As TextBox)
On Error Resume Next
  With tb
    .BackColor = 11796479   'custom Light Yellow
    .SelStart = 0
  End With
End Function

The form would call it like this:

Private Sub Text1_GotFocus()
  Call TextGotFocus(Me!Text1)
End Sub

VBSlammer

"You just have to know which screws to turn." - Professor Bob

 

[PHV]

You may consider passing the control object instead of the name as parameter:

Public Function TextGotFocus(objTextBox As Control)
    With objTextBox
        .BackColor = 11796479   'custom Light Yellow
        .SelStart = 0
    End With
End Function

Hope This Helps, PH.
Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884 or FAQ181-2886

 

[AccessGuruCarl]

Thanks,

Both methods worked.

Star for each

AccessGuruCarl
Programmers helping programmers
you can't find a better site.