Discussion :

[Daejung]

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

[nico84]

Bonjour,

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

[Daejung]

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.

[nico84]

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 :

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

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

[Daejung]

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

[nico84]

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

[Daejung]

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.

[nico84]

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é

[Daejung]

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 :

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

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 :

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
 
' ---
' 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

[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...

[Daejung]

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