AlainTech Pas trouvé? Cherche encore! | Il y a bien longtemps que je n'ai plus touché à Access mais j'ai retrouvé un de mes vieux codes qui sert à reconnecter des bases quand on a déplacé les fichiers.
Tu peux, peut-être, t'en inspirer.
Dim sCurPath As String, IsaPath As String, HeadPath As String
Dim Response As Integer, I As Integer
Dim Msg As String
CR$ = Chr$(13)
sCurPath = Left$(CurrentDb.Name, InStr(1, CurrentDb.Name, Dir$(CurrentDb.Name), 1) - 1)
If (Dir$(sCurPath & "Tabisa.mdb" ) = "" ) Then
Msg = "Le fichier TABISA.MDB doit se trouver" & CR$
Msg = Msg & "dans le même répertoire que ISABEL.MDB"
Response = MsgBox(Msg, 48)
DoCmd.Close
ElseIf (Dir$(sCurPath & "Tabhead.mdb" ) = "" ) Then
Msg = "Le fichier TABHEAD.MDB doit se trouver" & CR$
Msg = Msg & "dans le même répertoire que ISABEL.MDB"
Response = MsgBox(Msg, 48)
DoCmd.Close
Else
IsaPath = sCurPath & "Tabisa.mdb"
HeadPath = sCurPath & "Tabhead.mdb"
End If
Set DB = CurrentDb
For I = 0 To DB.TableDefs.Count - 1
Set Defs = DB.TableDefs(I)
If Defs.Connect Like "*TABHEAD.MDB*" Then
Defs.Connect = ";DATABASE=" & HeadPath
Defs.RefreshLink
ElseIf Defs.Connect Like "*TABISA.MDB*" Then
Defs.Connect = ";DATABASE=" & IsaPath
Defs.RefreshLink
End If
Next I
Set DBIsa = OpenDatabase(IsaPath)
Set DBHead = OpenDatabase(HeadPath)
Set TIsa = DBIsa.OpenRecordset("Isabel" )
Set TTemp = DBIsa.OpenRecordset("Temp" )
Set THead = DBHead.OpenRecordset("Head_Off" )
Set TTci = DBHead.OpenRecordset("Tci" ) |
Message édité par AlainTech le 26-09-2005 à 14:09:26
---------------
Si on vous donne une info qui marche, DITES-LE!!!! ------ Si vous trouvez seul, AUSSI, votre solution peut servir à d'autres! ------ Je dois la majorité de mes connaissances à mes erreurs!
|
