Como exibir e usar a caixa de diálogo arquivo no Microsoft Access

Este artigo descreve como usar o novo método FileDialog no Microsoft Access para exibir a caixa de diálogo arquivo interna e para determinar os arquivos que o usuário seleciona.

Observação O método FileDialog funciona apenas na versão comercial completa do Microsoft Access. Esse método não funciona em um aplicativo de tempo de execução do Microsoft Access.

Em versões anteriores do Microsoft Access, você pode exibir a caixa de diálogo de arquivo usando o controle de Microsoft Common Dialog ActiveX ou fazendo chamadas para a API do Windows.

Usando o método FileDialog no Microsoft Office Access 2003, você pode exibir a caixa de diálogo arquivo que é usada pelo Microsoft Access e para determinar os arquivos que o usuário seleciona. A coleção SelectedItems do objeto FileDialog contém os caminhos para os arquivos que são selecionados pelo usuário. Usando um Para cada loop, você pode enumerar essa coleção e, em seguida, exibir cada arquivo. O exemplo a seguir circula a coleção ItemsSelected e, em seguida, exibe arquivos na caixa de listagem.

Microsoft fornece exemplos de programação apenas para ilustração, sem garantia expressa ou implícita. Isso inclui, mas não está limitado a, garantias implícitas de comercialização ou adequação para uma finalidade específica. Este artigo presume que você está familiarizados com a linguagem de programação que está sendo demonstrada e com as ferramentas que são usadas para criar e depurar procedimentos. Engenheiros de suporte podem ajudar a explicar a funcionalidade de um determinado procedimento, mas eles não modificarão esses exemplos para fornecer funcionalidades adicionais ou construir procedimentos para atender às suas necessidades.

1. Inicie o Microsoft Access.
2. Abra o banco de dados de exemplo Northwind.mdb.
3. Na janela banco de dados, clique em formulários sob objetos .
4. No painel direito, clique duas vezes em Criar formulário no modo de design .
5. Adicione os seguintes controles ao formulário:
   

   	Command button
   	--------------------------
   	Name: cmdFileDialog
   	Caption: Add Files
   	OnClick: [Event Procedure]
   
   	List box
   	-------------------------
   	Name: FileList
   	RowSourceType: Value List
   

6. No menu Exibir , clique em código para abrir o módulo do formulário no Editor do Microsoft Visual Basic.
7. No menu Ferramentas , clique em referências .
8. Na caixa de diálogo referências-DatabaseName, clique para marque a caixa de seleção do Microsoft Office 11.0 Object Library e, em seguida, clique em OK .
9. Adicione o seguinte código para o módulo do formulário: cmdFileDialog_Click()

   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. Salve o formulário como Form1 e, em seguida, fechá-lo.
11. Na janela banco de dados, selecione Form1 e, em seguida, clique em Abrir para abrir o formulário no modo formulário.
12. Clique em Adicionar arquivos . A caixa de diálogo Selecionar um ou mais arquivos é exibida.
13. Selecione um ou mais arquivos e em seguida, clique em OK ou clique em Cancelar .

Se você selecionar um ou mais arquivos, você pode observar que os nomes de arquivo são exibidos na caixa de listagem. Se você clicar em Cancelar , você poderá receber uma mensagem que indica que você clicou em Cancelar .

Para obter mais informações sobre o que você pode fazer com a caixa de diálogo arquivo, no Editor do Visual Basic, clique em Ajuda do Microsoft Visual Basic no menu Ajuda , digite o objeto filedialog na caixa Procurar no painel Assistência e clique em Iniciar pesquisa para exibir o tópico.