auto restart of access

[MJD1]

Hi all, need some help with something that seems to me very basic, but for some reason I just can't get it working. Im using access 2003 and I have part of this code in my password page. essentially, if the person logging in is not an admin, I want the program to restart with minimal menu and no editing options. For some reason, when it restarts, i get an error message telling me that the "The command line I used to start microsoft Access contains an option that MS access does not recognize"
I also get an error message for the CurrentDb.name.

If Restart Then
'Close database and re-open
stAppName = "MSACCESS.exe " & CurrentDb.Name
Call Shell(stAppName,1)
DoCmd.Quit

I know I can use the security tool built into Access, but found that this was a better option for my application.

thanks in advance
Martin

 

[MJD1]

ok, so when I remove "& CurrentDb.Name" it closes and restarts Access without the error messages.
I just need to understand how to automatically start my database file.

 

[dhookom]

Do you have spaces in your db name including the path?

What do you get if you type the following in the immediate window:
? CurrentDb.Name

Duane
Hook'D on Access
MS Access MVP

 

[MJD1]

When I keep CurrentDb.Name I get an error message telling me that MS Access can't find the file C:\Documents.mdb. My file name casemanagementsystem.mdb.

thx
Martin

 

[MJD1]

Here is what I get when I typed CurrentDb.Name in a window:

C:\Documents and Settings\mdempsey\My Documents\CMS\Casemanagementsystemwin2003.mdb

so, I created a new foder named CMS at c:\ and now I don't get the error messages however, access re-opens but doesnt open the mdb file.

 

[MJD1]

my mistake, I still get the error message telling me it can't find the database.

any suggestions?

 

[dhookom]

I expect one issue is all the spaces in the folder names. You would have to compensate for this by add quotes. Try something like:

If Restart Then
        'Close database and re-open
        stAppName = "MSACCESS.exe """ & CurrentDb.Name & """ "
        Call Shell(stAppName,1)
        DoCmd.Quit
End If

You may want to take a look at the free utility from Michael Kaplan SOON at

http://www.trigeminal.com/lang/1033/utility.asp?ItemID=8#8.

Duane
Hook'D on Access
MS Access MVP

 

[MJD1]

Thanks Duanne, the added quotes did the job! also, thanks for the utility link, very interesting.

martin