powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Как к базе присоединять файлы?
25 сообщений из 55, страница 2 из 3
Как к базе присоединять файлы?
    #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
25 сообщений из 55, страница 2 из 3
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Как к базе присоединять файлы?
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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