Discussion :

[Bernard67]

Bonsoir le forum,

Je reviens vers vous pour un problème de protection de base, que je n’arrive pas à résoudre.

J’ai une base A qui contient des tables d’archivages et des tables dont je me sers quotidiennement. Chaque table contient entre 100 000 et 350 000 enregistrements. Cette base est verrouillée par un mot de passe.

L’autre base B contient, requêtes, formulaires et des tables dont certaines sont attachées à la base A. Il m’est impossible d’exécuter les requêtes qui utilisent directement ou indirectement les tables attachées.

Y a-t-il un moyen pour que : lors de l’ouverture de la base B, je déverrouille la base A,
puis à la fermeture de la base B, je re-verrouille la base A. ?

Quelqu’un peut il me dire comment procéder, car je suis obligé de laisser la base A en libre accès, ce qui est très dangereux pour les données.

Merci pour l’aide et bonne soirée.
Cordialement

[User]

Bonsoir,

Pour verrouiller ta base A,
As-tu utilisé la commande "définir le mot de passe de la base de données" du menu sécurité ?

A+

[Bernard67]

Bonsoir USER,
Merci pour ton aide;
La base A est toujours verrouillée par un mot de passe que je connais.
Je desire deverrouillée automatiquement la base A quand j'ouvre la base B et reverrouillée la base A automatiquement quand je ferme la base B

[User]

C'est toi l'auteur de ces bases A et B et c'est toi qui a définit le mot de passe ???

En fait, j'ai peur que la protection soit au niveau des tables de la Base A (avec des sécurité utilisateur).

sinon, si c'est juste un mot de passe au niveau de la base,
tu déclare en haut d'un module indépendant la variable publique:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Public AppAccess As Access.Application

et je pensais à faire sur ouverture de ta base B:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
Set AppAccess = New Access.Application
'ouverture de la base A
AppAccess.OpenCurrentDatabase "c:\baseA.mdb", True, "mot de passe"

et à la fermeture de ta base B:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
AppAccess.Quit acQuitSaveNone ' ferme la base A
Set AppAccess = Nothing

A+

[Bernard67]

C'est un mot de passe qui protege l'ouverture de la base A

Tu mets tout le code dans un module de la base B ?

[User]

C'est un mot de passe qui protege l'ouverture de la base A

Oui met bon çà reste vague..

J'ai peur que ma solution ne convienne pas, mais bon tu peux toujours essayer.

Dans la base B:

Tu déclares la variable publique dans un module indépendant en haut.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Public AppAccess As Access.Application

Après il faut un minimum de connaissance Access:

si tu as un formulaire de démarrage, tu peux mettre le code qui suit sur l'évènement ouverture de ce formulaire:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Private Sub Form_Open(Cancel As Integer)
Set AppAccess = New Access.Application
'ouverture de la base A avec le mot de passe
AppAccess.OpenCurrentDatabase "c:\baseA.mdb", False, "mot de passe"
end sub

et après si tu as un bouton de commande pour fermer ta base B:
tu peux mettre ce code sur clic de ce bouton:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Private Sub Fermeture_Click()
AppAccess.Quit acQuitSaveNone ' ferme la base A
Set AppAccess = Nothing
End Sub

Sans aucune garantie que ça marche