Referencing a control from a form in a module (1 Viewer)

chrisjames25 · Oct 11, 2017

HI.

I am trying to reference the active control in a form in a module but keep getting an error stating control needs to be in active window.

Code:

Dim ctlCurrentControl As Control
Dim strControlName As String

Set ctlCurrentControl = Screen.ActiveControl
strControlName = ctlCurrentControl.Name
ctlCurrentControl.ForeColor = vbRed

Instead of screen.activecontrol how could i refernece the current active form?

Ranman256 · Oct 11, 2017

instead of a module cant you put the code into the form? ,and it will KNOW its active.

if you cant put the code in the form, can you send the module code the form ID,:

Code:

'in the form:
Call MyFct(Me)          'send the form id with it

'in the module:
Function MyFct(pfrm as form)
 pfrm.cbobox.backcolor = vbRed
end Function

arnelgp · Oct 11, 2017

Screen. ActiveForm

JHB · Oct 11, 2017

Another way is to pass the control to the module.

Code:

'Put that in the form
'Call the procedure/sub in the module from the form
Call ActiveControlInForm(Me.ActiveControl)

'Put the following in a module.
Public Sub ActiveControlInForm(ctrl As Control)
   ctrl.ForeColor = vbRed
End Sub

chrisjames25 · Oct 12, 2017

WOrks like a charm

MAny thanks

Referencing a control from a form in a module (1 Viewer)

chrisjames25

Registered User.

Ranman256

Well-known member

arnelgp

..forever waiting... waiting for jellybean!

JHB

Have been here a while

chrisjames25

Registered User.

Similar threads

Users who are viewing this thread