Auteur

MVP Office Access 2003, 2004, 2005 et 2006

Qui sont les MVP ?

 
 

Codes pour Access

 -  Base de données
+ Administrateur
+ Table
+ Requête
+ Formulaire
+ Dates & Heures
+ Nombre
+ Math
+ Fichier
+ Commandes externes
+ Automation
+ Equivalence
 
 

Tuto Access 2007

+ Base de données
 
 

Lettre d'information

Pour avoir des nouvelles de ce site, inscrivez-vous à notre Newsletter.
S'abonner
Se désabonner

captcha
Merci de recopier le code alphanumérique ci-dessus
117 Abonnés
 
 

Base de données - Empêcher la ré-ouverture d'une base

Description 

Cette fonction permet d'éviter que lorsque l'on a déjà ouvert sa base de donnée sur son PC, qu'elle ne soit ré-ouverte.

 
Syntaxe 

CreateBaseMutex ()

Cette fonction doit être exécuter soit par une macro AutoExec, soit à l'ouverture du formulaire de démarrage de la base de donnée.

 
Exemple 

Aucun exemple disponible pour le moment.

 
Code de la fonction 


 

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 

 


Date de création : 14/09/2006 @ 16:36
Dernière modification : 12/06/2007 @ 13:01
Catégorie : Base de données
Page lue 1910 fois


Prévisualiser la page Prévisualiser la page     Imprimer la page Imprimer la page

 
 

Réactions à cet article


Personne n'a encore laissé de commentaire.
Soyez donc le premier !


 
 

Recherche




Google

 
 

Préférences

Votre nom (ou pseudo) :

Votre mot de passe :

     


Membres 79 Membres

membres les 10 derniers :
CJ6774   monaker   Jerry   jujubegood   Rachid   fifimeyrou   MoxQwoidT   fof_alaz   bellemeche   Bruno   
Membre en ligne : Membre en ligne :
( personne )
Anonymes en ligne : Anonymes en ligne : 7

Total visites : Total visites : 174519  
hit Affluence record: 102
le 17/06/2007 @ 07:36

Ecrire à Jessy SEMPERE Ajouter aux favoris Recommander ce site à un ami Version mobile
 
 


Design Jessy © 2007 - Compatible IE6, IE7 et Mozilla 2.0.0.1

  Site créé avec GuppY v4.5.18 © 2004-2005 - Licence Libre CeCILL

Document généré en 0.13 seconde