Empêché Access de s'ouvrir plusieurs fois

Salut,

Il est possible d'ouvir Access plusieurs en meme temps comment peut on
prevoir un message disant Access est deja ouvert et de fermer la base
automatiquement.

Va voir ceci:
http://www.mvps.org/accessfr/apis/api0034.htm



--
A+
Pierre (3stone) Access MVP
-----------------------------
http://users.skynet.be/mpfa
-----------------------------

Bonjour

Tu peux utiliser le code qui suit, il faut le lancer à chaque
ouverture de ta base, si elle est déjà ouverte, elle se refermera
automatiquement

**********************************************
Public Const ErrAlreadyExist = 183&

Public Declare Function CreateMutex Lib "kernel32" Alias "CreateMutexA" _
(ByVal lpAttributs As Long, ByVal InitialOwnwe As Long, _
ByVal lpName As String) As Long

Public Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long)
As Long

Public Function CreateBaseMutex()
'** Permet de fermer la base, si elle est déjà ouverte
'** Ce code est à exécuter à l'ouverture de la base
Dim strMutex As String
Dim lngMu As Long
Dim lngErr As Long

strMutex = Dir(CurrentDb.name)
Err.Clear
lngMu = CreateMutex(0, 1, strMutex)
lngErr = Err.LastDllError

If ErrAlreadyExist = lngErr Then
CloseHandle lngMu
DoCmd.Quit
End If

End Function
**********************************************
@+
Jessy Sempere - Access MVP
news@access.fr.vu
------------------------------------
Site @ccess : http://access.jessy.free.fr/
Pour l'efficacité de tous :
http://users.skynet.be/mpfa/
------------------------------------
"Gizmo" <chef_mogwai@hotmail.com> a écrit dans le message news:
#T$Xtov#DHA.2520@TK2MSFTNGP11.phx.gbl...

Bonjour,

Il est possible d'ouvir Access plusieurs en meme temps comment peut on
prevoir un message disant Access est deja ouvert et de fermer la base
automatiquement.

merci