Вопрос № 93937: ну вы чего?!!! столько программистов, а помочь никто не может?!! Который раз задаю вопрос! Подскажите, пожалуйста, как решить вот такую задачку. У меня есть база, реализованная в Access, в базе есть основная форма,
в которую пользователь вносит д...
Вопрос № 93.937
ну вы чего?!!! столько программистов, а помочь никто не может?!! Который раз задаю вопрос! Подскажите, пожалуйста, как решить вот такую задачку. У меня есть база, реализованная в Access, в базе есть основная форма,
в которую пользователь вносит данные. Необходимо сделать на этой форме, например, кнопку, которая позволила бы прикреплять к каждой записи
файл и при необходимости, выбрав нужную запись просмотреть прикрепленный файл. Мне желательно получить готовое решение. Свою базу, при
необходимости, могу выслать. Помогите, пожалуйста :-))
Отвечает: HookEst
Здравствуйте, Клинских Мария Николаевна!
Примерно так:
в таблицу добавляете поле типа "поле объекта OLE" у меня с именем [СамФайл],
я еще создал текстовое для хранения пути этого файла с имене [ИмяФайла]
теперь на форму ложим:
присоединеную рамку объекта, у меня имя ole
кнопку КнопкаВставить
и кнопку КнопкаОткрыть
и создаете два обработчика события Нажатие кнопки для этих кнопок:
Private Sub КнопкаВставить_Click()
On Error Resume Next
With Application.FileDialog(msoFileDialogFilePicker)
If .Show = -1 Then
[ИмяФайла] = .SelectedItems(1)
ole.OLETypeAllowed = acOLEEmbedded
ole.SourceDoc = [ИмяФайла]
ole.Action = acOLECreateEmbed
End If
End With
End Sub
Private Sub КнопкаОткрыть_Click()
On Error Resume Next
ole.Action = acOLEActivate
ole.Verb = acOLEVerbOpen
End Sub
Все. Одна кнопка вставляет файл, другая его открывает.
Если что, пишите.
Успехов.
Ответ отправил: HookEst (статус: Студент)
Ответ отправлен: 05.07.2007, 09:32 Оценка за ответ: 5
Отвечает: Черников Игорь Владимирович
Здравствуйте, Клинских Мария Николаевна!
Дело в том, что простого решения здесь быть не может. Программа будет большая и сложная! Начинайте писать сами, а если возникнут трудности, вот тогда пишите, поможем! Или заказывайте изготовление программы, но это очень дорого!
--------- От каждого по способностям, каждому по труду
Ответ отправил: Черников Игорь Владимирович (статус: 1-ый класс)
Ответ отправлен: 05.07.2007, 16:02 Оценка за ответ: 1
