Library or not...

[Matthew Wells]

I have an mdb that I am using as a reference for another mdb. How do I tell
if the code I am executing is coming from the library reference or in the
front end mdb? So far I'm using

If CurrentProject.FullName <CodeProject.FunnName then
bIsLibrary = ture
end if
Thanks.

Matthew Wells
Ma***********@FirstByte.net

['69 Camaro]

Hi, Matthew.

How do I tell if the code I am executing is coming from the library
reference or in the front end mdb? So far I'm using

If CurrentProject.FullName <CodeProject.FunnName then
bIsLibrary = ture
end if

If these were spelled correctly, then this code would work.

Unless you have the bad habit of naming procedures identically in both the
library and the current database, checking the name of the procedure will
tell you which database the code is being executed from.

HTH.
Gunny

See http://www.QBuilt.com for all your database needs.
See http://www.Access.QBuilt.com for Microsoft Access tips and tutorials.
Blogs: www.DataDevilDog.BlogSpot.com, www.DatabaseTips.BlogSpot.com
http://www.Access.QBuilt.com/html/ex...ributors2.html for contact
info.

[Matthew Wells]

Thanks. How do you check the procedure name from within code? I've never
been able to accomplish this before.

"'69 Camaro" <Fo**************************@Spameater.orgZERO_SP AMwrote in
message news:aguki.786$mS3.47@trnddc03...

Hi, Matthew.

>How do I tell if the code I am executing is coming from the library
reference or in the front end mdb? So far I'm using

If CurrentProject.FullName <CodeProject.FunnName then
bIsLibrary = ture
end if

If these were spelled correctly, then this code would work.

Unless you have the bad habit of naming procedures identically in both the
library and the current database, checking the name of the procedure will
tell you which database the code is being executed from.

HTH.
Gunny

See http://www.QBuilt.com for all your database needs.
See http://www.Access.QBuilt.com for Microsoft Access tips and tutorials.
Blogs: www.DataDevilDog.BlogSpot.com, www.DatabaseTips.BlogSpot.com
http://www.Access.QBuilt.com/html/ex...ributors2.html for contact
info.

['69 Camaro]

Hi, Matthew.

How do you check the procedure name from within code?

Either use the Module's ProcOfLine Property, or hard code it within the VBA
code.

HTH.
Gunny

See http://www.QBuilt.com for all your database needs.
See http://www.Access.QBuilt.com for Microsoft Access tips and tutorials.
Blogs: www.DataDevilDog.BlogSpot.com, www.DatabaseTips.BlogSpot.com
http://www.Access.QBuilt.com/html/ex...ributors2.html for contact
info.

[Matthew Wells]

Sounds easy, but how do you use that while you're running code? To get this
property, wouldn't you have to dim a variable as a module at the module
level, then open the module you're using to be able to use that property?

Sounds scary!!
"'69 Camaro" <Fo**************************@Spameater.orgZERO_SP AMwrote in
message news:HDuki.11941$g44.5659@trnddc02...

Hi, Matthew.

>How do you check the procedure name from within code?

Either use the Module's ProcOfLine Property, or hard code it within the
VBA code.

HTH.
Gunny

See http://www.QBuilt.com for all your database needs.
See http://www.Access.QBuilt.com for Microsoft Access tips and tutorials.
Blogs: www.DataDevilDog.BlogSpot.com, www.DatabaseTips.BlogSpot.com
http://www.Access.QBuilt.com/html/ex...ributors2.html for contact
info.

['69 Camaro]

Hi, Matthew.

Sounds easy, but how do you use that while you're running code?

Here is an example, where the MsgBox line of code is on line 20:

Public Function whichProcIsThis() As Boolean

On Error GoTo ErrHandler

Dim mdl As Module

Set mdl = Modules("TestModule")
MsgBox "Currently running the " & mdl.ProcOfLine(20, vbext_pk_Proc) & "
procedure."

CleanUp:

Set mdl = Nothing

Exit Function

ErrHandler:

MsgBox "Error in whichProcIsThis( )." & vbCrLf & vbCrLf & _
"Error #" & Err.Number & vbCrLf & vbCrLf & Err.Description
Err.Clear
GoTo CleanUp

End Function

HTH.
Gunny

See http://www.QBuilt.com for all your database needs.
See http://www.Access.QBuilt.com for Microsoft Access tips and tutorials.
Blogs: www.DataDevilDog.BlogSpot.com, www.DatabaseTips.BlogSpot.com
http://www.Access.QBuilt.com/html/ex...ributors2.html for contact
info.

[Matthew Wells]

Thanks!!! I'll give it a try and let you know. BTW, don't you have to open
the module to read from it?

"'69 Camaro" <Fo**************************@Spameater.orgZERO_SP AMwrote in
message news:Jtvki.1703$YH3.433@trnddc08...

Hi, Matthew.

>Sounds easy, but how do you use that while you're running code?

Here is an example, where the MsgBox line of code is on line 20:

Public Function whichProcIsThis() As Boolean

On Error GoTo ErrHandler

Dim mdl As Module

Set mdl = Modules("TestModule")
MsgBox "Currently running the " & mdl.ProcOfLine(20, vbext_pk_Proc) & "
procedure."

CleanUp:

Set mdl = Nothing

Exit Function

ErrHandler:

MsgBox "Error in whichProcIsThis( )." & vbCrLf & vbCrLf & _
"Error #" & Err.Number & vbCrLf & vbCrLf & Err.Description
Err.Clear
GoTo CleanUp

End Function

HTH.
Gunny

See http://www.QBuilt.com for all your database needs.
See http://www.Access.QBuilt.com for Microsoft Access tips and tutorials.
Blogs: www.DataDevilDog.BlogSpot.com, www.DatabaseTips.BlogSpot.com
http://www.Access.QBuilt.com/html/ex...ributors2.html for contact
info.

['69 Camaro]

Hi, Matthew.

BTW, don't you have to open the module to read from it?

Logically, the module is _already_ open because you're running the code in
it. In the example I provided, the whichProcIsThis( ) function is in the
TestModule module.

HTH.
Gunny

See http://www.QBuilt.com for all your database needs.
See http://www.Access.QBuilt.com for Microsoft Access tips and tutorials.
Blogs: www.DataDevilDog.BlogSpot.com, www.DatabaseTips.BlogSpot.com
http://www.Access.QBuilt.com/html/ex...ributors2.html for contact
info.
"Matthew Wells" <Ma***********@FirstByte.netwrote in message
news:oJ******************************@comcast.com. ..

Thanks!!! I'll give it a try and let you know. BTW, don't you have to
open the module to read from it?

"'69 Camaro" <Fo**************************@Spameater.orgZERO_SP AMwrote
in message news:Jtvki.1703$YH3.433@trnddc08...

>Hi, Matthew.

>>Sounds easy, but how do you use that while you're running code?

Here is an example, where the MsgBox line of code is on line 20:

Public Function whichProcIsThis() As Boolean

On Error GoTo ErrHandler

Dim mdl As Module

Set mdl = Modules("TestModule")
MsgBox "Currently running the " & mdl.ProcOfLine(20, vbext_pk_Proc) &
" procedure."

CleanUp:

Set mdl = Nothing

Exit Function

ErrHandler:

MsgBox "Error in whichProcIsThis( )." & vbCrLf & vbCrLf & _
"Error #" & Err.Number & vbCrLf & vbCrLf & Err.Description
Err.Clear
GoTo CleanUp

End Function

HTH.
Gunny

See http://www.QBuilt.com for all your database needs.
See http://www.Access.QBuilt.com for Microsoft Access tips and tutorials.
Blogs: www.DataDevilDog.BlogSpot.com, www.DatabaseTips.BlogSpot.com
http://www.Access.QBuilt.com/html/ex...ributors2.html for contact
info.

[Tony Toews [MVP]]

"Matthew Wells" <Ma***********@FirstByte.netwrote:

>I have an mdb that I am using as a reference for another mdb. How do I tell
if the code I am executing is coming from the library reference or in the
front end mdb? So far I'm using

CodeDb.Name

See my Add-in Tips, Hints and Gotchas page at
http://www.granite.ab.ca/access/addins.htm for more tips.

Tony
--
Tony Toews, Microsoft Access MVP
Please respond only in the newsgroups so that others can
read the entire thread of messages.
Microsoft Access Links, Hints, Tips & Accounting Systems at
http://www.granite.ab.ca/accsmstr.htm
Tony's Microsoft Access Blog - http://msmvps.com/blogs/access/