文章編號: 824272 - 上次校閱: 2006年10月11日 - 版次: 2.4

如何顯示，以及使用 Microsoft Access 中的 [檔案] 對話方塊

中英文對照顯示按一下這裡顯示機器翻譯的中英文對照
機器翻譯檢視機器翻譯免責聲明
檢視此文章適用的產品。
系統提示本文適用於您使用的作業系統之外的作業系統。與您不相關的文章內容已停用。
這份文件適用於 Microsoft Access 資料庫 (.mdb) 和 Microsoft Access 專案 (.adp)。

進階： 須具備專家編碼、 互通性，與多使用者技能。
本文章的有 Microsoft Access 2002] 版本請參閱 279508? (http://support.microsoft.com/kb/279508/ ) 。
全部展開 | 全部摺疊

結論

本文將告訴您如何在 Microsoft Access 中使用新的 FileDialog 方法顯示內建的 [檔案] 對話方塊，並判斷使用者選取的檔案。

附註FileDialog 方法只有在完整的零售版本的 Microsoft Access 中運作。 這個方法不適用於 Microsoft Access 執行階段應用程式。
回此頁最上方

其他相關資訊

在舊版的 Microsoft Access 中，您可能會顯示 [檔案] 對話方塊，使用 Microsoft 通用型對話方塊 ActiveX 控制項，或呼叫 Windows API。

在 Microsoft Office Access 2003 中使用 FileDialog 方法，即可顯示 [檔案] 對話方塊中所使用的 Microsoft Access，並判斷使用者選取的檔案。FileDialog 物件的 SelectedItems 集合包含使用者所選取的檔案路徑。藉由使用一 對每個 迴圈，您可以列舉這個集合，然後顯示每個檔案。下列範例 ItemsSelected 集合中循環，，然後在清單方塊中顯示的檔案。

Microsoft 僅，為了說明提供程式設計範例，不提供任何明示或默示的保證。這包括，但不限於適售性或適合某特定用途之默示擔保責任。本文假設您已熟悉使用我們所示範的程式設計語言以及建立和偵錯程序所使用的工具。Microsoft 技術支援工程師可以協助解釋特定程序的功能，但它們不會修改這些範例以提供附加功能或建構程序，以符合您特定需求。
  1. 啟動 Microsoft Access。
  2. 開啟範例資料庫 Northwind.mdb。
  3. 在 [資料庫] 視窗中按一下 [物件] 下的 [表單]。
  4. 在右窗格中按兩下 [建立表單] 設計檢視]。
  5. 將下列控制項加入至表單：
    	Command button
	--------------------------
	Name: cmdFileDialog
	Caption: Add Files
	OnClick: [Event Procedure]

	List box
	-------------------------
	Name: FileList
	RowSourceType: Value List
  6. 按一下 [檢視] 功能表 程式碼 若要開啟表單的模組在 Microsoft Visual Basic 編輯器。
  7. 按一下 [工具] 功能表 引用項目。
  8. 在 參考的 DatabaseName] 對話方塊按一下以選取 [Microsoft Office 11.0 物件程式庫] 核取方塊，然後再按一下 [確定]。
  9. 將下列程式碼加入至表單的模組： 
    Option Compare Database
Option Explicit
      
Private Sub cmdFileDialog_Click()

' This requires a reference to the Microsoft Office 11.0 Object Library.

   Dim fDialog As Office.FileDialog
   Dim varFile As Variant

   ' Clear the list box contents.
   Me.FileList.RowSource = ""

   ' Set up the File dialog box.
   Set fDialog = Application.FileDialog(msoFileDialogFilePicker)
   With fDialog
      ' Allow the user to make multiple selections in the dialog box.
      .AllowMultiSelect = True
            
      ' Set the title of the dialog box.
      .Title = "Select One or More Files"

      ' Clear out the current filters, and then add your 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 that is selected and then add it to the 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
  10. 將表單儲存為 Form1，然後再關閉它。
  11. 在 [資料庫] 視窗中選取 [Form1]，然後按一下 [開啟] 以在 [表單] 檢視中開啟表單。
  12. 按一下 [新增檔案]。選取一份] 或 [其他檔案] 對話方塊隨即出現。
  13. 選取一或多個檔案，然後按一下 [確定]，或按一下 [取消]。
如果您選取 [一或多個檔案，您可能會發現檔案名稱會顯示在清單方塊。如果您按一下 [取消] 時，您可能會收到一則訊息，指出您按了 [取消]。
回此頁最上方

?考

如需有關您可以如何使用 [檔案] 對話方塊，在 Visual Basic 編輯器] 中，請按一下 [說明] 功能表上的 [Microsoft Visual Basic 說明，並在 [輔助中心] 窗格中的 [搜尋] 方塊中輸入 filedialog 物件 然後按一下 [開始搜尋] 以檢視主題。
回此頁最上方
這篇文章中的資訊適用於:
  • Microsoft Office Access 2003
回此頁最上方
關鍵字：?
kbmt kbprogramming kbfile kbcode kbusage kbhowto KB824272 KbMtzh
回此頁最上方
機器翻譯機器翻譯
重要：本文是以 Microsoft 機器翻譯軟體翻譯而成，而非使用人工翻譯而成。Microsoft 同時提供使用者人工翻譯及機器翻譯兩個版本的文章，讓使用者可以依其使用語言使用知識庫中的所有文章。但是，機器翻譯的文章可能不盡完美。這些文章中也可能出現拼字、語意或文法上的錯誤，就像外國人在使用本國語言時可能發生的錯誤。Microsoft 不為內容的翻譯錯誤或客戶對該內容的使用所產生的任何錯誤或損害負責。Microsoft也同時將不斷地就機器翻譯軟體進行更新。
按一下這裡查看此文章的英文版本：824272? (http://support.microsoft.com/kb/824272/en-us/ )
回此頁最上方
Microsoft及(或)其供應商不就任何在本伺服器上發表的文字資料及其相關圖表資訊的恰當性作任何承諾。所有文字資料及其相關圖表均以「現狀」供應，不負任何擔保責任。Microsoft及(或)其供應商謹此聲明，不負任何對與此資訊有關之擔保責任，包括關於適售性、適用於某一特定用途、權利或不侵權的明示或默示擔保責任。Microsoft及(或)其供應商無論如何不對因或與使用本伺服器上資訊或與資訊的實行有關而引起的契約、過失或其他侵權行為之訴訟中的特別的、間接的、衍生性的損害或任何因使用而喪失所導致的之損害、資料或利潤負任何責任。