Prevent Multiple instance of Access 2010 Runtime (1 Viewer)

[sigma788]

hi all, is it possible to prevent
1- running multiple instance of MSACCESS.exe in runtime
2- running multiple instance of same database in runtime.

After searching,the posts i have found seems not to work on access 2010 runtime.

 

[GinaWhipp]

Hmm, if the database is split, as it should be, run the Frontends in Exclusive Mode. Doing that should prevent the Users from opening multiple Frontends on their machines.

 

[sigma788]

In my case database is not splitted. so is it possible without splitting.

 

[GinaWhipp]

No, it's not AND you need to split your database... like NOW!

Having it as one file with multiple Users is a recipe for disaster, see...

http://www.kallal.ca/Articles/split/index.htm

http://allenbrowne.com/ser-01.html

http://www.utteraccess.com/wiki/index.php/Sharing


You may also want to take a look at MVP Tom Wickerath's article…

http://www.accessmvp.com:80/Twickerath/articles/multiuser.htm


To handle the update of multiple front ends see…

http://www.autofeupdater.com/
http://regina-whipp.com/blog/?p=184
http://www.btabdevelopment.com/ts/freetools


If each user needs Access you can install the Runtime…

Access 2007
http://www.microsoft.com/downloads/...d9-9dc6-4b38-9fa6-2c745a175aed&displaylang=en

Access 2010
http://www.microsoft.com/downloads/...cd-5250-4df6-bfd1-6ced700a6715&displaylang=en

Access 2013
http://www.microsoft.com/en-us/download/details.aspx?id=39358

 

[sigma788]

Thanks GinaWhipp for detailed reply.

My runtime database will be used by a single user only.
is it possible in that case to limit running multiple instance of ms access by single user

Regards.

 

[GinaWhipp]

Then just set to open in Open in Exclusive Mode.

 

[Simon_MT]

Try:

Function IsRunning() As Integer

'    DoCmd.Maximize
    
 Dim db As DAO.Database
    Set db = CurrentDb()
    
    If IsRunningDDELink(db.Name) Then
        MsgBox "The database is already open"
        Application.Quit
        Set Application = Nothing
    End If

End Function

Private Function IsRunningDDELink(ByVal strAppName$) As Integer
    
Dim varDDEChannel
    
    On Error Resume Next
    Application.SetOption ("Ignore DDE Requests"), True
    varDDEChannel = DDEInitiate("MSAccess", strAppName)
    
   ' When the app isn't already running this will error
    If Err Then
       IsRunningDDELink = False
    Else
        IsRunningDDELink = True
        DDETerminate varDDEChannel
        DDETerminateAll
    End If
    Application.SetOption ("Ignore DDE Requests"), False
End Function

I have a Form on Startup and put IsRunning in the On Open Event

Simon

 

[sigma788]

thanks Simon.
is the code compatible with 2010 or am i doing something wrong.
i am not able to make the code work.

Regards.