ссылка на файл на форме

@Klocker · Регистрация: 16.11.2011

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

Добрый день, созрел очередной вопрос)). На форме имеется пять полей с подписью "схема", значения в которых отображаются взависимости от выбранных выше моделей оборудования и, по сути, являются названием файла .dwg. Вопрос в следующем: как из набора этих знаков сделать ссылку на одноименный файл? Файл базы прилагаю. Заранее благодарен.

@ironegg · 30.11.2011, 08:10

такая конструкция в модуле формы вернет путь к нужному файлу в директории проекта

Visual Basic
1
CurrentProject.Path & "\" & Поле23 & "-"  & Поле25 & "-" &  Поле27 & "-" & Поле45 + "-" & Поле49 & ".dwg"

@Klocker · 30.11.2011, 08:25 **[ТС]**

ironegg, Можно поподробнее описать последовательность действий, к какому элементу формы привязать этот код, и что значит

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

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

?

@ironegg · 30.11.2011, 09:15

задавай конкретный вопрос и, возможно, получишь ответ.
если предположить, что тебе этот файл открыть нужно для просмотра, то есть смысл добавить на форму кнопку ОткрытьФайл и поместить в обработчик события нажатия такой, примерно, код

Visual Basic
1
2
openstr = CurrentProject.Path & "\" & Поле23 & "-"  & Поле25 & "-" &  Поле27 & "-" & Поле45 + "-" & Поле49 & ".dwg"
Call Shell("cmd /c " & """" & openstr & """", 0)

вот еще вариант, более универсальный Гиперссылка соотвтествующая строке второго столбца
если файлы лежат не в директории проекта, то вместо CurrentProject.Path напиши путь к папке с файлами

@andrey_ba · 30.11.2011, 09:35

Как связать нажатие кнопки с полем гтперссылки на форме посмотрите в моей форме то же самое реализовано

@Klocker · 30.11.2011, 10:03 **[ТС]**

ironegg, как Вы и советовали, добавил кнопку и на ее нажатии прописал код, предложенный Вами, но при нажатии ничего не происходит(( Может я что-то делаю не так? ЗЫ Файлы находятся в одной папке с базой

@Klocker · 30.11.2011, 11:00 **[ТС]**

andrey_ba, спасибо, но немного не то. у Вас ссылка привязана к записи, а мне имя файла нужно собрать по буквам из пяти полей.

@ironegg · 30.11.2011, 11:13

проверил, так работает:

Visual Basic
1
2
3
4
Private Sub Êíîïêà65_Click()
openstr = "E:/" & "test" & ".txt"
Call Shell("cmd /c " & """" & openstr & """", 0)
End Sub

и так:

Visual Basic
1
2
3
4
5
6
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
 
Private Sub Êíîïêà65_Click()
openstr = "E:/test.txt"
r = ShellExecute(0, "open", openstr, "", "", 1)
End Sub

давайте сделаем так, добавьте в конец процедуры вот такую строчку

Visual Basic
1
MsgBox openstr

чтобы убедиться, что в переменной находиться правильный путь к файлу
вместо MsgBox можно использовать Debug.Print в этом случае выводить будет в окно Immediate (в Access Alt+F11 -> Ctrl+G)

@Klocker · 30.11.2011, 11:49 **[ТС]**

ironegg, Спасибо большое, заработало!!

@alvk · 30.11.2011, 12:12

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

openstr = "E:/"

Серьёзно? О_о

@Klocker · 30.11.2011, 12:18 **[ТС]**

alvk, да, только не

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

"E:/"

,а

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

CurrentProject.Path & "\" & Поле23 & "-" & Поле25 & "-" & Поле27 & "-" & Поле45 + "-" & Поле49 & ".dwg"

@ironegg · 01.12.2011, 10:28

ну вот, теперь можно добавить проверку существования файла. например, так

Visual Basic
1
2
3
4
5
  If Dir("e:/test.txt") <> "" Then
    MsgBox "ôàéë ñóùåñòâóåò"   'сюда впишешь инструкцию открытия файла
  Else
    MsgBox "ôàéë íå ñóùåñòâóåò"
  End If

@alvk · 01.12.2011, 10:39

ironegg,
Я так понял косая прокатывает, но зачем её постоянно упорно наклонять вправо?

@ironegg · 01.12.2011, 11:00

я их все время путаю. заодно и код совместим с Unix-подобными системами

@Елена · 01.12.2011, 11:02

ironegg, как говорят "рассеянность -признак гениальности"

@ironegg · 01.12.2011, 11:09

времена DOS давно ушли. мне не известна ни одна причина, по которой обратный слеш лучше прямого

@alvk · 01.12.2011, 12:01

привычка - вторая натура

@Klocker · 01.12.2011, 14:30 **[ТС]**

ironegg, спасибо, все работает

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Реализация движения на Box2D v3 - трение и коллизии с повёрнутыми стенами 8Observer8 20.02.2026 Содержание блога Box2D позволяет легко создать главного героя, который не проходит сквозь стены и перемещается с заданным трением о препятствия, которые можно располагать под углом, как верхнее. . .	Конвертировать закладки radiotray-ng в m3u-плейлист damix 19.02.2026 Это можно сделать скриптом для PowerShell. Использование . \СonvertRadiotrayToM3U. ps1 <path_to_bookmarks. json> Рядом с файлом bookmarks. json появится файл bookmarks. m3u с результатом. # Check if. . .	Семь CDC на одном интерфейсе: 5 U[S]ARTов, 1 CAN и 1 SSI Eddy_Em 18.02.2026 Постепенно допиливаю свою "многоинтерфейсную плату". Выглядит вот так: https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11617&stc=1&d=1771445347 Основана на STM32F303RBT6. На борту пять. . .	Камера Toupcam IUA500KMA Eddy_Em 12.02.2026 Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .
И ясному Солнцу zbw 12.02.2026 И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.	«Знание-Сила» zbw 12.02.2026 «Знание-Сила» «Время-Деньги» «Деньги -Пуля»	SDL3 для Web (WebAssembly): Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 12.02.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами и вызывать обработчики событий столкновения. . . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 11.02.2026 Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .

@andrey_ba 267 / 267 / 4 Регистрация: 01.11.2011 Сообщений: 612
	30.11.2011, 09:35
	Как связать нажатие кнопки с полем гтперссылки на форме посмотрите в моей форме то же самое реализовано 1

@Klocker 0 / 0 / 0 Регистрация: 16.11.2011 Сообщений: 33
	30.11.2011, 11:00 [ТС]
	andrey_ba, спасибо, но немного не то. у Вас ссылка привязана к записи, а мне имя файла нужно собрать по буквам из пяти полей. 0

@Klocker 0 / 0 / 0 Регистрация: 16.11.2011 Сообщений: 33
	30.11.2011, 11:49 [ТС]
	ironegg, Спасибо большое, заработало!! 0

@alvk 7459 / 4592 / 302 Регистрация: 12.08.2011 Сообщений: 14,380
	01.12.2011, 10:39
	ironegg, Я так понял косая прокатывает, но зачем её постоянно упорно наклонять вправо? 0

@ironegg 1905 / 782 / 31 Регистрация: 11.02.2010 Сообщений: 1,567
	01.12.2011, 11:00
	я их все время путаю. заодно и код совместим с Unix-подобными системами 0

@Елена 2454 / 797 / 24 Регистрация: 18.08.2009 Сообщений: 1,697
	01.12.2011, 11:02
	ironegg, как говорят "рассеянность -признак гениальности" 0

@ironegg 1905 / 782 / 31 Регистрация: 11.02.2010 Сообщений: 1,567
	01.12.2011, 11:09
	времена DOS давно ушли. мне не известна ни одна причина, по которой обратный слеш лучше прямого 0

@alvk 7459 / 4592 / 302 Регистрация: 12.08.2011 Сообщений: 14,380
	01.12.2011, 12:01
	привычка - вторая натура 0

@Klocker 0 / 0 / 0 Регистрация: 16.11.2011 Сообщений: 33
	01.12.2011, 14:30 [ТС]
	ironegg, спасибо, все работает 0