MyTetra Share
Делитесь знаниями!
Вызов диалога для выбора папки в Access (VBA)
Время создания: 16.03.2019 23:43
Текстовые метки: access, VBA, get, path
Раздел: !Закладки - VBA - Access
  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
Так же в этом разделе:
 
MyTetra Share v.0.53
Яндекс индекс цитирования