open a Access database with VBA

Hi Group!

If i run following code i receive message

"Error '53'"
"File not found"

But file "House3.mdb" is there. What is wrong?

My code:

Sub OpenDatabaseFile()
Dim strFile as String
Dim strDataPath as String
Dim strdefault As String
Dim RetVal

strDataPath = Application.ActiveDesignFile.Path
strdefault = InStrRev(strDataPath, "Projects")
If strdefault > 0 Then
strDataPath = Left$(strDataPath, strdefault - 1)& "Data\House3.mdb"
End If

strFile = "strDataPath"
RetVal = Shell(strFile, 1)
End Sub



Thank You!
Alexander

 

Just an idea. Print the contents of the resulting filename ("strDataPath") to
screen, so you can verify it is pointing to where you think it should be.

Alex

"Alexander Heide" <> schreef in bericht
| Hi Group!
|
| If i run following code i receive message
|
| "Error '53'"
| "File not found"
|
| But file "House3.mdb" is there. What is wrong?
|
| My code:
|
| Sub OpenDatabaseFile()
| Dim strFile as String
| Dim strDataPath as String
| Dim strdefault As String
| Dim RetVal
|
| strDataPath = Application.ActiveDesignFile.Path
| strdefault = InStrRev(strDataPath, "Projects")
| If strdefault > 0 Then
| strDataPath = Left$(strDataPath, strdefault - 1)&
"Data\House3.mdb"
| End If
|
| strFile = "strDataPath"
| RetVal = Shell(strFile, 1)
| End Sub
|
|
|
| Thank You!
| Alexander

 

Alexander ...

1 The Shell() function attempt to run an executable
2 A .mdb file is a data file

You can't execute a data file. VBA does not perform magic: it can't run a
data file. If you want to understand the limits of Shell(), open a
command window and enter the line you want to execute. In this case:
C:\Program Files\Bentley\Program\MicroStation\Data\House3.mdb

 

Hi "AHA"!

Thanks for answer!

Debug.Print delivers the right path!!!
That is so curiouse!
And the file is also in the right folder.

Greetings
AHeide

 

However, if there is an association between an MDB file and MS Access, the
above command you suggest *should* start up MS Access and open the
House3.mdb database, as desired.

GeoffH

 

Yes and no. Shell() ignores any associations. Your options are to
either use the ShellExecute API (which does use associations) or to
use the command line. ie.

RetVal = Shell("cmd /c " & strFile,1)

or (under windows 95/98):
RetVal = Shell("command /c " & strFile,1)


-Tim

 

I was referring to the "open a command window" Jon was suggesting, because
it *will* start up MS Access.

GeoffH
http://home.comcast.net/~hksys/

 

Geoff ...

Yes, it was a bad example because the Windows Explorer file association
will perform the magic. I was hoping to illustrate the difference between
running an executable and attempting to run a data file. Next time, I'll
be more careful 8-(