如何显示和使用在 Access 2002 中的文件对话框

文章翻译 文章翻译
文章编号: 279508 - 查看本文应用于的产品
为这篇文章的一个 Microsoft Office Access 2003 版本,请参阅 824272
高级: 需要专家编码、 互操作性,和多用户技能。

本文适用于 Microsoft Access 数据库 (.mdb) 和 Microsoft Access 项目 (.adp)。

展开全部 | 关闭全部

概要

本文介绍如何在 Microsoft Access 使用新的 FileDialog 方法,以显示内置的文件对话框,并确定哪些文件用户选择。

: 仅在 Microsoft Access 的完整零售版本中有效: FileDialog 方法。 在 Microsoft Access 运行时应用程序中,此方法不起作用。

更多信息

在早期版本的 Microsoft Access 中,您无法显示文件对话框而不使用任一 Microsoft 通用对话框 ActiveX 控件或通过调用 Windows API。

在 Microsoft Access 2002,FileDialog 方法允许您显示 Microsoft access 在文件对话框,并确定哪些文件由用户选择。SelectedItemsFileDialog 对象的集合包含该用户选择文件的路径。通过使用一个 For....每 循环,您可以枚举该集合并显示每个文件。 下面的示例 ItemsSelected 集合中循环,并显示一个列表框中的文件。

Microsoft 提供的编程示例只,用于说明不附带任何明示或暗示保证。这包括,但不限于对适销性或针对特定用途的适用性的暗示的担保。本文假定您熟悉演示了正在使用的编程语言以及用于创建和调试过程的工具。Microsoft 支持工程师可以帮助解释某个特定过程的功能,但他们不会修改这些示例以提供额外的功能或构建过程来满足您的具体要求。
  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 帮助、 在 Office 助手或应答向导中,键入 filedialog 对象,然后单击 搜索 以查看相关主题。

属性

文章编号: 279508 - 最后修改: 2006年10月11日 - 修订: 4.2
这篇文章中的信息适用于:
  • Microsoft Access 2002 标准版
关键字:?
kbmt kbprogramming kbhowto KB279508 KbMtzh
机器翻译
注意:这篇文章是由无人工介入的微软自动的机器翻译软件翻译完成。微软很高兴能同时提供给您由人工翻译的和由机器翻译的文章, 以使您能使用您的语言访问所有的知识库文章。然而由机器翻译的文章并不总是完美的。它可能存在词汇,语法或文法的问题,就像是一个外国人在说中文时总是可能犯这样的错误。虽然我们经常升级机器翻译软件以提高翻译质量,但是我们不保证机器翻译的正确度,也不对由于内容的误译或者客户对它的错误使用所引起的任何直接的, 或间接的可能的问题负责。
点击这里察看该文章的英文版: 279508
Microsoft和/或其各供应商对于为任何目的而在本服务器上发布的文件及有关图形所含信息的适用性,不作任何声明。 所有该等文件及有关图形均"依样"提供,而不带任何性质的保证。Microsoft和/或其各供应商特此声明,对所有与该等信息有关的保证和条件不负任何责任,该等保证和条件包括关于适销性、符合特定用途、所有权和非侵权的所有默示保证和条件。在任何情况下,在由于使用或运行本服务器上的信息所引起的或与该等使用或运行有关的诉讼中,Microsoft和/或其各供应商就因丧失使用、数据或利润所导致的任何特别的、间接的、衍生性的损害或任何因使用而丧失所导致的之损害、数据或利润不负任何责任。

提供反馈

 

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