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(str In As String) As String
'Calls GetOpenFileName dialog
Dim strFilter As String

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

fGetMDBName = ahtCommonFileOp enSave(Filter:= strFilter, _
OpenFile:=True, _
DialogTitle:=st rIn, _
Flags:=ahtOFN_H IDEREADONLY)
End Function

Michael

[Douglas J. Steele]

What's the error?

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

"Lumpierbritche s" <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(str In As String) As String
'Calls GetOpenFileName dialog
Dim strFilter As String

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

fGetMDBName = ahtCommonFileOp enSave(Filter:= strFilter, _
OpenFile:=True, _
DialogTitle:=st rIn, _
Flags:=ahtOFN_H IDEREADONLY)
End Function

Michael

[Lumpierbritches]

The code breaks here and I get a Yellow Highlight.

[Lyle Fairfield]

lu************* @aol.com (Lumpierbritche s) 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.Descriptio n

and press enter. Post the results here.

EE