Если испытывали трудности при линковке к базе TXT-файлов - это надо прочитать. Если есть решения получше - то надо предложить... :))
Светлана 12.07.2001
Странность при Link'е текстовых файлов Подметила такую странность у Access2000: если менять местонахождение линкованных файлов *.txt типа, каждому из которых установлены собственные спецификации, при обновлении линка Linked Table Manager запрашивает местонахождение, а потом линкует все файлы, используя спецификации только одного. Т.е. все таблицы получаются одного формата. Это я глючу или Access, может, кто подскажет? Интересно ведь. P.S. При обновлении линка спецификации указывать негде.
Nic 12.07.2001
У Tich была таже проблема... Самое плохое, что если его перелинковать программно, выдается ошибка, что записи спецификации не существует и все равно придется делать ручками спецификацию. Там даже позакрученей... Tich знает...
Светлана 12.07.2001
Однако... Ну, по идее, в моем случае это не проблема - пути фиксированные. Но баг заставляет задуматься...
Nic 12.07.2001
Не переживай :) Спишись с Tich'ем Он сделал "закат солнца вручную"
Tich 13.07.2001
А дело было так
Function MyTxtReLink(ConFP As String, ConFN As String) As Boolean 'условие - Database window должно быть доступно,иначе 'не будет доступен пункт Link Tables... 'ConFP-путь к текстовому файлу 'ConFN-имя текстового файла
If IsTablExist(ConFN) = True Then DoCmd.DeleteObject acTable, ConFN
'меню бар с пунктом File(быстрая кнопка F) и 'подпунктом Link Tables...(быстрая кнопка L) - можно 'настраивать по своему вкусу и соответственно 'изменить последовательности SendKeys If Application.CommandBars("My").Visible = False Then Application.CommandBars("My").Visible = True
'если программа работает 'вне фокуса - активируем ее, иначе все SendKeys 'достанутся активному приложению AppActivate "MyApplication"
'здесь предполагается что 'спецификация одна,иначе можно указать начало 'названия спецификации SendKeys "%(P)"
SendKeys "%(O)" SendKeys "{UP}{UP}{UP}~" SendKeys "%(F)" SendKeys "~", True If IsTablExist(ConFN) = True Then MyTxtReLink = True Else MyTxtReLink = False End If Ex_:
Exit Function
Err_: Debug.Print Err.Description MyTxtReLink = False GoTo Ex_ End Function
P.S.Возможно есть вариант и лучше,но пока удалось побороть аналогичную проблему так. Данный вариан для Access97 - для A2000 возможно нужна доп.отладка. Удачи!