Отображение и использование диалогового окна файла в Microsoft Access 2002

Переводы статьи Переводы статьи
Код статьи: 279508 - Vizualiza?i produsele pentru care se aplic? acest articol.
Для этой версии Microsoft Office Access 2003 статьи, см. 824272.
Дополнительно: Требует изложенный, взаимодействие и многопользовательской навыков.

В данной статье относится к Microsoft Доступ к базе данных (.mdb) и в Microsoft Access (.adp) для проекта.

Развернуть все | Свернуть все

Аннотация

В этой статье показано, как использовать новое Классов FileDialog метод в Microsoft Access для отображения диалогового окна встроенного файла поле и для определения того, какие файлы пользователя установлен.

ПРИМЕЧАНИЕ: Классов FileDialog метод работает только в полноценную розничную версию Microsoft Access. Этот метод не работает в приложении Microsoft Access во время выполнения.

Дополнительная информация

В более ранних версиях Microsoft Access вам не удалось Откроется диалоговое окно файл без использования либо Microsoft общих диалоговых окон Элемент управления ActiveX или с помощью вызовов интерфейса Windows API.

В корпорации Майкрософт Microsoft Access 2002 Классов FileDialog метод позволяет отображать диалоговое окно файла, используемого Microsoft Access и определить, какие файлы были выбраны пользователем. В SelectedItems Коллекция Классов FileDialog объект содержит пути к файлам, выбранный пользователем. По с помощью Для...Каждый цикл, для перечисления коллекции и отображение каждого файла. В этом примере выполняется цикл по ItemsSelected Сбор и отображение файлов в поле со списком.

Корпорация Майкрософт предлагает примеры программного кода только для иллюстрации Это включает, но не ограничивается, подразумеваемые гарантии товарности или пригодности для определенной цели. В данной статье предполагается, что вы знакомы с языком программирования предложенном и с помощью средств, которые используются для создания и отладки. Сотрудники службы поддержки Майкрософт могут пояснить конкретной процедуры, но они будут изменять примеры для реализации дополнительных возможностей или удовлетворения конкретных требований.
  1. Откройте базу данных Northwind.mdb.
  2. Создание новой пустой формы в режиме конструктора.
  3. Добавьте в форму следующие элементы управления:
    
       Command button
       --------------------------
       Name: cmdFileDialog
       Caption: Add Files
       OnClick: [Event Procedure]
    
       List box
       -------------------------
       Name: FileList
       RowSourceType: Value List
    					
  4. На Представление меню, нажмите кнопку Код Чтобы открыть модуль формы в редакторе Visual Basic.
  5. На Сервис меню, нажмите кнопку Ссылки.
  6. Выберите Библиотека объектов Microsoft Office 10.0 флажок.
  7. Нажмите кнопку ОК Чтобы закрыть Ссылки диалоговое окно.
  8. Добавьте следующий код в модуль формы:
    Option Compare Database
    Option Explicit
          
    Private Sub cmdFileDialog_Click()
    
    'Requires reference to Microsoft Office 10.0 Object Library.
    
       Dim fDialog As Office.FileDialog
       Dim varFile As Variant
    
       'Clear listbox contents.
       Me.FileList.RowSource = ""
    
       'Set up the File Dialog.
       Set fDialog = Application.FileDialog(msoFileDialogFilePicker)
       With fDialog
          'Allow user to make multiple selections in dialog box
          .AllowMultiSelect = True
                
          'Set the title of the dialog box.
          .Title = "Please select one or more files"
    
          'Clear out the current filters, and add our own.
          .Filters.Clear
          .Filters.Add "Access Databases", "*.MDB"
          .Filters.Add "Access Projects", "*.ADP"
          .Filters.Add "All Files", "*.*"
    
          'Show the dialog box. If the .Show method returns True, the
          'user picked at least one file. If the .Show method returns
          'False, the user clicked Cancel.
          If .Show = True Then
             'Loop through each file selected and add it to our list box.
             For Each varFile In .SelectedItems
                Me.FileList.AddItem varFile
             Next
          Else
             MsgBox "You clicked Cancel in the file dialog box."
          End If
       End With
    End Sub
    					
  9. Сохраните форму с именем Form1, а затем закройте его.
  10. Откройте форму Form1 в режиме формы.
  11. Нажмите кнопку Добавление файлов. Обратите внимание, что Пожалуйста, выберите один или несколько файловПоявится диалоговое окно.
  12. Выберите один или несколько файлов и нажмите кнопку ОК, или нажмите кнопку Отмена.
Если вы выбрали один или несколько файлов, следует иметь в виду, что те имена файлов отображаются в поле со списком. Если была нажата кнопка Отмена, заметки, появляется сообщение о том, что была нажата кнопка Отмена.

Ссылки

Для получения дополнительных сведения о работе с диалоговым окном файла, в Visual Basic Редактор, нажмите кнопку Справка по Microsoft Visual Basic В меню Справка Тип меню объект классов FileDialog в поле помощника Office или мастера ответов и нажмите кнопку Поиск Чтобы просмотреть раздел.

Свойства

Код статьи: 279508 - Последний отзыв: 17 сентября 2011 г. - Revision: 9.0
Информация в данной статье относится к следующим продуктам.
  • Microsoft Access 2002 Standard Edition
Ключевые слова: 
kbprogramming kbhowto kbmt KB279508 KbMtru
Переведено с помощью машинного перевода
ВНИМАНИЕ! Перевод данной статьи был выполнен не человеком, а с помощью программы машинного перевода, разработанной корпорацией Майкрософт. Корпорация Майкрософт предлагает вам статьи, переведенные как людьми, так и средствами машинного перевода, чтобы у вас была возможность ознакомиться со статьями базы знаний KB на родном языке. Однако машинный перевод не всегда идеален. Он может содержать смысловые, синтаксические и грамматические ошибки, подобно тому как иностранец делает ошибки, пытаясь говорить на вашем языке. Корпорация Майкрософт не несет ответственности за неточности, ошибки и возможный ущерб, причиненный в результате неправильного перевода или его использования. Корпорация Майкрософт также часто обновляет средства машинного перевода.
Эта статья на английском языке:279508

Отправить отзыв

 

Contact us for more help

Contact us for more help
Connect with Answer Desk for expert help.
Get more support from smallbusiness.support.microsoft.com