Правильное задание пути к файлу

@ankan · Регистрация: 28.09.2012

Студворк — интернет-сервис помощи студентам

Форумчане, доброго времени суток!

Прошу помочь решить проблему.Есть код(ы) слепленный мной из различных, разработанных форумчанами в различных постах.
Как нужно он не работает. Нужно, что бы в аксесс загружался файл по указанному (изменяемому) пути
т.е. сначала кнопкой "Найти папку" выбирается путь и нужный файл, затем кнопкой "импорт" импортируется в Аксесс. Имя файла также изменяется (не меняется расширение ".xml").У меня выдает ошибки- см. скрины. Cаму базу выкладываю.
Прошу Вашей помощи в анализе и поиске решения.(правке кода)
Спасибо!

@Eugene-LS · 13.02.2018, 09:37

Сообщение от ankan

Прошу Вашей помощи в анализе и поиске решения.(правке кода)

В выражении:

Visual Basic
1
path = "Forms![frmProv_Yctan_Komp_Na_Yctan]![PathDB]"

- Явно лишние кавычки, исправьте на :

Visual Basic
1
path = Forms![frmProv_Yctan_Komp_Na_Yctan]![PathDB]

Кстати, в опубликованных примерах формы "[frmProv_Yctan_Komp_Na_Yctan]" не обнаружил.

@ankan · 13.02.2018, 13:37 **[ТС]**

Eugene-LS, Вы имеете виду отсутствие в имени квадратных скобок? т.е. []

@Eugene-LS · 13.02.2018, 13:47

Сообщение от ankan

Вы имеете виду отсутствие в имени квадратных скобок? т.е. []

Нет. - не это.

@ankan · 13.02.2018, 13:50 **[ТС]**

Eugene-LS,прикладываю скрин- там есть имя формы. Если что-то не так, поясните, пожалуйста!

@Eugene-LS · 13.02.2018, 13:53

Сообщение от ankan

Если что-то не так, поясните, пожалуйста!

Что пояснить?! - Не понимаю вас катострофически!

Что конкретно в моём посте #2 вам не понятно???

@ankan · 13.02.2018, 14:01 **[ТС]**

Eugene-LS, не тот файл вложил. Вот правильный.

@Eugene-LS · 13.02.2018, 14:47

Сообщение от ankan

не тот файл вложил. Вот правильный.

Посмотрел ...
У вас по кнопке "Найти Папку" вставляется полный путь к файлу, а по коду должна быть только папка.
Разберитесь пожалуйста с этим для начала.
Думаю, что полный путь к файлу правильнее, но смотрите сами.

@ankan · 14.02.2018, 14:46 **[ТС]**

Eugene-LS, сделал полный путь - тестирую. Выяснилась еще проблема:
Если "PathDB" на форме "rmProv_Yctan_Komp_Na_Yctan" заполнен путем на директорию компьютера- то по кнопке "Найти файл" открывается проводник и нужный файл можно найти.
Если "PathDB" заполнен путем на сервер- то при нажатии на "Найти файл" выдает ошибку- см. вложения.
Причем если поле "PathDB" изначально пустое- то выйти впервые на сервер по кнопке "найти файл" возможно. При повторном выходе на сервер (с предварительно заполненным полем "PathDB") выдает, как было уже сказано выше, ошибку.
Как это поправить?

@Eugene-LS · 14.02.2018, 14:51

Сообщение от ankan

выдает ошибку- см. вложения.

А вот вложения я, что-то, не наблюдаю.

Обычно, перед использованием внешних файлов, путь к ним принято проверять при помощи функции Dir()

@ankan · 14.02.2018, 15:05 **[ТС]**

Eugene-LS, Выкладываю базу. Отличие от предыдущего вложения :используется полный путь, часть кода отключена как лишняя.

@Eugene-LS · 14.02.2018, 15:22

Сообщение от ankan

Выкладываю базу.

А почему не полный комплект?
Ладно. - качаю файл для импорта из топика, но поверьте я ваши исходные файлы не храню.

Смотрю ...

@ankan · 14.02.2018, 15:49 **[ТС]**

Eugene-LS,

Сообщение от Eugene-LS

почему не полный комплект

у меня интерфейс на Аксесс 2003, таблицы на MySQL. Сложнова-то полностью выкладывать, да и не нужно.
Для форума готовлю отделные файлы БД Аксесс так и мне проще, и, думаю, форумчанам- нет лишних объектов БД.

Добавлено через 11 минут
Eugene-LS,

Сообщение от Eugene-LS

Обычно, перед использованием внешних файлов, путь к ним принято проверять при помощи функции Dir()

Есть в модуле формы "frmProv_Yctan_Komp_Na_Yctan" код "Sub toFider_Kompon_Progr_Vrem()", использующий функцию Dir()
Я его отключил, может зря?

Добавлено через 1 минуту
Eugene-LS,

Visual Basic
1
2
3
4
5
6
Sub toFider_Kompon_Progr_Vrem()
    Dim f
    f = Dir(Me.PathDB)
    readlogs Me.PathDB
    Me.frmProv_Yctan_Komp_Na_Yctan_1.SourceObject = "table.Fider_Kompon_Progr_Vrem"
End Sub

@Eugene-LS · 14.02.2018, 15:55

ankan, локально отработало на FIVE!
По сети проверить не могу т.к. сети у меня нет (из дома работаю), но насколько я понимаю и знаю - разницы нет.

Попробуйте так:
Если файл импорта на сетевом ресурсе - копируйте его локально, а потом импортируйте.

@ankan · 14.02.2018, 16:44 **[ТС]**

Eugene-LS, файл импорта создается на одной машине, выкладывается в папку на сервере и оттуда загружается в Аксесс с другой машины. Копировать из папки сервера на локальную машину, затем еще одна операция загрузки в аксесс- трудоемко. Хочется попроще.

Новые блоги и статьи Все статьи Все блоги /
Отправка уведомления на почту при изменении наименования справочника Maks 24.03.2026 Программная отправка письма электронной почты на примере изменения наименования типового справочника "Склады" в конфигурации БП3. Перед реализацией необходимо выполнить настройку системной учетной. . .	модель ЗдравоСохранения 5. Меньше увольнений- больше дохода! anaschu 24.03.2026 Теперь система здравосохранения уменьшает количество увольнений. 9TO2GP2bpX4 a42b81fb172ffc12ca589c7898261ccb/ https:/ / rutube. ru/ video/ a42b81fb172ffc12ca589c7898261ccb/ Слева синяя линия -. . .	Midnight Chicago Blues kumehtar 24.03.2026 Такой Midnight Chicago Blues, знаешь?. . Когда вечерние улицы становятся ночными, а ты не можешь уснуть. Ты идёшь в любимый старый бар, и бармен наливает тебе виски. Ты смотришь на пролетающие. . .	SDL3 для Desktop (MinGW): Вывод текста со шрифтом TTF с помощью библиотеки SDL3_ttf на Си и C++ 8Observer8 24.03.2026 Содержание блога Финальные проекты на Си и на C++: finish-text-sdl3-c. zip finish-text-sdl3-cpp. zip
Жизнь в неопределённости kumehtar 23.03.2026 Жизнь — это постоянное существование в неопределённости. Например, даже если у тебя есть список дел, невозможно дойти до точки, где всё окончательно завершено и больше ничего не осталось. В принципе,. . .	Модель здравоСохранения: работники работают быстрее после её введения. anaschu 23.03.2026 geJalZw1fLo Корпорация до введения программа здравоохранения имела много невыполненных работниками заданий, после введения программы количество заданий выросло. Но на выплатах по больничным это. . .	Контроль уникальности заводского номера Maks 23.03.2026 Алгоритм контроля уникальности заводского (или серийного) номера на примере нетипового документа выдачи шин для спецтехники с табличной частью, разработанного в конфигурации КА2. Данные берутся из. . .	Хочу заставить корпорации вкладываться в здоровье сотрудников: делаю мат модель здравосохранения anaschu 22.03.2026 e7EYtONaj8Y Z4Tv2zpXVVo https:/ / github. com/ shumilovas/ med2. git

@ankan 46 / 31 / 1 Регистрация: 28.09.2012 Сообщений: 974
	13.02.2018, 13:37 [ТС]
	Eugene-LS, Вы имеете виду отсутствие в имени квадратных скобок? т.е. [] 0

@ankan 46 / 31 / 1 Регистрация: 28.09.2012 Сообщений: 974
	13.02.2018, 13:50 [ТС]
	Eugene-LS,прикладываю скрин- там есть имя формы. Если что-то не так, поясните, пожалуйста! Миниатюры 0

@ankan 46 / 31 / 1 Регистрация: 28.09.2012 Сообщений: 974
	14.02.2018, 14:46 [ТС]
	Eugene-LS, сделал полный путь - тестирую. Выяснилась еще проблема: Если "PathDB" на форме "rmProv_Yctan_Komp_Na_Yctan" заполнен путем на директорию компьютера- то по кнопке "Найти файл" открывается проводник и нужный файл можно найти. Если "PathDB" заполнен путем на сервер- то при нажатии на "Найти файл" выдает ошибку- см. вложения. Причем если поле "PathDB" изначально пустое- то выйти впервые на сервер по кнопке "найти файл" возможно. При повторном выходе на сервер (с предварительно заполненным полем "PathDB") выдает, как было уже сказано выше, ошибку. Как это поправить? 0

@Eugene-LS 13176 / 5874 / 1505 Регистрация: 05.10.2016 Сообщений: 16,493
	14.02.2018, 15:55
	ankan, локально отработало на FIVE! По сети проверить не могу т.к. сети у меня нет (из дома работаю), но насколько я понимаю и знаю - разницы нет. Попробуйте так: Если файл импорта на сетевом ресурсе - копируйте его локально, а потом импортируйте. 1

@ankan 46 / 31 / 1 Регистрация: 28.09.2012 Сообщений: 974
	14.02.2018, 16:44 [ТС]
	Eugene-LS, файл импорта создается на одной машине, выкладывается в папку на сервере и оттуда загружается в Аксесс с другой машины. Копировать из папки сервера на локальную машину, затем еще одна операция загрузки в аксесс- трудоемко. Хочется попроще. 0