Workaround to reference 'me' in a function module

[gojets1721]

I created a function in a module shown below:

Function GetEmail()
    'GetEmail= DLookup("ManagerEmail", "tblLocations", "Location='" & Me.Location & "'")
End Function

I wanted to use this in multiple forms/reports. No matter where it's is used, the form/report will always has a 'Location' field. That's why I tried using 'Me.Location' but obviously that doesn't work since 'me' is referring to the function itself.

Any suggestions on how to get around this issue without completely scrapping function?

 

[sonic8]

Me is referring to the instance of the class the code resides in. As this does not apply to "normal" modules, Me is simply invalid there.

No matter where it's is used, the form/report will always has a 'Location' field.

Until it hasn't...

I would pass in the location as an argument to the function. Then you are not depending on assumptions of the calling context.

Function GetEmail(ByVal Location As String)
    GetEmail= DLookup("ManagerEmail", "tblLocations", "Location='" & Location & "'")
End Function

 

[The_Doc_Man]

Instead of

Function GetEmail()
    'GetEmail= DLookup("ManagerEmail", "tblLocations", "Location='" & Me.Location & "'")

Use

Function GetEmail(frm as Access.Form)
    'GetEmail= DLookup("ManagerEmail", "tblLocations", "Location='" & Frm.Location & "'")

I.e. make the form an object parameter and pass it in. Then invoke it with

strX = GetMail(me)
[CODE]

 

[gojets1721]

Instead of

Function GetEmail()
    'GetEmail= DLookup("ManagerEmail", "tblLocations", "Location='" & Me.Location & "'")

Use

Function GetEmail(frm as Access.Form)
    'GetEmail= DLookup("ManagerEmail", "tblLocations", "Location='" & Frm.Location & "'")

I.e. make the form an object parameter and pass it in. Then invoke it with

strX = GetMail(me)
[CODE]

Thanks you! This worked!