Recherche
Recherche
Les mémos
 ↑  
Je débute...
Visites

 992117 visiteurs

 3 visiteurs en ligne

Rafraîchissement automatique des liaisons des tables attachées à base locale.

Cette méthode est interessante lorsque l'on transporte régulièrement une base installée sur un support amovible comme une clé USB.

Appelez la fonction par une macro "AutoExec" en renseignant le nom de la base dorsale (backend).

Function fnTableLink(strBase As String)
    On Error GoTo ErrTableLink
    Dim db As DAO.Database
    Dim strBackEnd As String
    Dim i As Integer
    
    Set db = CurrentDb()
    strBackEnd = Left(db.Name, Len(db.Name) - Len(Dir(db.Name))) & strBase
    
    For i = 0 To db.TableDefs.Count - 1
        If db.TableDefs(i).Connect <> "" Then
            If Mid(db.TableDefs(i).Connect, 11) <> strBackEnd Then
                db.TableDefs(i).Connect = ";database=" & strBackEnd
                db.TableDefs(i).RefreshLink
            End If
        End If
    Next i
    
ExitTableLink:
    db.Close
    Set db = Nothing
    Exit Function
    
ErrTableLink:
    MsgBox "Une erreur est survenue lors de la connexion. ", vbCritical, "Connexion"
    Resume ExitTableLink
End Function

Catégorie : Les mémos - Tables
Page lue 6889 fois