Sub or Function not found quesiton

  • Thread starter Thread starter Guest
  • Start date Start date
G

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.
 
strFilter = ahtAddFilterItem(strFilter, _
"Access Database(*.mdb;*.mda;*.mde;*.mdw) ", _
"*.mdb; *.mda; *.mde; *.mdw")
Click to expand...


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?
 
Back
Top