Public Function ActualiserAttaches(strDb As String) As=20
Boolean
'** Actualisation des attaches de tables qui se trouve
'** dans la base de donn=E9e sp=E9cifi=E9e dans "strDb"
Dim db As Database
Dim tdf As TableDef
Dim tdfNew As TableDef
Set db =3D OpenDatabase(strDb)
For Each tdf In db.TableDefs
Set tdfNew =3D CurrentDb.TableDefs(tdf.Name)
tdfNew.Connect =3D ";DATABASE=3D" & strDb
Err =3D 0
On Error Resume Next
tdfNew.RefreshLink
If Err <> 0 Then: ActualiserAttaches =3D False:=20
Exit Function
Next
ActualiserAttaches =3D True
End Function
*******************************************
Et si tu arretait de "chater" et que tu reste dans le fils tant que ce n'est pas résolu ?
hein ? qu'en dis tu ?
-- A+ Pierre (3stone) Access MVP ----------------------------- http://users.skynet.be/mpfa -----------------------------
Gaël Schmitt [MS]
Bonsoir,
Tout est à mettre dans la variable strdb. strdb="C:tototiti.mdb"
Gael. "ludo6625" a écrit dans le message de news:011201c3db84$10d86910$ 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 *******************************************
Bonsoir,
Tout est à mettre dans la variable strdb.
strdb="C:tototiti.mdb"
Gael.
"ludo6625" <anonymous@discussions.microsoft.com> a écrit dans le message de
news:011201c3db84$10d86910$a101280a@phx.gbl...
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
*******************************************
Tout est à mettre dans la variable strdb. strdb="C:tototiti.mdb"
Gael. "ludo6625" a écrit dans le message de news:011201c3db84$10d86910$ 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 *******************************************