Bonjour,
J'essaie de rendre la mise à jour la plus facile pour l'utilisateur d'une base de données Access. Les données qui permettent la mise à jour sont en fichiers .csv, et sont liées à l'application Access. Avant de faire la mise à jour des tables access comme tel, je voudrais, par un bouton, faire effectuer un rafraîchissement des tables liées.
Loin d'être programmateur moi-même, j'ai trouvé du code ici et là (souvent ici...), et je me débrouille habituellement pas mal. Mais là je n'arrive pas à contourner l'erreur obtenue: "Erreur d'exécution '3170': Pilot ISAM introuvable".
Voici le code que j'utilise (en rouge, la ligne surlignée par le débogueur):
Et 2e petite question: si le fournisseur des données pouvait me donner les données en .xls, est-ce que ce serait préférable, ou il n'y a pas de différence entre les formats pour cette utilité?
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13 Function relinkTables() Dim tdf As DAO.TableDef For Each tdf In CurrentDb.TableDefs ' check if table is a linked table If Len(tdf.Connect) > 0 Then tdf.Connect = "CurrentProject.Path" tdf.RefreshLink End If Next End Function
Merci de votre aide précieuse!
Louis
Partager