Discussion :

[gueguenk]

Bonjour

Ma base de données est composée de deux partie.
Partie A est référence en tant que "Référence dans la partie B

J'aimerais mettre un mot de passe sur la partie A.
Mais quand je le fait Access me demande le mot de passe à l'ouverture de la partie B.

Mon but étant de protéger le code de la partie A sans passer par un accde.

Il y a t'il moyen de contourné le mot de passe de la référence ?

[franckb74]

bonjour,


quand tu dis que ta base est composée de 2 parties tu veux dire qu'elle est fractionnée en dorsal et frontal ?

[loufab]

Bonjour,
Je pense que Gueguenk utilise un fichier ACCESS en tant que bibliothèque. Donc inscrite comme une référence dans VBE, comme une DLL.

Le mécanisme de la référence (EarlyBinding) n'est pas contrôlable, il est fait à l'ouverture d'ACCESS avant qu'un quelconque code/macro utilisateur soit joué. Il n'est doc pas possible de lui indiquer un mot de passe.

On utilise souvent à la place le LateBinding, on utilise un référence dans le code

Code :

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

1
2
dim obj as Object
set obj = createObject(.....)

Par contre je n'ai jamais testé son effet avec une bibliothèque ACCESS, protégée par mot de passe qui-plus-est.

Pourquoi ne veux/peux-tu pas utiliser la protection par accde ?

Cordialement,

[loufab]

Apparemment il n'est pas possible de faire du latebinding avec une base Access pour obtenir une vrai bibliothèque.
On peut toujours ouvrir une Xème instance d'access avec une base différente (avec ou sans mot de passe) mais elle ne se comportera pas comme une bibliothèque (pas d'interaction dans les 2 sens), elle restera une application autonome sur laquelle tu pourras cependant intervenir (consulter des données, exécuter du code...).
De la pure automation ACCESS/ACCESS.

Voici un bout de code :

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
Dim objAccess As Access.Application
 
Function OpenAccess()
Set objAccess = New Access.Application
objAccess.OpenCurrentDatabase "H:\Access\Application Access\GraphTek.accdb", False
!end function
 
 
Function CloseAccess()    
objAccess.Quit
Set objAccess = Nothing
End Function
 
Function LaunchCode()
objAccess.Run "CloseAllVbeWindows"
End Function

A mon avis, perdant la souplesse d'une bibliothèque, il faut vraiment avoir un besoin hyper spécifique pour faire ça. Pilotage d'une appli distante sur un réseau local par exemple.

Cordialement,