Comment empêcher l'affichage du mode exclusif d'une base de donné "frontale" [Résolu]

[lakhdar16]

Bonjour,

J'ai créé une base de donnée multi-utilisateur (serveur-client) et j'aimerais bien désactiver le mode exclusif des BD frontales. J'ai sécurisé le code.

à vrai dire si possible, je veux que le client ne puisse pas afficher la base en mode exclusif.

Merci d'avance pour l'aide que vous pouvez m'apporter.

[Domi2]

Bonjour,

Regarde avec la méthode SetOption (voir l'aide pour les constantes).

Domi2

[lakhdar16]

Bonjour,

merci pour votre réponse, pourriez vous me communiquer un tutoriel ou un liens ou un exemple pour apprendre comment utiliser de cette fonction.

merci à vous

[JeanYves70]

Bonjour,

Il suffit de cocher la case "mode partagé" :
Option Access/Paramètres client/Avancé/mode partagé
dans ACCESS 2010

ou

Outil/Option/Avancé/mode partagé
dans ACCESS 2003

[lakhdar16]

merci pour votre intervention,

ce que je veux exactement, c'est empêcher le client d'ouvrir la base de donnée en mode exclusif soit par Shift+double clique soit par la méthode Ouvrir en mode Exclusif, j'utilise Access 2007 et je trouve pas comment le faire, y a pas un astuce pour cela?


merci à vous

[Domi2]

Bonjour,

T'es-tu au moins donné la peine de regarder l'aide de la méthode SetOption ?

Domi2

[lakhdar16]

bonjour,

si si je l'ai fais

Code :

SetOption OpenMode, 0

mais quand je fais Shift+double click la BD s'ouvre en mode exclusif !!!!

[Domi2]

C'est assez logique, puisque tu empêche l'ouverture de la base.

Tu n'as plus qu'à désactiver la touche Shit au démarrage (en oubliant pas de travailler sur une copie le temps de vérifier que tu peux faire l'opération inverse).

[lakhdar16]

bonjour,

merci tout le monde pour vos interventions et vos réponses.


après quelque recherche, j'ai trouvé un petit astuce et qui marche nickel.

sur le formulaire de démarrage j'ai ajouté une zone de texte "protection"
sur le même formulaire j'ai créé une fonction "ChangeProperty" qui active et désactive le mode exclusif et aussi avec traitement des erreurs
ci-dessous le code:

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Private Declare Function GetSystemMenu Lib "user32" (ByVal hwnd As Long, ByVal bRevert As Long) As Long
Private Declare Function RemoveMenu Lib "user32" (ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long) As Long
Private Declare Function DrawMenuBar Lib "user32" (ByVal hwnd As Long) As Long
 
Public Function ChangeProperty(strPropName As String, varPropType As Long, varPropValue As Variant) As Integer
  Dim prp As Variant
    Const conPropNotFoundError = 3270
    Set dbs = CurrentDb
    On Error GoTo Change_Err
    dbs.Properties(strPropName) = varPropValue
Change_Bye:
    Exit Function
Change_Err:
    If Err = conPropNotFoundError Then    ' Propriété non trouvée.
    Set prp = dbs.CreateProperty(strPropName, varPropType, varPropValue)
    dbs.Properties.Append prp
    Resume Next
Else
  ' --Erreur inconnue.
  Resume Change_Bye
End If
End Function

en appliquant cette fonction sur la zone de texte "sur perte focus" ou "sur entrer" et en choisissant un mot de passe pour désactiver et activer le mode exclusif.

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Private Sub protection_LostFocus()
On Error GoTo err_etiq
Const DB_Boolean As Long = 1
If Me![protection] = "******" Then
    ChangeProperty "AllowBypassKey", DB_Boolean, True
Else
If Me![protection] = "*****" Then
    ChangeProperty "AllowBypassKey", DB_Boolean, False
End If
End If
Exit Sub
err_etiq:
MsgBox Err.Number
 
End Sub

voila c'est fait .... que d'autre puisse le utilisé...