Reconnecting Front to Back End

[Lumpierbritches]

I took everyone that posted to this advice, however I get an error here in the
code:

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

Michael

[Douglas J. Steele]

What's the error?

--
Doug Steele, Microsoft Access MVP
http://I.Am/DougSteele
(No private e-mails, please)

"Lumpierbritches" <lu*************@aol.com> wrote in message
news:20***************************@mb-m17.aol.com...

I took everyone that posted to this advice, however I get an error here in the code:

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

Michael

[Lumpierbritches]

The code breaks here and I get a Yellow Highlight.

[Lyle Fairfield]

lu*************@aol.com (Lumpierbritches) wrote in
news:20***************************@mb-m06.aol.com:

The code breaks here and I get a Yellow Highlight.

That is so helpful!

--
Lyle
(for e-mail refer to http://ffdba.com/contacts.htm)

[Larry Linson]

"Lyle Fairfield" wrote

The code breaks here and I get a Yellow Highlight.

That is so helpful!

I'm glad to see you are still full of **** and vinegar, Lyle. it. Have a
good day.

Larry

[Eric Ellsworth]

Lumpierbritches wrote:

The code breaks here and I get a Yellow Highlight.

When it does that, press Ctrl-G to get into the Immediate Window and
then type:

?Err.Description

and press enter. Post the results here.

EE