Passing the Me Keyword to a Public Function

[Keith]

A97, NT4.

I've seen an example of this posted here but I can't for the life of me
find it. If I have a lot of controls on a form which all require the same
After Update action, what syntax do you need to pass "Me" to the public
function in a module?

I've tried calling

Public Function libComboFilter( frmForm As Form_Form1) As String

libComboFilter = frmForm.Name
Debug.Print libComboFilter

End Function

from a form called "Form1" with

libComboFilter (Me)

but I get a type mismatch error. I've nothing specific to achieve, I'm just
trying to get the principle right.

Thanks.
Keith.

[pietlinden]

Keith,
are you fishing for Me.ActiveContro l? I would think you'd have to
assign that to a variable in your form's code module and then pass the
variable to your function... Something like

Dim strCtrlName as string
Dim strFormName as string
strFormName=me. name
strCtrlName = me.activecontro l.name

X=fSomePublicFu nction(strFormN ame,strCtrlName )

then it's totally unambiguous.

[Keith]

pi********@hotm ail.com wrote:

Keith,
are you fishing for Me.ActiveContro l? I would think you'd have to
assign that to a variable in your form's code module and then pass the
variable to your function... Something like

Dim strCtrlName as string
Dim strFormName as string
strFormName=me. name
strCtrlName = me.activecontro l.name

X=fSomePublicFu nction(strFormN ame,strCtrlName )

then it's totally unambiguous.

Well I could make it work like that but I could have sworn I saw some code
on here where the Me keyword was passed on it's own ... maybe I was
mistaken.

Many thanks for a speedy response.

Keith.

[Ken Snell]

Try this:

Public Function MyFunction(frmO bject)
MyFunction = frmObject.Name
End Function
Call it this way:
MyName = MyFunction(Me)
--

Ken Snell
<MS ACCESS MVP>

"Keith" <ke*********@Aw ayWithYerCrap.c om> wrote in message
news:Xn******** *************** *@10.15.188.42. ..

A97, NT4.

I've seen an example of this posted here but I can't for the life of me
find it. If I have a lot of controls on a form which all require the same
After Update action, what syntax do you need to pass "Me" to the public
function in a module?

I've tried calling

Public Function libComboFilter( frmForm As Form_Form1) As String

libComboFilter = frmForm.Name
Debug.Print libComboFilter

End Function

from a form called "Form1" with

libComboFilter (Me)

but I get a type mismatch error. I've nothing specific to achieve, I'm
just
trying to get the principle right.

Thanks.
Keith.

[Terry Kreft]

Either
call libComboFilter( Me)

Or
libComboFilter Me

should work, although why you would use a public function for this when the
parameter type you are passing is Form_Form1 I don't know.

I would expect you to either have

Public Function libComboFilter( frmForm As Form) As String

or put the function in the form class module in which case you don't need to
pass a parameter.
--
Terry Kreft
MVP Microsoft Access
"Keith" <ke*********@Aw ayWithYerCrap.c om> wrote in message
news:Xn******** *************** *@10.15.188.42. ..

A97, NT4.

I've seen an example of this posted here but I can't for the life of me
find it. If I have a lot of controls on a form which all require the same
After Update action, what syntax do you need to pass "Me" to the public
function in a module?

I've tried calling

Public Function libComboFilter( frmForm As Form_Form1) As String

libComboFilter = frmForm.Name
Debug.Print libComboFilter

End Function

from a form called "Form1" with

libComboFilter (Me)

but I get a type mismatch error. I've nothing specific to achieve, I'm just trying to get the principle right.

Thanks.
Keith.

[Hank]

I've been using this approach for years:

How to call a function and pass your form

Me.HelpLabel.Ca ption = "How is it going"

SomeFunction(Me )
-------------------------------------

Public sub SomeFunction(Ca lling as form)

Calling.HelpLab el.Caption = "Going really good"

Exit Sub

Hank Reed

[Tim Marshall]

Keith wrote:

A97, NT4.

I've seen an example of this posted here but I can't for the life of me
find it. If I have a lot of controls on a form which all require the same
After Update action, what syntax do you need to pass "Me" to the public
function in a module?

I've tried calling

Public Function libComboFilter( frmForm As Form_Form1) As String

libComboFilter = frmForm.Name
Debug.Print libComboFilter

End Function

from a form called "Form1" with

libComboFilter (Me)

but I get a type mismatch error. I've nothing specific to achieve, I'm just
trying to get the principle right.

Thanks.
Keith.

Should be:

Public Function libComboFilter( frmForm As Access.Form) As String


--
Tim http://www.ucs.mun.ca/~tmarshal/
^o<
/#) "Burp-beep, burp-beep, burp-beep?" - Quaker Jake
/^^ "Whatcha doin?" - Ditto "TIM-MAY!!" - Me

[Grumpy Old Man]

"Ken Snell" <kt***********@ ncoomcastt.rena etl> wrote:

Public Function MyFunction(frmO bject)
MyFunction = frmObject.Name
End Function
Call it this way:
MyName = MyFunction(Me)

That's it, many thanks indeed Ken. Thanks also to all other respondees.

Keith.
www.keithwilby.com

[Terry Kreft]

This is bad practice, if you know the type of the argument your procedure
expects then you should declare the argument as that type, not as a variant
which is what this declaration is doing.

--
Terry Kreft
MVP Microsoft Access
"Grumpy Old Man" <ke*********@Aw ayWithYerCrap.c om> wrote in message
news:Xn******** *************** *@10.15.188.42. ..

"Ken Snell" <kt***********@ ncoomcastt.rena etl> wrote:

Public Function MyFunction(frmO bject)
MyFunction = frmObject.Name
End Function
Call it this way:
MyName = MyFunction(Me)

That's it, many thanks indeed Ken. Thanks also to all other respondees.

Keith.
www.keithwilby.com

[Grumpy Old Man]

"Terry Kreft" <te*********@mp s.co.uk> wrote:

This is bad practice, if you know the type of the argument your
procedure expects then you should declare the argument as that type,
not as a variant which is what this declaration is doing.

You're referring to the omission of "As Form"? I've included that and it
works fine. Thanks for your response Terry, much appreciated.

Regards,
Keith.