Sub or Function not found quesiton

[Guest]

I have the following code at the start the fiunction I am trying to work on.
If I run the entire linking module from within an open Access window there
are no errors. When I try compile, before creating an exe file, I get a
compile error at the ahtAddFilterItem code. I am totally lost at this point.
Is there a reference required for this? I can't find documention on this
function anywhere.

Function fGetMDBName(strIn As String) As String
'Calls GetOpenFileName dialog
Dim strFilter As String

strFilter = ahtAddFilterItem(strFilter, _
"Access Database(*.mdb;*.mda;*.mde;*.mdw) ", _
"*.mdb; *.mda; *.mde; *.mdw")
strFilter = ahtAddFilterItem(strFilter, _
"All Files (*.*)", _
"*.*")

Thank you.

 

[Wayne Morgan]

strFilter = ahtAddFilterItem(strFilter, _

"Access Database(*.mdb;*.mda;*.mde;*.mdw) ", _
"*.mdb; *.mda; *.mde; *.mdw")

If the line above is causing a problem, then I would need to know what the
ahtAddFilterItem function says. Also, in this very first line, you've
included strFilter in it. strFilter is currently equal to "". Would passing
an empty string cause this function a problem?

 

[Douglas J. Steele]

Are you saying that it's telling you there's an error in ahtAddFilterItem,
or is is complaining that it can't find ahtAddFilterItem?

That particular function comes from Ken Getz et al's Access Developer's
Handbook. See http://www.mvps.org/access/api/api0001.htm for the complete
code.