Bonjour à tous !

j'aimerais savoir si il est possible d'ouvrir la base actuelle en mode exclusif, faire une manipulation, puis ensuite la ré-ouvrir en mode normal? Ceci afin de changer le mot de passe pour accéder à la base de données.

Car bien que j'ouvre la base de données en mode exclusif, grâce au tuto de developpez.net, après avoir appelé la fonction j'ai le message box qui m'affiche comme quoi la base de données est bien ouverte en mode exclusif, mais à la ligne suivante, on me dit que la base de données n'est pas ouverte en mode exclusif ... je n'arrive pas trop à comprendre

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Private Sub Commande0_Click()
'On Error GoTo err
Dim MaBase As Database
 
Set MaBase = DBEngine(0).OpenDatabase("C:\Documents and Settings\xxx\Bureau\bd1.mdb", True)
'ici appel de la fonction qui ouvre la bdd en mode exclusif
[Mes Modules].Ouvrir_Base_Exclusif
MaBase.NewPassword "", "nouveau"
MsgBox "Mot de passe changé"
 
fin:
Set MaBase = Nothing
Exit Sub
 
err:
Select Case err.Number
    Case 3031
        MsgBox "Mot de passe non valide", vbCritical, "Sécurité"
    Case Else
        MsgBox "Une erreur est survenue pendant le changement du mot de passe", _
            vbCritical, "Erreur"
End Select
Resume fin
End Sub
Merci d'avance à ceux qui pourront m'aider.