Открытие ссылки через форму

@Dbd · Регистрация: 16.09.2011

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

Всем доброго времени суток!
Помогите разобраться с реализацией такой задачи: в форме вводится имя файла и по нажатию кнопки файл открывается.
Есть запрос, который создает ссылку на файл. Нужно по нажатию кнопки его запустить + открыть созданную ссылку, либо, если ссылка уже создана, просто ее открыть.
Заранее прошу прощения, если мой вопрос слишком глупый, но это моя первая работа в access.

@Dbd · 23.09.2011, 19:40 **[ТС]**

Прокомментируйте хотя бы, мой вопрос через чур глуп или слишком сложен??

@V_Monomax · 23.09.2011, 23:48

скорее не понятен, файл где находиться (на ЖД или в БД)?

@Dbd · 24.09.2011, 11:03 **[ТС]**

На ЖД, в БД только ссылки на файлы хранятся.

@Волшебник · 24.09.2011, 16:10

Dbd,
Можно вот так.

@Dbd · 24.09.2011, 17:29 **[ТС]**

Волшебник,
не могу просмотреть файл, пишет "Нераспознаваемый формат БД"..

@Волшебник · 25.09.2011, 09:41

Dbd,

Создай на форме Поле свободное - Файл,
И добавь код.

'форма

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
Option Compare Database
Option Explicit
 
Private Sub Open_Click()
Call OpenFile("C:\Новая папка\" & Me![Файл] & ".txt")
End Sub
 
'модуль
Option Compare Database
Option Explicit
 
Public 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
 
Public Const SW_SHOWMAXIMIZED = 3
Public Const SW_SHOWDEFAULT = 10
Public Const SW_SHOWNOACTIVATE = 4
Public Const SW_SHOWNORMAL = 1
 
Function OpenFile(strNameFile As String)
Dim intResult As Integer
intResult = ShellExecute(Application.hWndAccessApp, "open", strNameFile, 0, 0, SW_SHOWNORMAL)
    If intResult = 31 Then
    If (7 = MsgBox("Ошибка!" & vbNewLine & "Тип файла незарегестрирован.", 16)) Then
    End If
    End If
End Function

не по теме
ironegg. я опять забыл какая кнопка.

Комментарий модератора

прямо над полем ввода сообщения находятся кнопки для быстрого добавления тегов. есть среди них SQL и VB. или пиши вручную (без пробелов) [ VB ]твой код[ / VB ]

@Dbd · 25.09.2011, 10:24 **[ТС]**

Волшебник,
все работает! Спасибо!

Новые блоги и статьи Все статьи Все блоги /
модель ЗдравоСохранения 8. Подготовка к разному выполнению заданий anaschu 08.04.2026 https:/ / github. com/ shumilovas/ med2. git main ветка * содержимое блока дэлэй из старой модели теперь внутри зайца новой модели 8ATzM_2aurI	Блокировка документа от изменений, если он открыт у другого пользователя Maks 08.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа, разработанного в конфигурации КА2. Задача: запретить редактирование документа, если он открыт у другого пользователя. / / . . .	Система безопасности+живучести для сервера-слоя интернета (сети). Двойная привязка. Hrethgir 08.04.2026 Далее были размышления о системе безопасности. Сообщения с наклонным текстом - мои. А как нам будет можно проверить, что ссылка наша, а не подделана хулиганами, которая выбросит на другую ветку и. . .	Модель ЗдрввоСохранения 7: больше работников, больше ресурсов. anaschu 08.04.2026 работников и заданий может быть сколько угодно, но настроено всё так, что используется пока что только 20% kYBz3eJf3jQ
Дальние перспективы сервера - слоя сети с космологическим дизайном интефейса карты и логики. Hrethgir 07.04.2026 Дальнейшее ближайшее планирование вывело к размышлениям над дальними перспективами. И вот тут может быть даже будут нужны оценки специалистов, так как в дальних перспективах всё может очень сильно. . .	Горе от ума kumehtar 07.04.2026 Эта мне ментальная установка, что вот прямо сейчас, мол, мне для полного счастья не хватает (нужное вписать), и когда я этого достигну - тогда и полный кайф. Одна из самых сильных ловушек на пути. . . .	Использование значений реквизитов справочника в документе, с определенными условиями и правами Maks 07.04.2026 1. Контроль срока действия договора Алгоритм из решения ниже реализован на примере нетипового документа "ЗаявкаНаРаботу", разработанного в конфигурации КА2. Задача: уведомлять пользователя, если. . .	Доступность команды формы по условию Maks 07.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: сделать доступной кнопку (команда формы "ЗавершитьСписание") при. . .

@Dbd 0 / 0 / 0 Регистрация: 16.09.2011 Сообщений: 24
	23.09.2011, 19:40 [ТС]
	Прокомментируйте хотя бы, мой вопрос через чур глуп или слишком сложен?? 0

@V_Monomax 1406 / 1260 / 20 Регистрация: 09.08.2011 Сообщений: 2,319 Записей в блоге: 1
	23.09.2011, 23:48
	скорее не понятен, файл где находиться (на ЖД или в БД)? 0

@Dbd 0 / 0 / 0 Регистрация: 16.09.2011 Сообщений: 24
	24.09.2011, 11:03 [ТС]
	На ЖД, в БД только ссылки на файлы хранятся. 0

@Dbd 0 / 0 / 0 Регистрация: 16.09.2011 Сообщений: 24
	24.09.2011, 17:29 [ТС]
	Волшебник, не могу просмотреть файл, пишет "Нераспознаваемый формат БД".. 0

@Dbd 0 / 0 / 0 Регистрация: 16.09.2011 Сообщений: 24
	25.09.2011, 10:24 [ТС]
	Волшебник, все работает! Спасибо! 0