Перетаскивание файла на форму. HyperlinkPart

@Zuikovod · Регистрация: 26.05.2019

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

День добрый всем!
Прошу помочь, не могу понять в чем может быть проблема при использовании HyperlinkPart. Может у кого есть альтернативные решения...?

На форме организовано поле связанное с таблицей. Тип данных гиперссылка. Простенький код

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub Ссылка_AfterUpdate()
        
    '---------------------------обработка перетаскивания мышкой файла
            FNamePismo = ""
            FNamePismo = Me.Ссылка.Text
            FNamePismo = HyperlinkPart(FNamePismo, 2)
            
    '---------------------------очистка от поля
            Me.Form.Recordset.AddNew
            sqlstr2 = sqlstr2 & "DELETE ГиперСсылка.* FROM ГиперСсылка"
            CurrentDb.Execute sqlstr2
            Me.ПутьКписьмуПоДоговору = FNamePismo 'задать значение в поле путь к файлу (рядом с кнопкой Обзор)
    End Sub

Перетаскиваешь файл получаешь путь. Дальше понятно - делай что хочешь...

Проблема заключается в том что на каких то компах способ работает замечательно, а на парочке компов сбоит, поскольку:
?FNamePismo
..\..\..\Desktop\1.txt

Реальная ссылка c:\Users\Ki\Desktop\1.txt

@Zuikovod · 17.09.2019, 23:15 **[ТС]**

Интересно, что после того как перетащил на поле файл (видно что в поле адрес "кривой"), но при этом если кликнуть мышкой по полю, то файл открывается.
Значит где то внутри поля все таки есть нормальная ссылка . Как бы снять с поля правильный путь к файлу?

Перетаскивание файла на форму. HyperlinkPart

@Zuikovod · 18.09.2019, 10:04 **[ТС]**

В общем перепробовал все константы для HyperlinkPart, ничего не помогает. Вынимает ссылку в виде "..\..\..\Desktop\1.txt" и все тут.

Константа	Значение	Описание
acDisplayedValue	0	Используется по умолчанию. Подчеркнутый текст, который отображается в гиперссылке.
acDisplayText	1	Часть поля гиперссылки отображаемыйТекст.
AcAddress	2	Часть поля гиперссылки адрес.
AcSubAddress	3	Часть поля гиперссылки допАдрес.

Однако по клику по полю с такой ссылкой файл открывается..... Должен же быть способ ее вынуть.... Помогитеее!!!! :-)

@Eugene-LS · 18.09.2019, 10:07

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

Должен же быть способ ее вынуть....

Первое что приходит в голову:
Заменять \..\ на реальные имена Parent папок.

@Zuikovod · 19.09.2019, 22:17 **[ТС]**

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

Заменять \..\ на реальные имена Parent папок

Формирование ссылки искусственно невозможно. Пользователи перетаскивают файлы откуда им вздумывается, странно было бы ограничить их в этом. А потом на большинстве компов работает норм. Разница только в версиях виндовс и акцесс. Не работает на машинах с виндовс 10 + акцесс из офиса 2019. Все лицензия, если вдруг какие мысли :-)

@Eugene-LS · 19.09.2019, 22:33

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

Формирование ссылки искусственно невозможно.

Вы не прочитали мой краткий ответ ...

Повтор:
Заменять \..\ на реальные имена Parent папок!
т.е. заменить двоеточия на реальные названия папок и сделать ссылку НЕ ОТНОСИТЕЛЬНОЙ.
... предварительно проверять - есть ли двоеточия в строке.

@Zuikovod · 21.09.2019, 10:41 **[ТС]**

Eugene-LS, Простите, наверное я поплыл...

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

реальные имена Parent папок

Или я в корне не понял то что Вы посоветовали или я просто не знаю где взять эти имена, что бы ими заменить точки. Можете детальней объяснить?
Не дает мне покоя тот факт, что если кликнуть на ссылку, то она срабатывает. По-прежнему ищу где она спрятана......

@Eugene-LS · 21.09.2019, 10:48

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

По-прежнему ищу где она спрятана....

Пример в СТУДИЮ!
+ описание версий Win & MSO
Есть у меня виртуальные машинки - гляну (на досуге) ...

@VinniPuh · 21.09.2019, 10:54

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

...Есть у меня виртуальные машинки...

ООООООООООООО - Всемогущий.
Жаль что нет смайлика с преклонением коленей.

@Eugene-LS · 21.09.2019, 11:05

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

Жаль что нет смайлика с преклонением коленей.

Миш, если ты кодиш на работе ... Поздравляю! = Хорошая работа.

...
Подозреваю - Задачка ерундовая
Но лучше пример посмотреть ...

@VinniPuh · 21.09.2019, 11:16

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

...Миш, если ты кодиш на работе...

Ну да, нахотясь уже 11 лет как на пенсии, нашел себе такую работу, где и програмки всласть можно пописать.
Не ежедневно конечно, но бывает.
Завидно?

@Eugene-LS · 21.09.2019, 11:20

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

Завидно?

АГА!!!

@VinniPuh · 21.09.2019, 11:54

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

...АГА!!!...

А я вот завидую белой завистью, твоему програмистическому уму, разуму, ну и всему, тому, чего к ним прилагается, дабы мочь так запросто в коде сечь и пояснения к коду писать.
Этому чЁ, специально учиться надо что ли, или само собой со временем придЁт?

Хотелось бы конечно лучше, что бы типа - На халяву.

@Eugene-LS · 21.09.2019, 12:19

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

... и пояснения к коду писать

Ну раз уж пишу для людей - то стоит делать это хорошо (насколько позволяет жестокое время).
Спасибо за добрые слова - приятно очень.

PS
- "Ничто не стоит так дёшево, и не ценится так дорого как обыкновенная лесть."
Дейл Карнеги ...

Добавлено через 13 минут

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

специально учиться надо что ли, или само собой со временем придЁт?

О, сколько нам открытий чудных
Готовят просвещенья дух,
И опыт, сын ошибок трудных,
И гений, парадоксов друг,
И случай, бог изобретатель.
...
--------------------------------
А.С.П.

... читаем + применяем на практике пару - тройку раз - само запоминается.

Ничего особенного.

@Zuikovod · 21.09.2019, 17:55 **[ТС]**

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

Пример в СТУДИЮ!
+ описание версий Win & MSO
Есть у меня виртуальные машинки - гляну (на досуге) ...

Пример создал в офис 2019, но сохранил mdb.

Дает битую ссылку на виндовс 10 + офис 2019
На виндовс 7 +офис 2010 дает нормальную ссылку, но только при перетаскивании файла с локального диска, а если перетаскивать с сетевого - такая же проблема - ссылка битая

Спасибо!

@Eugene-LS · 22.09.2019, 16:28

Zuikovod, еже работает ...
Подождите N часиков ... довожу "до ума" ....

@Eugene-LS · 22.09.2019, 18:28

Zuikovod, попробуйте этот вариант (сырой пока).
.. ну а вдруг ...

@Zuikovod · 23.09.2019, 00:37 **[ТС]**

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

Zuikovod, попробуйте этот вариант (сырой пока).
.. ну а вдруг ...

Ура работает! Огонь! Даже по нескольку файлов можно перетаскивать. Жаль что с Outlook файлы не принимает.
А что там еще пилить?
Ну код конечно для меня полный хард рок..... Буду разбираться, хорошо что комменты есть :-)
Спасибо.

@alvk · 23.09.2019, 07:42

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

попробуйте этот вариант

У меня тоже такое было, только активикс от Дельфи, дельфиец писал.

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

код конечно для меня полный хард рок

Код чего?

@Eugene-LS · 23.09.2019, 09:21

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

Ура работает!

Вот и славно.
Тогда дальше "облагораживайте" самостоятельно уже.
Удачи!

Добавлено через 57 минут

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

Жаль что с Outlook файлы не принимает.

Если это критично нужно, видел решение от ув. Бенедикт на форуме который тут нельзя упоминать.
Ссылку не сохранил - не спрашивайте.

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Desktop (MinGW): Создаём пустое окно с нуля для 2D-графики на SDL3, Си и C++ 8Observer8 10.03.2026 Содержание блога Финальные проекты на Си и на C++: hello-sdl3-c. zip hello-sdl3-cpp. zip Результат:	Установка CMake и MinGW 13.1 для сборки С и C++ приложений из консоли и из Qt Creator в EXE 8Observer8 10.03.2026 Содержание блога MinGW - это коллекция инструментов для сборки приложений в EXE. CMake - это система сборки приложений. Здесь описаны базовые шаги для старта программирования с помощью CMake и. . .	Как дизайн сайта влияет на конверсию: 7 решений, которые реально повышают заявки Neotwalker 08.03.2026 Многие до сих пор воспринимают дизайн сайта как “красивую оболочку”. На практике всё иначе: дизайн напрямую влияет на то, оставит человек заявку или уйдёт через несколько секунд. Даже если у вас. . .	Модульная разработка через nuget packages DevAlt 07.03.2026 Сложившийся в . Net-среде способ разработки чаще всего предполагает монорепозиторий в котором находятся все исходники. При создании нового решения, мы просто добавляем нужные проекты и имеем. . .
Модульный подход на примере F# DevAlt 06.03.2026 В блоге дяди Боба наткнулся на такое определение: В этой книге («Подход, основанный на вариантах использования») Ивар утверждает, что архитектура программного обеспечения — это структуры,. . .	Управление камерой с помощью скрипта OrbitControls.js на Three.js: Вращение, зум и панорамирование 8Observer8 05.03.2026 Содержание блога Финальная демка в браузере работает на Desktop и мобильных браузерах. Итоговый код: orbit-controls-threejs-js. zip. Сканируйте QR-код на мобильном. Вращайте камеру одним пальцем,. . .	SDL3 для Web (WebAssembly): Синхронизация спрайтов SDL3 и тел Box2D 8Observer8 04.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-sync-physics-sprites-sdl3-c. zip На первой гифке отладочные линии отключены, а на второй включены:. . .	SDL3 для Web (WebAssembly): Идентификация объектов на Box2D v3 - использование userData и событий коллизий 8Observer8 02.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-collision-events-sdl3-c. zip Сканируйте QR-код на мобильном и вы увидите, что появится джойстик для управления главным героем. . . .

@Zuikovod 21 / 15 / 6 Регистрация: 26.05.2019 Сообщений: 119
	17.09.2019, 23:15 [ТС]
	Интересно, что после того как перетащил на поле файл (видно что в поле адрес "кривой"), но при этом если кликнуть мышкой по полю, то файл открывается. Значит где то внутри поля все таки есть нормальная ссылка . Как бы снять с поля правильный путь к файлу? 0

@Eugene-LS 13173 / 5872 / 1504 Регистрация: 05.10.2016 Сообщений: 16,489
	22.09.2019, 16:28
	Zuikovod, еже работает ... Подождите N часиков ... довожу "до ума" .... 0

Перетаскивание файла на форму. HyperlinkPart

Решение