powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Как к базе присоединять файлы?
55 сообщений из 55, показаны все 3 страниц
Как к базе присоединять файлы?
    #32502465
Digger
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Я не так давно увлекся созданием баз(базок) в Access. Столкнулся с необходимостью присоединять к базе вордовые документы. Своими мозгами что то не до тумкал :(
Подскажите пожалуйста! Зарание благодарен! :)
...
Рейтинг: 0 / 0
Как к базе присоединять файлы?
    #32502517
Фотография Shuhard
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
а насколько регулярное содержимое doc
самый простой вариант выгрузка в csv может делаться макросом в worde
запускаться же из Access a
...
Рейтинг: 0 / 0
Как к базе присоединять файлы?
    #32502519
Фотография paparome
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Что значит присоединять?

Или вам их надо внедрять на формы?
...
Рейтинг: 0 / 0
Как к базе присоединять файлы?
    #32502528
Фотография Latuk
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Или использовать ворд как шаблон
и править там инфу из аксеса?
(Типа договор в ворде есть,а реквизиты туда из аксеса всунуть)
...
Рейтинг: 0 / 0
Как к базе присоединять файлы?
    #32502541
Фотография Shuhard
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
ага серийное письмо - зачин автоматизации(новый год поздравления)
...
Рейтинг: 0 / 0
Как к базе присоединять файлы?
    #32502553
Digger
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Видемо не правильно вопрос задал. Значит так: Есть база в которой ведется учет заявок. По этим заявкам делаются договара в ворде. надо чтобы при открытии формы можно было присоеденить файл вордовый так что б потом кликнув на кнопку (или еще куда но в форме) можно было просмотреть этот файл.
...
Рейтинг: 0 / 0
Как к базе присоединять файлы?
    #32502558
Фотография paparome
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
1. Хранишь имя файла в таблице
2. По кнопке запускаешь WORD с нужным файлом (команда Shell)

Мне кажется этого будет достаточно :)
...
Рейтинг: 0 / 0
Как к базе присоединять файлы?
    #32502573
Фотография Лифчик
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Лучше хранить в поле типа Hyperlink

Тогда по клику будет открываться по линку документ любого типа
...
Рейтинг: 0 / 0
Как к базе присоединять файлы?
    #32502589
Фотография Stepler
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Мона в свойствах кнопки задать адрес гиперссылки, если конечно далее не обрабатываешь, а тока смотришь
> Модераторы!!!
Надо бы блок проверки правописания вставить
Stepler (щёлк-щёлк!!)
...
Рейтинг: 0 / 0
Как к базе присоединять файлы?
    #32502597
Фотография paparome
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
> Модераторы!!!
Надо бы блок проверки правописания вставить

В обсуждения сайта кинь :)
...
Рейтинг: 0 / 0
Как к базе присоединять файлы?
    #32502614
Фотография Shuhard
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
или
Код: plaintext
1.
Application.FollowHyperlink "c:\acc.doc", , True
...
Рейтинг: 0 / 0
Как к базе присоединять файлы?
    #32502717
Digger
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
1. Хранишь имя файла в таблице
2. По кнопке запускаешь WORD с нужным файлом (команда Shell)

Как путь к файлу в таблицу засунуть из формы? мне б еще и обьяснений попонятнее я ж токо начинаю
...
Рейтинг: 0 / 0
Как к базе присоединять файлы?
    #32502725
Фотография paparome
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Как путь к файлу в таблицу засунуть из формы?

А форма у вас на основе чего организуется?
Что-то мне подсказывает, что на основе таблицы :)
...
Рейтинг: 0 / 0
Как к базе присоединять файлы?
    #32502739
Digger
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Это форма для внесения данных в таблицу. Как зделать чтоб туда путь попал. чтоб не в ручную его писать?
...
Рейтинг: 0 / 0
Как к базе присоединять файлы?
    #32502787
Фотография paparome
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
по кнопочке открывать CommonDialog

найти можно по молоточку с точками
...
Рейтинг: 0 / 0
Как к базе присоединять файлы?
    #32502824
Digger
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Когда создаю кнопку он мне выдает диалог, где есть категории и действия, там подобного нет, а в молоточке :) CommonDialog тоже не наблюдается
...
Рейтинг: 0 / 0
Как к базе присоединять файлы?
    #32502843
Фотография Latuk
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
>команда Shell
Нехорошо это
MS старались интегрировали проги из офиса,
а вы их труд игнорируете :) через Shell запускаете

Dim wda As Word.Application
Dim wwd As Word.Document

Set wwd = GetObject(CurrentProject.Path + "\МойШаблон.doc")
Set wda = wwd.Parent
wda.Visible = True

'И делай с ним что хош :)


Set wwd = Nothing
Set wda = Nothing
...
Рейтинг: 0 / 0
Как к базе присоединять файлы?
    #32502884
Фотография Лифчик
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Заводишь в таблице Pole типа Hyperlink
В форме делаешь такое событие

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
Private Sub Pole_DblClick(Cancel As Integer)
Dim fd As FileDialog
Dim Link as String
Set fd = Application.FileDialog(msoFileDialogFilePicker)
fd.Show
If (fd.Show = - 1 ) Then
Link = fd.SelectedItems( 1 ) 
Me.Pole = Link & "#" & Link & "#"
Else
Cancel = True
End If
End Sub

Мне нравицца, как работает. Если поле пустое, то по ДблКлик открываешь файлдиалог и выбираешь файл. Если поле непустое, то по клику сразу открывается нужный документ (если ссылка действующая).

Попробуй!

ЗЫ А посему может любой документ аттачиться, не только Ворд
...
Рейтинг: 0 / 0
Как к базе присоединять файлы?
    #32503078
Digger
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
У меня ругается на Dim fd As FileDialog, там такого нет FileDialog :(
...
Рейтинг: 0 / 0
Как к базе присоединять файлы?
    #32503191
Фотография Лифчик
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
VBA > Tools > References > Подключить Microsoft Office 10.0 Object Library
...
Рейтинг: 0 / 0
Как к базе присоединять файлы?
    #32503229
Digger
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Теперь на это ругается Set fd = Application.FileDialog(msoFileDialogFilePicker),
FileDialog нет у него, что еще подключать?
...
Рейтинг: 0 / 0
Как к базе присоединять файлы?
    #32503237
Фотография Лифчик
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Галочка поставлена напротив названия библиотеки в Reference? Тогда должен быть файлдиалог. Проверь
...
Рейтинг: 0 / 0
Как к базе присоединять файлы?
    #32508544
Digger
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Да стоит там галочка напротив Office 10.0 ..... А в Application FileDialog нету :(
...
Рейтинг: 0 / 0
Как к базе присоединять файлы?
    #32508586
Фотография Лифчик
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Находясь в VBA коде правой кнопкой мыши выбираешь Object Browser и в окне поиска набираешь filedialog. Нажимаешь бинокль, сообщаешь о результатах

ЗЫ У меня в коде кстати одно fd.show - лишнее.
...
Рейтинг: 0 / 0
Как к базе присоединять файлы?
    #32508683
Digger
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
О каких результатах? Вот что было на экране в файле
...
Рейтинг: 0 / 0
Как к базе присоединять файлы?
    #32508846
Фотография Лифчик
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Тогда покажи код, который создал и где ругается
...
Рейтинг: 0 / 0
Как к базе присоединять файлы?
    #32508942
Digger
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Так вот тот код

Private Sub com_doc_DblClick(Cancel As Integer)

Dim fd As FileDialog
Dim Link As String
Set fd = Application. FileDialog (msoFileDialogFilePicker)
fd.Show
If (fd.Show = -1) Then
Link = fd.SelectedItems(1)
Me.Pole = Link & "#" & Link & "#"
Else
Cancel = True
End If
End Sub

Вот на этот . FileDialog (.....) и ругается metod or data member not found
...
Рейтинг: 0 / 0
Как к базе присоединять файлы?
    #32509047
Фотография Лифчик
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
А аксессовской библиотеки нету чтоль? - MSACC.OLB

Странно, что вообще что-то работает. Ищи и ставь галку против Access (10.0) Object Library. Не знаю, может ее и достаточно и офисная библиотека не нужна.
...
Рейтинг: 0 / 0
Как к базе присоединять файлы?
    #32509095
Digger
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
У меня Access 9.0 токо есть но он подключен Где 10.0 брать?
...
Рейтинг: 0 / 0
Как к базе присоединять файлы?
    #32509106
Digger
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
И библиотеки такой нет....
...
Рейтинг: 0 / 0
Как к базе присоединять файлы?
    #32509130
Фотография Лифчик
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Пробуй без нее, раз есть FileDialog из офиса. Тогда пиши
Код: plaintext
Set fd = FileDialog(msoFileDialogFilePicker)

и еще убери отдельностоящее fd.show
...
Рейтинг: 0 / 0
Как к базе присоединять файлы?
    #32509199
Digger
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
То же ругается, типо Саб или функция не найдена
...
Рейтинг: 0 / 0
Как к базе присоединять файлы?
    #32509224
Фотография Лифчик
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Код: plaintext
Dim fd As Office.FileDialog
Спокойно, Лифчик, спокойно, бери с Саныча пример
...
Рейтинг: 0 / 0
Как к базе присоединять файлы?
    #32509240
Фотография Лифчик
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Похоже, офисный файлдиалог - это не то. Надо искать аксессовский. А какой у тебя аксесс? Если 97, то я не советчик
...
Рейтинг: 0 / 0
Как к базе присоединять файлы?
    #32509297
Digger
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
2000 9.0.2812
...
Рейтинг: 0 / 0
Как к базе присоединять файлы?
    #32509365
Фотография Лифчик
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Ну тогда я тебя только в поиск по форуму направляю: набери контекст "диалоги открытия файлов" и выбирай тебе подходящее решение
...
Рейтинг: 0 / 0
Как к базе присоединять файлы?
    #32515773
Digger
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Спасибо!!! Скрипт заработал как токо поставил Access 2002!!!
...
Рейтинг: 0 / 0
Как к базе присоединять файлы?
    #32771773
AlexRom
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Использую следующий код в свое базе (Спасибо Лифчику!):
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
Private Sub Pole_DblClick(Cancel As Integer)
Dim fd As FileDialog
Dim Link as String
Set fd = Application.FileDialog(msoFileDialogFilePicker)
fd.Show
If (fd.Show = - 1 ) Then
Link = fd.SelectedItems( 1 ) 
Me.Pole = Link & "#" & Link & "#"
Else
Cancel = True
End If
End Sub

Но понадобилось, чтобы диалоговое окно открывалось на конкретной папке, как не бился, не смог сделать.
Помогите человеку...
...
Рейтинг: 0 / 0
Как к базе присоединять файлы?
    #32773323
AlexRom
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Ребята, помогите, очень нужно.
А то чайники сохраняют файлы на локальных машинах
И начинается такой геморой, мама не горюй...

AlexRom
...
Рейтинг: 0 / 0
Как к базе присоединять файлы?
    #32774222
AlexRom
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Ну хоть кто-нибудь откликнитесь, очень нужно
...
Рейтинг: 0 / 0
Как к базе присоединять файлы?
    #32774239
Kelme
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
AlexRomИспользую следующий код в свое базе (Спасибо Лифчику!):
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
Private Sub Pole_DblClick(Cancel As Integer)
Dim fd As FileDialog
Dim Link as String
Set fd = Application.FileDialog(msoFileDialogFilePicker)
fd.Show
If (fd.Show = - 1 ) Then
Link = fd.SelectedItems( 1 ) 
Me.Pole = Link & "#" & Link & "#"
Else
Cancel = True
End If
End Sub

Но понадобилось, чтобы диалоговое окно открывалось на конкретной папке, как не бился, не смог сделать.
Помогите человеку...

InitialFileName

разве трудно пройтись по всем св-вам объекта?
...
Рейтинг: 0 / 0
Как к базе присоединять файлы?
    #32774254
AlexRom
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Если бы я был такой умный
Только учусь
AlexRom
...
Рейтинг: 0 / 0
Как к базе присоединять файлы?
    #32774256
Kelme
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
AlexRomЕсли бы я был такой умный
Только учусь
AlexRom

видать трудно учёба подаётся...
...
Рейтинг: 0 / 0
Как к базе присоединять файлы?
    #32774266
AlexRom
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Не то слово.
А помочь не можешь или не хочешь?
AlexRom
...
Рейтинг: 0 / 0
Как к базе присоединять файлы?
    #32774272
Kelme
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
я же тебе ответил:
InitialFileName

читать надо внимательно :)
...
Рейтинг: 0 / 0
Как к базе присоединять файлы?
    #32774323
AlexRom
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Краткость сестра таланта, но не на столько же.
Можно подробнее...
AlexRom
...
Рейтинг: 0 / 0
Как к базе присоединять файлы?
    #32774327
Kelme
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
мля...

Private Sub Pole_DblClick(Cancel As Integer)
Dim fd As FileDialog
Dim Link as String
Set fd = Application.FileDialog(msoFileDialogFilePicker)
fd.InitialFileName = "C:\WINDOWS\SYSTEM32\"
fd.Show

If (fd.Show = -1) Then
Link = fd.SelectedItems(1)
Me.Pole = Link & "#" & Link & "#"
Else
Cancel = True
End If
End Sub
...
Рейтинг: 0 / 0
Как к базе присоединять файлы?
    #32774335
AlexRom
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Спасибо КОРМИЛЕЦ
Я (идиот) забыл прописать "fd."
Ещё раз спасибо, всё работает
...
Рейтинг: 0 / 0
Как к базе присоединять файлы?
    #32774341
Kelme
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
:)
...
Рейтинг: 0 / 0
Как к базе присоединять файлы?
    #32837920
Asirius
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
А какой код для Filedialog для Access 2000 ? Никак не могу найти на форуме рабочий вариант.
...
Рейтинг: 0 / 0
Как к базе присоединять файлы?
    #32837988
vkle
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Кажется в свое время сильно не напрягаясь, стащил рабочий код диалога из учебной базы данных. Из той самой, что к Офису прилагается. Кажись та самая формочка, куда фотографии сотрудников прилеплены.
Если не ошибаюсь...
...
Рейтинг: 0 / 0
Как к базе присоединять файлы?
    #32844688
Asirius
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Помогите ! Никак не могу найти код filedialog для хранения hyperlink на word документ для Access 2000
...
Рейтинг: 0 / 0
Как к базе присоединять файлы?
    #32844693
Фотография Shurgenz
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
FileDialog, кажись, появился тока в 10-й версии библиотеки объектов
...
Рейтинг: 0 / 0
Как к базе присоединять файлы?
    #32844695
Фотография Владимир Саныч
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Модератор форума
AsiriusПомогите ! Никак не могу найти код filedialog для хранения hyperlink на word документ для Access 2000
http://sql.ru/forum/actualtopics.aspx?search=filedialog&bid=4
...
Рейтинг: 0 / 0
Как к базе присоединять файлы?
    #32844708
Asirius
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Здесь ответа не дождался. Нашел ответ "на Западе" :))

http://www.rogersaccesslibrary.com/TableOfContents3.asp#S

"SETHYPERLINK.MDB"
...
Рейтинг: 0 / 0
55 сообщений из 55, показаны все 3 страниц
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Как к базе присоединять файлы?
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]