Discussion :

[Mors_Ubyte]

Hello
Je souhaiterais que ma base de données lie des tables au démarrage, il faut savoir que pour chaque démarrage la base de donnée source peut être différente.

J'ai consulté les FAQ et j'ai trouvé que pour importer des tables (ce qui est interressant aussi).

Pouvez vous m'aider.

Merci d'avance.

[cafeine]

Hello,

ci dessous un exemple de code d'ajout de table liée :

Option Explicit


Function AddTable(ByVal srcTable As String, ByVal linkTable As String)
    Dim tblTable As DAO.TableDef
    Set tblTable = CurrentDb.CreateTableDef(linkTable)

    tblTable.Attributes = dbAttachSavePWD
    tblTable.SourceTableName = srcTable
    tblTable.Connect = "ODBC;DSN=Oracle FINPROD;UID=******;PWD=*****;SERVER=PANORAMIX;DATABASE="
    CurrentDb.TableDefs.Append tblTable
    
    Set tblTable = Nothing
End Function

[marot_r]

Ici du code si tu veux juste rafraichir des liens existants. Le secret est dans la propriété 'Connect' du tableDef. Celui-ci relinke avec une base Access sans mot de passe.

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
 
Public Sub RelinkerTable(prmNomCompletBaseLiee As String)
    Dim t As TableDef
    Dim db As Database: Set db = CodeDb
    Dim numFichierIni As Integer
 
    For Each t In db.TableDefs
        If t.Connect <> "" Then
            t.Connect = ";DATABASE=" & prmNomCompletBaseLiee
            t.RefreshLink
        End If
    Next t
    db.Close: Set db = Nothing
 
End Sub

[Mors_Ubyte]

Cafeine, je suis vraiment nul car je n'y arrive pas.
Je présise exactement ce que je veut faire :

• - Je travaille en access 2003, donc type =odbc ok?
  - Ma table s'appelle T_Feux, elle se trouve dans une base dont le chemin est V:\VT\VT_TARISSA.mdb
  - J'accède à ce disque sans login.

Merci de bien vouloir encore répondre

[cafeine]

Vu ton cas, tu devrais plutôt faire une table attachée manuellement puis utiliser le code de marot_r pour rafraichir le lien à chaque ouverture ...

[marot_r]

Le code fourmit par Caféine permet de se connecter à une base Oracle d'où la liason ODBC. Pour une base Access ce n'est pas nécessaire et cela ressemble plus à mon code.

De plus le code de Cafeine créer la table dans ta base Appli.

Le plus simple est que tu fasse un link à la main sur ta base puis tu lance dans un module le pg suivant dans ta base Appli.

Code :

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

1
2
3
4
5
6
7
8
9
 
private sub AfficherLink
  dim t as tabledef
  for each t in currentdb.tabledefs
    if t.connect<>"" then
      debug.print t.name, t.connect
   end if
  next t
end sub

Ca va t'afficher toute les chaines de link pour toutes tes tables liées. Tu n'a plus qu'à regarder comme ta chaine est structurée et changer l'élément qui doit être modifier soit par un refresh (voir mon code) soit par une création (voir le code Cafeine).

A+

[Mors_Ubyte]

ok je vois çà demain , et je vous tiens au courant.
Sur ce bonne nuit 8) et merci

[Mors_Ubyte]

je n'arrive pas à définir la deuxième variable de la fonction RelinkerTable ()

Voici les codes :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Private Sub AfficherLink()
  Dim t As TableDef
  Dim Liaison As String
  For Each t In CurrentDb.TableDefs
    If t.Connect <> "" Then
      Debug.Print t.Name, t.Connect
 
        Liaison = t.Name & t.Connect
   [color=red]RelinkerTable (Liaison ,t)[/color]
   End If
  Next t
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
 
 
Public Sub RelinkerTable(prmNomCompletBaseLiee As String, NomTable As TableDef)
 
    Dim db As Database: Set db = CodeDb
    Dim numFichierIni As Integer
             NomTable.Connect = prmNomCompletBaseLiee
 
        If NomTable.Connect <> "" Then
 
            NomTable.RefreshLink
        End If
 
    db.Close: Set db = Nothing
 
End Sub

[Mors_Ubyte]

J'avais mal adapté le code précédent.
Maintenant çà répond à mes besoins, merci.

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
Public Sub RelinkerTable()
    Dim t As TableDef
    Dim db As Database: Set db = CodeDb
    Dim Agent As String
 
    Agent = "Nom_Qui_Varie_En_Fonction_De_L'agent_Concerné"
    For Each t In db.TableDefs
 
        If t.Connect <> "" Then
            t.Connect = ";DATABASE=V:\VT\VT_" & Agent & ".mdb"
            t.RefreshLink
        End If
    Next t
    db.Close: Set db = Nothing
 
End Sub

A bientôt.