By using this site, you agree to our updated Privacy Policy and our Terms of Use. Manage your Cookies Settings.
424,847 Members | 2,153 Online
Bytes IT Community
+ Ask a Question
Need help? Post your question and get tips & solutions from a community of 424,847 IT Pros & Developers. It's quick & easy.

Reconnecting Front to Back End

P: n/a
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
Nov 12 '05 #1
Share this Question
Share on Google+
5 Replies


P: n/a
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

Nov 12 '05 #2

P: n/a
The code breaks here and I get a Yellow Highlight.
Nov 12 '05 #3

P: n/a
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)
Nov 12 '05 #4

P: n/a
"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
Nov 12 '05 #5

P: n/a
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
Nov 12 '05 #6

This discussion thread is closed

Replies have been disabled for this discussion.