Bonjour à tous.
J'ai un petit souci en vba sous access... J'ai le code suivant:
Je voudrais donc mettre à jour un lien vers un fichier texte... Malheureusement il me dit qu'il ne connait pas
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16 Set objDbEngine = CreateObject("DAO.DBEngine.36") Set objWsp = objDbEngine.Workspaces(0) Set objDb = objWsp.OpenDatabase(originPath, -1) For lngCpt = (objDb.TableDefs.Count - 1) To 0 Step -1 Set objTblD = objDb.TableDefs(lngCpt) Debug.Print originPath + " " + filename + " " + tablename + ": " + objTblD.Name + " " + objTblD.Connect If (objTblD.Name = tablename) And (objTblD.Connect <> "") Then objTblD.Connect = "Text;DSN=TRP Link Specification;FMT=Fixed;HDR=NO;IMEX=2;CharacterSet=437;DATABASE=" + "E:\Working Folder\" 'filename objTblD.RefreshLink End If Set objTblD = Nothing Next lngCpt objDb.Close objWsp.Close Set objDb = Nothing Set objWsp = Nothingsnif snif.TRP Link Specification
J'ai vérifié c'est le nom qui est utilisé quand je crée la définition de la table...
Quelqu'un peut-il me mettre sur la voie de la réussite?
Partager