Repetitive code...how to create into a global module 2

[KENTOY]

Hi,

I'm quite a beginner in access/vba/vb code, so please bear with me... Anyways i have forms that have this repeating code

Sub ActiveControl_Enter()
    With Me.ActiveControl
        .Properties("BorderStyle") = 1
        .Properties("BorderWidth") = 2
        .Properties("BorderColor") = vbRed
    End With
End Sub

Sub ActiveControl_Exit()
    With Me.ActiveControl
        .Properties("BorderStyle") = 1
        .Properties("BorderWidth") = 1
        .Properties("BorderColor") = 0
    End With
End Sub

Which are called by the controls enter and exit event, anybody can help me make this a global function/sub which can be called anywhere in any form.

thanks,
ken

 

[mhartman1]

Hello:

For global code, you what to create a module and place your code there. Then it can be seen anywhere in your project.

In the VBA editor area select Insert, Module and follow the directions.

Regards
Mark

 

[TheAceMan1]

How are ya KENTOY . . .

Copy your code to a module in the modules. Then delete the code in all other places.

Next in the proper event your going to use:
Call ActiveControl_Exit
or
ActiveControl_Enter

See Ya! . . . . . .

 

[PHV]

I suggest to pass the Form object as parameter and not use the Me object in a standard module ...

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

 

[KENTOY]

Hi guys, i created my module using the code below

Sub ActiveControl_Enter(frm As Form)
On Error GoTo Err_ActiveControl_Enter

    With frm.ActiveControl
        .Properties("BorderStyle") = 1
        .Properties("BorderWidth") = 2
        .Properties("BorderColor") = vbRed
    End With

Exit_ActiveControl_Enter:
    Exit Sub
  
Err_ActiveControl_Enter:
    MsgBox "Error " & Err.Number & ": " & Err.Description
    Resume Exit_ActiveControl_Enter

End Sub

But when calling this one in the control's enter event i get a "argument not option error" using this

Call ActiveControl_Enter

anybody? appreciate it,
ken

 

[CaptainD]

You need to pass the form name

Call ActiveControl_Enter(frmFormName)

 

[Eupher]

CaptainD is correct, this should work:

Call ActiveControl_Enter([red]Me[/red])

HTH,

Ken S.

 

[KENTOY]

Thanks CaptainD and Eupher, it worked... maybe its too much caffeine.

 

[TheAceMan1]

Thats what [blue]PHV[/blue] said 4 posts from the top! . . .

See Ya! . . . . . .

 

[Eupher]

There I go, star poaching again...

;-)