Добро пожаловать в форум, Guest  >>   Войти | Регистрация | Поиск | Правила | В избранное | Подписаться
Все форумы / Microsoft Access Новый топик    Ответить
 Вызов диалога для выбора папки в Access (VBA)  [new]
tarar
Member

Откуда: Moscow
Сообщений: 30
Уважаемые форумчане, Подскажите, пожалуйста, мне, неучу, как сделать так, чтоб при нажатии на кнопку открывался диалог выбора папки, а после выбора папки путь попадал в текстовое поле?
Где-то нашел вот такой пример, но там выбор файла, а мне нужен выбор папки.
Буду ооочень признателен!

К сообщению приложен файл (OpenFile.rar - 19Kb) cкачать
8 окт 10, 17:27    [9577830]     Ответить | Цитировать Сообщить модератору
 Re: Вызов диалога для выбора папки в Access (VBA)  [new]
ё
Guest
  Dim dlgOpenFile As Object ' FileDialog
  Set dlgOpenFile = Application.FileDialog(4) 'msoFileDialogFolderPicker
  With dlgOpenFile
    .Filters.Clear
    .InitialFileName = CurrentProject.Path
    .AllowMultiSelect = False
    .Title = "ляляля"
    If (.Show = -1) And (.SelectedItems.Count > 0) Then
      МаёПоле.Value = .SelectedItems(1)
    End If
  End With
  Set dlgOpenFile = Nothing
8 окт 10, 17:35    [9577892]     Ответить | Цитировать Сообщить модератору
 Re: Вызов диалога для выбора папки в Access (VBA)  [new]
tarar
Member

Откуда: Moscow
Сообщений: 30
ё,

Спасибо огромное! Работает!
8 окт 10, 17:38    [9577914]     Ответить | Цитировать Сообщить модератору
 Re: Вызов диалога для выбора папки в Access (VBA)  [new]
~Vladimir~
Member

Откуда: преподаватель
Сообщений: 198
tarar
Уважаемые форумчане, Подскажите, пожалуйста, мне, неучу, как сделать так, чтоб при нажатии на кнопку открывался диалог выбора папки, а после выбора папки путь попадал в текстовое поле?
Где-то нашел вот такой пример, но там выбор файла, а мне нужен выбор папки.
Буду ооочень признателен!


Дополнительный вопрос по FileDialog.
Все решения, которые я смог найти при нажатии на кнопку ОТКРЫТЬ закрывается диалоговое окно. Открыть файл можно только правой кнопкой мыши.
Как задействовать кнопку ОТКРЫТЬ?
26 янв 11, 15:48    [10135358]     Ответить | Цитировать Сообщить модератору
Между сообщениями интервал более 1 года.
 Re: Вызов диалога для выбора папки в Access (VBA)  [new]
Гость140111
Guest
ё, а у меня не работает. Ассесс 2013. Вызов функции по двойному щелчку на поле. Сначала выругался на "МаёПоле", я вставил правильное имя и больше ничего не происходит...
11 янв 14, 20:09    [15402341]     Ответить | Цитировать Сообщить модератору
 Re: Вызов диалога для выбора папки в Access (VBA)  [new]
Гость140111
Guest
ё, звиняюсь, разобрался. Имя поля под дабл-кликом поменял, а в вызове функции старое имя осталось...
11 янв 14, 20:19    [15402379]     Ответить | Цитировать Сообщить модератору
Все форумы / Microsoft Access Ответить