Rambler's Top100
Форум: MS ACCESSVBVBA MS OfficeMS SQL server
Новые сообщения: 0000

Форум: MS ACCESS

Вопросы связанные с MS ACCESS

Обновить визитку
Участники «Online»
Все участники

 
 

Доброго времени суток, Посетитель!

вид форума:
Линейный форум Структурный форум

тема: Окно выбора файла. Почему не работает?
 
 автор: Волшебник   (17.10.2009 в 17:55)   личное сообщение
 
 

Тема Access 2003. Форма Сотрудники.

База данных Борей работает хорошо. Выбор фото происходит., но почему тот же код не срабатывает При создании Новой базы, Я в новую базу сделал из борея Импорт Таблицы Сотрудники и Формы Сотрудники, но кнопка смены фото выдает ошибку указывая что не то Окно диалога

Код тот же, формат базы тот же, а Окно выбора файла не открывается, в чём дело? Может в скрытых системных таблицах, а?

  Ответить  
 
 автор: Lukas   (17.10.2009 в 18:03)   личное сообщение
 
 

Возможно, требуется ссылка на офисную библиотеку.

  Ответить  
 
 автор: Волшебник   (17.10.2009 в 18:31)   личное сообщение
 
 

Нет ссылок здесь нет

неработает эта строка
With Application.FileDialog(msoFileDialogFilePicker)
Акес выделяет это- (msoFileDialogFilePicker)

Sub getFileName()
' Для выбора имени файла с фотографией текущего сотрудника
' используется стандартное окно открытия файла Office.
' Если пользователь указывает файл, его содержимое
' отображается в элементе управления ImageFrame.
Dim fileName As String
Dim result As Integer
With Application.FileDialog(msoFileDialogFilePicker)
.Title = "Выбор фотографии сотрудника"
.Filters.Add "Все файлы", "*.*"
.Filters.Add "JPEG", "*.jpg"
.Filters.Add "Рисунки", "*.bmp"
.FilterIndex = 3
.AllowMultiSelect = False
.InitialFileName = CurrentProject.path
result = .Show
If (result <> 0) Then
fileName = Trim(.SelectedItems.Item(1))
Me![ImagePath].Visible = True
Me![ImagePath].SetFocus
Me![ImagePath].Text = fileName
Me![Имя].SetFocus
Me![ImagePath].Visible = False
End If
End With
End Sub

  Ответить  
 
 автор: Lukas   (17.10.2009 в 18:37)   личное сообщение
19 Кб.
 
 


With Application.FileDialog(msoFileDialogFilePicker)
...

Однозначно требуется подключенная ссылка на офисную библиотеку.
Или используйте позднее связывание и, соответственно, значения констант.

Для А2003 скрин:

  Ответить  
 
 автор: Волшебник   (17.10.2009 в 19:33)   личное сообщение
 
 

Спасибо Lukas. Теперь у меня всё работает!

  Ответить  
HiProg.com - Технологии программирования
Rambler's Top100 TopList