Ajout d'un mot de passe sur une base liée

Bonsoir,

Quand on attache une table depuis une base Access source protégée par un mot de passe, ce mot de passe est demandé au moment où on l'attache.

Mais quand ce mot de passe est ajouté après coup dans la base source, alors que les tables sont déjà attachées dans la base cible, ces tables attachées deviennent inaccessibles. Comment renseigner le mot de passe dans les tables attachées dans la base cible ?

Merci pour votre aide

Bonjour,

Il suffit de supprimer les liens et les refaire en cochant "mémoriser le mot de passe"

Citation:

---

Envoyé par nico84

Bonjour,

Il suffit de supprimer les liens et les refaire en cochant "mémoriser le mot de passe"

---

Oui je n'ignorais pas cette solution mais c'est ce que je voulais éviter.

C'est trop lourd quand il y a beaucoup de tables liées et que l'on veut modifier le mot de passe régulièrement.

Citation:

---

Envoyé par Daejung

C'est trop lourd quand il y a beaucoup de tables liées et que l'on veut modifier le mot de passe régulièrement.

---

Il est possible de mettre à jour le lien en VBA avec un code (non testé car extrait d'une procédure qui fait plein d'autres trucs) du type :

Code:

---

1 2 3 4 5 6 7 8 9 10

public sub maj_lien(table as string, pwd as string) 'mise à jour du lien vers la table externe For Each TableEnCours In CurrentDb.TableDefs If TableEnCours.Name Like table Then TableEnCours.connect = "MS Access;PWD=" & pwd & ";DATABASE=\\monserveur\madorsale.accdb" TableEnCours.RefreshLink Exit For End If Next End sub

---

Ok Merci je vais tester cela.

C'est quand même bizarre qu'Access ne redemande pas le mot de passe et se contente de ne plus établir la connexion

Si on ne coche pas "mémoriser le mot de passe" alors il le redemande à chaque fois...

C'est à quel niveau ?

je pourrais peut-être désactiver le stockage alors.

Je viens de faire un test en liant une nouvelle table : on ne me demande pas si je veux stocker le mot de passe.

Citation:

---

Envoyé par Daejung

Je viens de faire un test en liant une nouvelle table : on ne me demande pas si je veux stocker le mot de passe.

---

Ca doit être réservé aux tables non access alors, désolé

J'ai adapté ce code en utilisant également du code trouvé ailleurs pour récupérer le chemin de la dorsale, qui ne change pas.
Sub maj_liens(Pwd As String) est appelé par une formulaire de saisie du nouveau mot de passe

Cela fonctionne

Code:

---

1 2 3 4 5 6 7 8 9 10

Public Sub maj_liens(Pwd As String) 'mise à jour du lien vers la table externe   For Each tableencours In CurrentDb.TableDefs If CheminDorsale(tableencours.Name) <> "" Then tableencours.Connect = "MS Access;PWD=" & Pwd & ";DATABASE=" & CheminDorsale(tableencours.Name) tableencours.RefreshLink End If Next End Sub

---

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

' --- ' CHEMIN DE LA BASE DORSALE ' --- Function CheminDorsale(ByVal strTable As String) As String Dim strChemin As String   On Error Resume Next strChemin = CurrentDb.TableDefs(strTable).Connect If UCase(Left(strChemin, 10)) = ";DATABASE=" Then strChemin = Mid(strChemin, 11) End If   ' Valeur de retour CheminDorsale = strChemin End Function

---

Merci encore

Attention, il y a des tables système et d'autres locales, il faut réserver cette boucle aux tables attachées !

Bon il est probable que cela plante pour les autres...

Citation:

---

Envoyé par nico84

Attention, il y a des tables système et d'autres locales, il faut réserver cette boucle aux tables attachées !

Bon il est probable que cela plante pour les autres...

---

C'est réservé aux tables attachées puisque je ne traite que celles qui sont déjà liées à une dorsale