Discussion :

[willytito]

Bonjour à tous,

Je travail avec Access 2003
Sous windows xp pro

Le code suivant me permet de lier mes tables

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 db As Database
Dim t As TableDef
 
On Error GoTo Err_LierTable
 
 
Set db = CurrentDb
 
For Each t In db.TableDefs
 
 
    If t.Connect <> "" Then
        t.Connect = ";DATABASE=" & Txt_ChemBdd.Value
        t.RefreshLink
    End If
Next t

Ce code fonctionne bien

Mais j'ai un problème
Mon fichier .mdb se trouve dans un répertoire sur un serveur (Windows 2003)

Pour accéder à ce répertoire, il faut entrer un Identifiant et un mot de passe
J'aimerais savoir si c'est possible d'intingrer cet identifiant et ce mot de passe dans la propriété Connect si oui comment dois-je procéder ?

Si vous avez un autre moyen pour contourner se problème je suis prenneur

Merci
Willy

[Jean-Philippe André]

bonjour,
la FAQ donne un exemple concret :
http://access.developpez.com/faq/?pa...kTablePassword

[willytito]

J'ai regardé le lien, mais ça ne correpond pas exactement à ce que je voulais.
En fait l'identifiant et le mot de passe n'est pas lié à la base donnée mais au repertoire sur le serveur
En passant par favoris réseau, on accède au répertoire et pour y entrer, il faut saisir l'identifiant et le mot de passe.
Peut-on en vba initialiser ces champs (entrer l'identifiant et le mot de passe par le code)

En espérant que j'ai été clair

Merci

Willy