Перетаскивание файла на форму. 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

@Eugene-LS · 23.09.2019, 09:31

Zuikovod, BTW вот пример на ту же тему от ув. Бенедикт (совершенно иной подход):

@Eugene-LS · 23.09.2019, 10:21

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

Код чего?

Да уж ... - действительно!
Всего 18 (!!!) простеньких строчек ...

@alvk · 23.09.2019, 11:21

Пусть ТС ответит. Хорошо?

@Eugene-LS · 23.09.2019, 12:12

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

Пусть ТС ответит. Хорошо?

Он уже ответил (вроде как).

@alvk · 23.09.2019, 15:16

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

Он уже ответил (вроде как).

Вроде как? Ответа ТС на мой вопрос нет. Впрочем как и его самого в данной теме.

Так что пусть ТС ответит, ок?

@Zuikovod · 25.09.2019, 18:12 **[ТС]**

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

Вроде как? Ответа ТС на мой вопрос нет. Впрочем как и его самого в данной теме.

Простите просто не понял Вашего вопроса и с чем он связан, подумал что Вы случайно ошиблись веткой. Меня устроило то чем мне уже здесь помогли. Буду подстраивать под себя. И Вам спасибо за то что хотели помочь.

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

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

Zuikovod, BTW вот пример на ту же тему от ув. Бенедикт (совершенно иной подход):

Не запускается на 64 битной системе. Никогда раньше не сталкивался и не задумывался над разрядностью... оказалось что все мои компы 64. Даже попробовать не на чем...

@alvk · 26.09.2019, 02:21

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

Простите просто не понял Вашего вопроса и с чем он связан

Поясню. Вы писали про код. Но там их два:
1.Обращение к свойствам элемента activx, встроенного в форму
2.Небольшой код на VBA для обработки результата.

Собственно я и спросил, про что именно вы ведёте речь? Про какой код?

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

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

Не запускается на 64 битной системе.

в интернете полно примеров перевода функций VBA на 64 бит.
https://docs.microsoft.com/ru-... s-overview

Новые блоги и статьи Все статьи Все блоги /
Nekobox - outbounds[0].transport: unknown transport type: raw damix 01.10.2026 Фикс ошибки Правым кликом по серверу -> отладочная информация -> edit Заменить "net": "raw", на "net": "tcp", Нажать кнопку reload.	Программный домашний кинотеатр russiannick 27.09.2026 Сподобился на программный домашний кинотеатр. В качестве ЯВУ по традиции выбрал js. В помощники взял Яндекс-Алису. Было создано три зала на разные интересы. исторические и ретро сериал Хичкок. . .	Беседа с ИИ о программистах, недопускающих к созданию и правке кода генеративные ИИ и причины этого zorxor 21.09.2026 Раньше я радовался или получал некоторые эмоции, пусть небольшие, но всё же, от самого процесса написания кода, рекомпиляции и запуска, видя постепенное развитие программы и прочее. А теперь лень. . .	Мобильное приложение ColorStep pavlinmavlin 17.09.2026 Реализовал приложение Красный, Зеленый, Синий в Unity3d + c#. Название изменил на ColorStep. Приложение прошло модерацию и теперь доступно для скачивания. Делал его сам, шаг за шагом — и вот,. . .
Запрет дублирования строк в табличной части Maks 13.09.2026 Реализация из решения ниже выполнена на нетиповом справочнике "Нормы ТО" с табличной часть "Виды ТО", разработанного в КА2, со следующими реквизитами: - ВидТО (СправочникСсылка. ВидыТО); - ВидГСМ. . .	Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Jin X 06.09.2026 Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Работая с форумом и нейросетями в браузере часто хочется что-то подкорректировать или добавить какого-то функционала. Ниже прикреплён. . .	Программа опроса у.з. расходомера SLS-720F Argus19 02.09.2026 Программа опроса у. з. расходомера SLS-720F Программа опрашивает один раз в минуту три ультразвуковых расходомера SLS-720F через интерфейс RS-485 по протоколу Modbus RTU. Опрашиваются регистры. . .	Hyper-V: Компьютер должен поддерживать доверенный платформенный модуль 2.0. Maks 31.08.2026 При установке Windows 11 на виртуальную машину Hyper-V 2-го поколения вылезла такая ошибка: Решение: в параметрах виртуальной машины, в разделе "Безопасность" (Security) активировать флаг. . .

@alvk 7459 / 4592 / 302 Регистрация: 12.08.2011 Сообщений: 14,383
	23.09.2019, 11:21
	Пусть ТС ответит. Хорошо? 0