Добрый день, товарищи!

Почитал форум, но так и не нашел ответ. Мне требуется делать перелинковку таблиц (txt и Excel) в базе (Access 2003) в зависимости от расположения папки с ними.

Нашел конструкцию, но она не работает.

p=PathSourceFolder ' путь к папке
For i = 1 To 4
    Select Case i
        Case 1
            TableName = "KD"
            PathName = "Excel 5.0;HDR=YES;IMEX=2;DATABASE=" & p & "\TP\T09.xls"
        Case 2
            TableName = "Local"
            PathName = "Excel 5.0;HDR=YES;IMEX=2;DATABASE=" & p & "\TP\T09.xls"
        Case 3
            TableName = "AN_Detailed_report"
            PathName = "Text;DSN=AN_Detailed_report Link Specification1;F3MT=Delimited;HDR=NO;IMEX=2;CharacterSet=850;DATABASE=" & p & "\AN"
        Case 4
            TableName = "Bill_Flow"
            PathName = "Text;DSN=Bill_Flow Link Specification;FMT=Delimited;HDR=NO;IMEX=2;CharacterSet=850;DATABASE=" & p & "\AN"
    End Select
    
    CurrentDb.TableDefs(TableName).Properties("Connect") = PathName
    CurrentDb.TableDefs(TableName).RefreshLink
Next i

в этой строчке CurrentDb.TableDefs(TableName).Properties("Connect") = PathName присваивание проходит без ошибок, но по факту значение не присваивается, и перелинковка не происходит.

Не подскажете в чем проблема?

http://www.sql.ru/forum/1079592/perelinkovka-faylov