How can I reference Form Objects in my custom Sub-Routine?

  • Thread starter Thread starter every1luvsVB via AccessMonster.com
  • Start date Start date
E

every1luvsVB via AccessMonster.com

Hi there,

I am having trouble referencing form objects in my custom-defined sub routine.


- In the calling statement, I pass the form as 'Me'; defining it as 'thisForm
As Form' in the custom sub's argument list. This is recognised in my
subroutine and is not a problem.

- In the calling statement, I also pass a reference to a button control on
this form as a subsequent argument. In this instance, I pass the control as
'Me!btnOpenReport'; and define it as 'strButtonName As String' in the custom
sub's argument list.

- When I then try to manipulate Me!btnOpenReport's properties from within my
custom subroutine, eg. via 'thisForm!strButtonName.enabled = False', I
receive the following error..

Run-time error '2465':

Microsoft Office Access can't find the field 'strButtonName' referred to in
your expression.

I expect I should not pass the button reference as a string but cannot figure
out the correct syntax. Can anyone help?
 
Declare the button as a control. Something like this:

sub Example (Thisform as form, Button as control)
Button.enabled=false
end sub

Call the sub like this:
Call Example (Me, NameOfTheButton)
 
every1luvsVB via AccessMonster.com said:
Hi there,

I am having trouble referencing form objects in my custom-defined sub
routine.


- In the calling statement, I pass the form as 'Me'; defining it as
'thisForm As Form' in the custom sub's argument list. This is
recognised in my subroutine and is not a problem.

- In the calling statement, I also pass a reference to a button
control on this form as a subsequent argument. In this instance, I
pass the control as 'Me!btnOpenReport'; and define it as
'strButtonName As String' in the custom sub's argument list.

- When I then try to manipulate Me!btnOpenReport's properties from
within my custom subroutine, eg. via 'thisForm!strButtonName.enabled
= False', I receive the following error..

Run-time error '2465':

Microsoft Office Access can't find the field 'strButtonName' referred
to in your expression.

I expect I should not pass the button reference as a string but
cannot figure out the correct syntax. Can anyone help?
Click to expand...

You're right. You shouldn't be defining the argument as a string.
Instead, define it as one of the following

Access.CommandButton
Access.Control
Object

(listed in descending order of specificity). I would use the first one,
by preference, as that will give you the intellisense dropdown for the
properties and methods that apply specifically to the CommandButton
control.
 
every1luvsVB said:
- In the calling statement, I pass the form as 'Me'; defining it as 'thisForm
As Form' in the custom sub's argument list. This is recognised in my
subroutine and is not a problem.

- In the calling statement, I also pass a reference to a button control on
this form as a subsequent argument. In this instance, I pass the control as
'Me!btnOpenReport'; and define it as 'strButtonName As String' in the custom
sub's argument list.

- When I then try to manipulate Me!btnOpenReport's properties from within my
custom subroutine, eg. via 'thisForm!strButtonName.enabled = False', I
receive the following error..

Run-time error '2465':

Microsoft Office Access can't find the field 'strButtonName' referred to in
your expression.

I expect I should not pass the button reference as a string but cannot figure
out the correct syntax. Can anyone help?
Click to expand...


If you call the procedure with a control reference AND the
procedure is declared as a value variable, then the
control's Value is passed as the argument. If you intended
to pass the name of the control, then you need to explicitly
use the control's Name property.

proc Me, Me!btnOpenReport.Name

but that passes the identical string as:

proc Me, "btnOpenReport"

In either of those cases, the procedure would use the
arguments this way:

thisForm(strButtonName).Enabled = False

With that explanation of your problem out of the way, I
suggest that if the form object is not used for other
things, it is usually better to declare the procedure as:

Sub myproc(ctl As Control)

and use this:

ctl.Enabled = False
 
Guys,

Thanks heaps for the advice. The Control declaration works. And Marshall;
very good point; I do not need to pass the form reference at all to achieve
what I need to achieve.

Thanks for all your help!
 
Hi All,

I am trying to achieve a similar thing here, passing a reference to a
control to a subroutine. Following the logic in code of:

call subMySub ("ThisControl")

or

call subMySub (ThisControl.Name)

Private Sub subMySub (ctrl as Control)

ctrl.enabled = false

End Sub

I get a type mismatch when calling the sub. Have I missed something?


Thanks

swas
 
In
swas said:
Hi All,

I am trying to achieve a similar thing here, passing a reference to a
control to a subroutine. Following the logic in code of:

call subMySub ("ThisControl")

or

call subMySub (ThisControl.Name)

Private Sub subMySub (ctrl as Control)

ctrl.enabled = false

End Sub

I get a type mismatch when calling the sub. Have I missed something?
Click to expand...

Either:

Call subMySub("ThisControl")

...

Private Sub subMySub(ControlName As String)

Me.Controls(ControlName).Enabled = False

End Sub

Or:

Call subMySub(ThisControl)

...

Private Sub subMySub(ctrl as Control)

ctrl.Enabled = False

End Sub

In other words, either pass the name of the control and use that name
as a string index into the Controls collection, or pass an object
reference to the control itself. Don't mic the two.
 
How can the current control on a form be passed to a subroutine? For example,
in the form.dirty event:

call subMySub(<Selected form control>)

Sorry but still getting over this one... I understand directly passing a
single control as explained below though.

swas
 
hi,
How can the current control on a form be passed to a subroutine? For example,
in the form.dirty event:
Click to expand...
You may use Screen.ActiveControl, but i assume you mean somthing like that:

Private Sub cmdButton_Click()

subMySub cmdButton

End Sub

In the case of referencing the calling control, you have to hard code it.

When you need it very often, you may take a look at mztools.com. This
VBA plugin has a some template functions.


mfG
--> stefan <--
 
In
swas said:
How can the current control on a form be passed to a subroutine? For
example, in the form.dirty event:

call subMySub(<Selected form control>)

Sorry but still getting over this one... I understand directly
passing a single control as explained below though.
Click to expand...

The form has an ActiveControl property, so a procedure in the form's
module could be written like this:

Private Sub DoSomethingWithActiveControl()

With Me.ActiveControl

' ... do something ...

End With

End Sub

If your procedure is going to be in a standard module, not the form's
module, you can use Screen.ActiveControl instead of Me.ActiveControl.
You have to think carefully about the circumstances under which such a
procedure is going to be called, since Screen.ActiveControl could
theoretically be one thing and Forms!SomeForm.ActiveControl another.
However, in the Dirty event of a form, if the form is being dirtied by
user action, the form's ActiveControl and Screen.ActiveControl will be
the same object.
 
Thanks Stefan and Dirk.

I had actually scoured the form properties, controls collection etc...
looking for currentcontrol or similar. After reading your response I type
'me.' and the very frst intellisense property is ActiveControl...

The detailed responses are really appreciated.

swas
 
Back
Top