mon idx =E0 toujours la valeur 0 mais pourquoi ???je=20
suppose que c pour =E7a que le chemin de mes tables li=E9 est=20
tjs le m=EAme
Function fCheckLinks()
Dim rst As DAO.Recordset
Set dbs =3D CurrentDb()
On Error Resume Next
nbTbl =3D dbs.TableDefs.Count
For idx =3D 0 To nbTbl - 1
Set TblDef =3D dbs.TableDefs(idx)
If TblDef.Attributes =3D dbAttachedTable Then
Set rst =3D dbs.OpenRecordset(TblDef.Name)
End If
Next idx
If Err <> 0 Then
fRefreshLinks
End If
rst.Close
dbs.Close
Set rst =3D Nothing
Set dbs =3D Nothing
End Function
Sub fRefreshLinks()
Dim newpath As String
Dim tdf As TableDef
Dim tdfNew As TableDef
On Error Resume Next
newpath =3D OpenFilebase("")
=20
For idx =3D 0 To nbTbl - 1
Set TblDef =3D dbs.TableDefs(idx)
Set tdfNew =3D CurrentDb.TableDefs(tdf.Name)
If TblDef.Connect <> "" Then
TblDef.Connect =3D ";DATABASE=3D" & newpath=20
& ";UID=3D;PWD=3D"
TblDef.RefreshLink
'tdfNew.Connect =3D ";DATABASE=3D" & newpath
'tdfNew.RefreshLink
End If
Next idx
' MsgBox Err
If Err =3D 0 Then
MsgBox "Modification du chemin des tables r=E9ussit !",=20
vbInformation + vbOKOnly, "Welcome !"
Exit Sub
Else
If MsgBox("Les Tables n'ont pas =E9t=E9 trouv=E9es " _
& "dans la base s=E9lectionn=E9e, voulez-vous essayer=20
=E0 nouveau ?", _
vbExclamation + vbYesNo, "S=E9lection non Valide")=20
=3D vbNo Then
dbs.Close
Set dbs =3D Nothing
Set TblDef =3D Nothing
MsgBox "Au Revoir !", vbCritical +=20
vbOKOnly, _
"Fermeture de l'application"
DoCmd.Quit
Else
dbs.Close
Set dbs =3D Nothing
Set TblDef =3D Nothing
Call fCheckLinks
End If
End If
End Sub
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
Damien Mermoz
Bonjour Ludo6625 Peux tu arrêter de flooder s'il te plait ? ça me fatigue et surtout c'est très génant lorsqu'on fait une recherche dans les archives quand les réponses d'un même problème se trouvent sur plusieurs fils de discussion. Tu peux faire confiance aux personnes qui suivent ce news, ils regardent les réponses quand tu restes dans ton fil.
plus d'info ici http://users.skynet.be/mpfa/
Merci. A + Damien. "ludo6625" a écrit dans le message de news:033a01c3dc21$d322a380$ mon idx à toujours la valeur 0 mais pourquoi ???je suppose que c pour ça que le chemin de mes tables lié est tjs le même Function fCheckLinks() Dim rst As DAO.Recordset Set dbs = CurrentDb()
On Error Resume Next nbTbl = dbs.TableDefs.Count
For idx = 0 To nbTbl - 1 Set TblDef = dbs.TableDefs(idx) If TblDef.Attributes = dbAttachedTable Then Set rst = dbs.OpenRecordset(TblDef.Name) End If Next idx
If Err <> 0 Then fRefreshLinks End If
rst.Close dbs.Close Set rst = Nothing Set dbs = Nothing
End Function
Sub fRefreshLinks()
Dim newpath As String Dim tdf As TableDef Dim tdfNew As TableDef On Error Resume Next
newpath = OpenFilebase("")
For idx = 0 To nbTbl - 1 Set TblDef = dbs.TableDefs(idx) Set tdfNew = CurrentDb.TableDefs(tdf.Name) If TblDef.Connect <> "" Then TblDef.Connect = ";DATABASE=" & newpath & ";UID=;PWD=" TblDef.RefreshLink 'tdfNew.Connect = ";DATABASE=" & newpath 'tdfNew.RefreshLink End If Next idx ' MsgBox Err If Err = 0 Then MsgBox "Modification du chemin des tables réussit !", vbInformation + vbOKOnly, "Welcome !" Exit Sub Else If MsgBox("Les Tables n'ont pas été trouvées " _ & "dans la base sélectionnée, voulez-vous essayer à nouveau ?", _ vbExclamation + vbYesNo, "Sélection non Valide") = vbNo Then dbs.Close Set dbs = Nothing Set TblDef = Nothing MsgBox "Au Revoir !", vbCritical + vbOKOnly, _ "Fermeture de l'application" DoCmd.Quit Else dbs.Close Set dbs = Nothing Set TblDef = Nothing Call fCheckLinks End If End If End Sub
Bonjour Ludo6625
Peux tu arrêter de flooder s'il te plait ? ça me fatigue et surtout c'est
très génant lorsqu'on fait une recherche dans les archives quand les
réponses d'un même problème se trouvent sur plusieurs fils de discussion.
Tu peux faire confiance aux personnes qui suivent ce news, ils regardent
les réponses quand tu restes dans ton fil.
plus d'info ici
http://users.skynet.be/mpfa/
Merci.
A +
Damien.
"ludo6625" <anonymous@discussions.microsoft.com> a écrit dans le message de
news:033a01c3dc21$d322a380$a001280a@phx.gbl...
mon idx à toujours la valeur 0 mais pourquoi ???je
suppose que c pour ça que le chemin de mes tables lié est
tjs le même
Function fCheckLinks()
Dim rst As DAO.Recordset
Set dbs = CurrentDb()
On Error Resume Next
nbTbl = dbs.TableDefs.Count
For idx = 0 To nbTbl - 1
Set TblDef = dbs.TableDefs(idx)
If TblDef.Attributes = dbAttachedTable Then
Set rst = dbs.OpenRecordset(TblDef.Name)
End If
Next idx
If Err <> 0 Then
fRefreshLinks
End If
rst.Close
dbs.Close
Set rst = Nothing
Set dbs = Nothing
End Function
Sub fRefreshLinks()
Dim newpath As String
Dim tdf As TableDef
Dim tdfNew As TableDef
On Error Resume Next
newpath = OpenFilebase("")
For idx = 0 To nbTbl - 1
Set TblDef = dbs.TableDefs(idx)
Set tdfNew = CurrentDb.TableDefs(tdf.Name)
If TblDef.Connect <> "" Then
TblDef.Connect = ";DATABASE=" & newpath
& ";UID=;PWD="
TblDef.RefreshLink
'tdfNew.Connect = ";DATABASE=" & newpath
'tdfNew.RefreshLink
End If
Next idx
' MsgBox Err
If Err = 0 Then
MsgBox "Modification du chemin des tables réussit !",
vbInformation + vbOKOnly, "Welcome !"
Exit Sub
Else
If MsgBox("Les Tables n'ont pas été trouvées " _
& "dans la base sélectionnée, voulez-vous essayer
à nouveau ?", _
vbExclamation + vbYesNo, "Sélection non Valide")
= vbNo Then
dbs.Close
Set dbs = Nothing
Set TblDef = Nothing
MsgBox "Au Revoir !", vbCritical +
vbOKOnly, _
"Fermeture de l'application"
DoCmd.Quit
Else
dbs.Close
Set dbs = Nothing
Set TblDef = Nothing
Call fCheckLinks
End If
End If
End Sub
Bonjour Ludo6625 Peux tu arrêter de flooder s'il te plait ? ça me fatigue et surtout c'est très génant lorsqu'on fait une recherche dans les archives quand les réponses d'un même problème se trouvent sur plusieurs fils de discussion. Tu peux faire confiance aux personnes qui suivent ce news, ils regardent les réponses quand tu restes dans ton fil.
plus d'info ici http://users.skynet.be/mpfa/
Merci. A + Damien. "ludo6625" a écrit dans le message de news:033a01c3dc21$d322a380$ mon idx à toujours la valeur 0 mais pourquoi ???je suppose que c pour ça que le chemin de mes tables lié est tjs le même Function fCheckLinks() Dim rst As DAO.Recordset Set dbs = CurrentDb()
On Error Resume Next nbTbl = dbs.TableDefs.Count
For idx = 0 To nbTbl - 1 Set TblDef = dbs.TableDefs(idx) If TblDef.Attributes = dbAttachedTable Then Set rst = dbs.OpenRecordset(TblDef.Name) End If Next idx
If Err <> 0 Then fRefreshLinks End If
rst.Close dbs.Close Set rst = Nothing Set dbs = Nothing
End Function
Sub fRefreshLinks()
Dim newpath As String Dim tdf As TableDef Dim tdfNew As TableDef On Error Resume Next
newpath = OpenFilebase("")
For idx = 0 To nbTbl - 1 Set TblDef = dbs.TableDefs(idx) Set tdfNew = CurrentDb.TableDefs(tdf.Name) If TblDef.Connect <> "" Then TblDef.Connect = ";DATABASE=" & newpath & ";UID=;PWD=" TblDef.RefreshLink 'tdfNew.Connect = ";DATABASE=" & newpath 'tdfNew.RefreshLink End If Next idx ' MsgBox Err If Err = 0 Then MsgBox "Modification du chemin des tables réussit !", vbInformation + vbOKOnly, "Welcome !" Exit Sub Else If MsgBox("Les Tables n'ont pas été trouvées " _ & "dans la base sélectionnée, voulez-vous essayer à nouveau ?", _ vbExclamation + vbYesNo, "Sélection non Valide") = vbNo Then dbs.Close Set dbs = Nothing Set TblDef = Nothing MsgBox "Au Revoir !", vbCritical + vbOKOnly, _ "Fermeture de l'application" DoCmd.Quit Else dbs.Close Set dbs = Nothing Set TblDef = Nothing Call fCheckLinks End If End If End Sub
ludo6625
Excuser moi je ne savait pas que des personnes faisait des recherches sur les messages..
Toutes mes excuses et merci pour tout les conseils donnés sur ce forum
Excuser moi je ne savait pas que des personnes faisait
des recherches sur les messages..
Toutes mes excuses et merci pour tout les conseils donnés
sur ce forum
Excuser moi je ne savait pas que des personnes faisait des recherches sur les messages..
Toutes mes excuses et merci pour tout les conseils donnés sur ce forum
Raymond [mvp]
C'est ce que qu'il faudrait faire en premier . adresse des archives : http://groups.google.com/groups?meta=group%3Dmicrosoft.public.fr.access&btnG=Recherche+dans+MPFA
-- @+ 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:093a01c3dc3a$fba38f40$ Excuser moi je ne savait pas que des personnes faisait des recherches sur les messages..
Toutes mes excuses et merci pour tout les conseils donnés sur ce forum
C'est ce que qu'il faudrait faire en premier .
adresse des archives :
http://groups.google.com/groups?meta=group%3Dmicrosoft.public.fr.access&btnG=Recherche+dans+MPFA
--
@+
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:093a01c3dc3a$fba38f40$a501280a@phx.gbl...
Excuser moi je ne savait pas que des personnes faisait
des recherches sur les messages..
Toutes mes excuses et merci pour tout les conseils donnés
sur ce forum
C'est ce que qu'il faudrait faire en premier . adresse des archives : http://groups.google.com/groups?meta=group%3Dmicrosoft.public.fr.access&btnG=Recherche+dans+MPFA
-- @+ 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:093a01c3dc3a$fba38f40$ Excuser moi je ne savait pas que des personnes faisait des recherches sur les messages..
Toutes mes excuses et merci pour tout les conseils donnés sur ce forum
