ahtAddFilterItem

[Chris]

Hello all, I have copied the following function from
http://www.mvps.org/access/tables/tbl0012.htm

When I try and run it I get the following message

Compile Error:
Sub or Function not defined
'ahtAddFilterItem' is highlighted.

I've done a search on the references but I don't get ay matches.
running Access 2000.

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 (*.*)", _
"*.*")

fGetMDBName = ahtCommonFileOpenSave(Filter:=strFilter, _
OpenFile:=True, _
DialogTitle:=strIn, _
Flags:=ahtOFN_HIDEREADONLY)
End Function

 

[John Spencer]

Did you also get the additional code mentioned in the NOTE

Note: This code still requires the GetOpenFileName routine provided by Ken
Getz. Make sure you copy the function from this article.

which sends you to
http://www.mvps.org/access/api/api0001.htm