j'aimerais trouvé un moyen de lier toutes les tables d'une base de données
vers une autre par le code
j'ai trouvé le fichier solution.mdb qui donne une méthode pour le faire mais
il est plein d'erreur.
j'ai réussi à en corriger pas mal mais là je bloque
quelqu'un aurait il une version de cette fonction qui marche correctement ou
meme un autre moyen d'attacher mes tables.
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Jessy SEMPERE
Bonjour
Ceci devrait te convenir, la particularité de ce code et d'actualiser les attaches uniquement des tables se trouvant dans la 2ème base correspondant à l'argument de la fonction... *************************************************** Public Function ActualiserAttaches(strDb As String) As Boolean '** Actualisation des attaches de tables qui se trouve '** dans la base de donnée spécifiée dans "strDb" Dim db As Database Dim tdf As TableDef Dim tdfNew As TableDef
Set db = OpenDatabase(strDb) For Each tdf In db.TableDefs Set tdfNew = CurrentDb.TableDefs(tdf.Name) tdfNew.Connect = ";DATABASE=" & strDb Err = 0 On Error Resume Next tdfNew.RefreshLink If Err <> 0 Then: ActualiserAttaches = False: Exit Function Next ActualiserAttaches = True
End Function ***************************************************
-- @+ Jessy Sempere - Access MVP
------------------------------------ Site @ccess : http://access.jessy.free.fr/ Pour l'efficacité de tous : http://users.skynet.be/mpfa/ ------------------------------------ "Severine" a écrit dans le message news: bf2ujo$s7m$
Salut à Tous,
j'aimerais trouvé un moyen de lier toutes les tables d'une base de données vers une autre par le code
j'ai trouvé le fichier solution.mdb qui donne une méthode pour le faire mais
il est plein d'erreur. j'ai réussi à en corriger pas mal mais là je bloque
quelqu'un aurait il une version de cette fonction qui marche correctement ou
meme un autre moyen d'attacher mes tables.
Merci d'avance pour votre aide
Bonjour
Ceci devrait te convenir, la particularité de ce code et d'actualiser les
attaches uniquement des tables se trouvant dans la 2ème base
correspondant à l'argument de la fonction...
***************************************************
Public Function ActualiserAttaches(strDb As String) As Boolean
'** Actualisation des attaches de tables qui se trouve
'** dans la base de donnée spécifiée dans "strDb"
Dim db As Database
Dim tdf As TableDef
Dim tdfNew As TableDef
Set db = OpenDatabase(strDb)
For Each tdf In db.TableDefs
Set tdfNew = CurrentDb.TableDefs(tdf.Name)
tdfNew.Connect = ";DATABASE=" & strDb
Err = 0
On Error Resume Next
tdfNew.RefreshLink
If Err <> 0 Then: ActualiserAttaches = False: Exit Function
Next
ActualiserAttaches = True
End Function
***************************************************
--
@+
Jessy Sempere - Access MVP
news@access.fr.vu
------------------------------------
Site @ccess : http://access.jessy.free.fr/
Pour l'efficacité de tous :
http://users.skynet.be/mpfa/
------------------------------------
"Severine" <mwavivine@libertysurf.fr> a écrit dans le message news:
bf2ujo$s7m$1@news-reader2.wanadoo.fr...
Salut à Tous,
j'aimerais trouvé un moyen de lier toutes les tables d'une base de données
vers une autre par le code
j'ai trouvé le fichier solution.mdb qui donne une méthode pour le faire
mais
il est plein d'erreur.
j'ai réussi à en corriger pas mal mais là je bloque
quelqu'un aurait il une version de cette fonction qui marche correctement
ou
Ceci devrait te convenir, la particularité de ce code et d'actualiser les attaches uniquement des tables se trouvant dans la 2ème base correspondant à l'argument de la fonction... *************************************************** Public Function ActualiserAttaches(strDb As String) As Boolean '** Actualisation des attaches de tables qui se trouve '** dans la base de donnée spécifiée dans "strDb" Dim db As Database Dim tdf As TableDef Dim tdfNew As TableDef
Set db = OpenDatabase(strDb) For Each tdf In db.TableDefs Set tdfNew = CurrentDb.TableDefs(tdf.Name) tdfNew.Connect = ";DATABASE=" & strDb Err = 0 On Error Resume Next tdfNew.RefreshLink If Err <> 0 Then: ActualiserAttaches = False: Exit Function Next ActualiserAttaches = True
End Function ***************************************************
-- @+ Jessy Sempere - Access MVP
------------------------------------ Site @ccess : http://access.jessy.free.fr/ Pour l'efficacité de tous : http://users.skynet.be/mpfa/ ------------------------------------ "Severine" a écrit dans le message news: bf2ujo$s7m$
Salut à Tous,
j'aimerais trouvé un moyen de lier toutes les tables d'une base de données vers une autre par le code
j'ai trouvé le fichier solution.mdb qui donne une méthode pour le faire mais
il est plein d'erreur. j'ai réussi à en corriger pas mal mais là je bloque
quelqu'un aurait il une version de cette fonction qui marche correctement ou
