how to open another database from a cmd button?

[kate10123]

Hi there,

I have a form in a database with a button. On clicking that button I want another database file to open.

Any ideas how I can do this?

Thanks

Kate

 

[Guus2005]

I have an idea;

Public Function StartDatabase(strFilename As String)

    Dim strCurDir   As String
    
    If Len(Nz(Dir(strFilename))) = 0 Then
        MsgBox "Database not found.", vbExclamation, "Oops!"
    Else
        Shell "msaccess.exe """ &  strFilename & """", vbMaximizedFocus
    End If

End Function

Enjoy!

 

[namliam]

Guus

Dir never returns a null, so why trap that?
Len(Nz(Dir(strFilename))) = 0
Is an overly complicated way of doing
Nz(Dir(strFilename)) = ""

And because Dir will never return a null anyway...
Dir(strFilename) = ""

 

[Guus2005]

Guus

Dir never returns a null, so why trap that?
Len(Nz(Dir(strFilename))) = 0
Is an overly complicated way of doing
Nz(Dir(strFilename)) = ""

And because Dir will never return a null anyway...
Dir(strFilename) = ""

Oke, you got me.
But:

Len(Dir(strfilename)) = 0

is better then

Len(Nz(Dir(strfilename))) = 0

and faster than

Dir(strfilename) = ""

A computer is better in mathmatics than string comparison

HTH

 

[namliam]

Is it also faster after doing the len first??

We are talking milli if not nano seconds on a single operation thought...
Your 'averege' user is not going to notice...