1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20
| Sub MAJLienTableAttachée(sLinkedTableName As String, sDBFullName As String)
'sLinkedTableName = nom de la table attachée, supposé le même que celui de la table source liée
'sDBFullName = nom et chemin complet du fichier de base de données contenant la table (supposé ici non protégé par un mot de passe)
Const cstPrefixeAttache As String = ";DATABASE="
Dim oTbl As DAO.TableDef
Dim odb As DAO.Database
Set odb = CurrentDb
Set oTbl = odb.TableDefs(sLinkedTableName)
oTbl.Connect = cstPrefixeAttache & sDBFullName
oTbl.RefreshLink
Set odb = Nothing
End Sub |
Partager