tdfNew.Connect =3D ";DATABASE=3D" & strDb la ligne est=20
d=E9boguer en objet n'est plus d=E9finit alors qu'il=20
m'indique une valeur quand je passe sur la zone dans le=20
code ???
Code pour info :
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 db As DAO.Database
Dim tdf As TableDef
Dim tdfNew As TableDef
=20
=20
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
'*******************************************
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
Raymond [mvp]
RE-Bonjour ludo
il me semble que tu a pris les procédures de Arnaud sur memoaccess.free.fr ? si oui, je ne retrouve pas chez toi exactement ce qu'il a mis chez lui et si non expire toi de la sienne.
-- @+ Raymond Access MVP http://access.seneque.free.fr/ http://access2003.free.fr/ http://users.skynet.be/mpfa/ pour débuter sur le forum
"ludo6625" a écrit dans le message de news:076901c3dc1c$b5569050$ tdfNew.Connect = ";DATABASE=" & strDb la ligne est déboguer en objet n'est plus définit alors qu'il m'indique une valeur quand je passe sur la zone dans le code ???
Code pour info : 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 db As DAO.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 '*******************************************
RE-Bonjour ludo
il me semble que tu a pris les procédures de Arnaud sur memoaccess.free.fr ?
si oui, je ne retrouve pas chez toi exactement ce qu'il a mis chez lui et
si non expire toi de la sienne.
--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum
"ludo6625" <anonymous@discussions.microsoft.com> a écrit dans le message de
news:076901c3dc1c$b5569050$a601280a@phx.gbl...
tdfNew.Connect = ";DATABASE=" & strDb la ligne est
déboguer en objet n'est plus définit alors qu'il
m'indique une valeur quand je passe sur la zone dans le
code ???
Code pour info :
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 db As DAO.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
'*******************************************
il me semble que tu a pris les procédures de Arnaud sur memoaccess.free.fr ? si oui, je ne retrouve pas chez toi exactement ce qu'il a mis chez lui et si non expire toi de la sienne.
-- @+ Raymond Access MVP http://access.seneque.free.fr/ http://access2003.free.fr/ http://users.skynet.be/mpfa/ pour débuter sur le forum
"ludo6625" a écrit dans le message de news:076901c3dc1c$b5569050$ tdfNew.Connect = ";DATABASE=" & strDb la ligne est déboguer en objet n'est plus définit alors qu'il m'indique une valeur quand je passe sur la zone dans le code ???
Code pour info : 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 db As DAO.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 '*******************************************
