Como apresentar e utilizar a caixa de diálogo ficheiro no Microsoft Access

Este artigo descreve como utilizar o novo método FileDialog no Microsoft Access para apresentar a caixa de diálogo ficheiro incorporada e determinar os ficheiros que o utilizador selecciona.

Nota O método FileDialog funciona apenas em versão de revenda completa do Microsoft Access. Este método não funciona numa aplicação do Microsoft Access run-time.

Em versões anteriores do Microsoft Access, pode apresentar a caixa de diálogo de ficheiro utilizando o controlo de ActiveX de Caixa de diálogo comum da Microsoft ou efectuar chamadas à API do Windows.

Utilizando o método FileDialog no Microsoft Office Access 2003, pode apresentar a caixa de diálogo ficheiro que é utilizada pelo Microsoft Access e para determinar os ficheiros que o utilizador selecciona. A colecção SelectedItems do objecto FileDialog contém os caminhos para os ficheiros seleccionados pelo utilizador. Utilizando um De cada ciclo, poderá enumerar este conjunto e, em seguida, visualizar cada ficheiro. O exemplo a seguir a colecção ItensSeleccionados e, em seguida, apresenta ficheiros na caixa de listagem.

A Microsoft fornece exemplos de programação apenas, para fins sem garantia expressa ou implícita. Isto inclui, mas não está limitado a, as garantias implícitas de comercialização ou adequação a um fim específico. Este artigo pressupõe que está familiarizado com a linguagem de programação apresentada e as ferramentas que são utilizadas para criar e depurar procedimentos. Os técnicos de suporte da Microsoft podem ajudar a explicar a funcionalidade de um determinado procedimento, mas não modificarão estes exemplos para proporcionarem funcionalidades adicionais nem criarão procedimentos adaptados às necessidades específicas do utilizador.

1. Inicie o Microsoft Access.
2. Abra a base de dados exemplo Adamastor.mdb.
3. Na janela Base de dados, clique em formulários em objectos .
4. No painel direito, faça duplo clique Criar formulário na vista de estrutura .
5. Adicione os seguintes controlos ao formulário:
   

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

6. No menu Ver , clique em código para abrir o módulo do formulário no Microsoft Visual Basic Editor.
7. No menu Ferramentas , clique em References .
8. Na caixa de diálogo References-DatabaseName, clique para seleccionar a caixa de verificação do Microsoft Office 11.0 Object Library e, em seguida, clique em OK .
9. Adicione o seguinte código ao 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. Guarde o formulário como Formulário1 e, em seguida, fechá-lo.
11. Na janela Base de dados, seleccione Form1 e, em seguida, clique em Abrir para abrir o formulário na vista de formulário.
12. Clique em Adicionar ficheiros . A caixa de diálogo Seleccionar um ou mais ficheiros é apresentada.
13. Seleccione um ou mais ficheiros e em seguida, clique em OK ou clique em ' Cancelar ' .

Se seleccionar um ou mais ficheiros, poderá notar que os nomes de ficheiro aparecem na caixa de listagem. Se clicar em Cancelar , poderá receber uma mensagem a indicar que clicou em ' Cancelar ' .

Para obter mais informações sobre o que pode fazer com a caixa de diálogo ficheiro, no Editor do Visual Basic, clique em Ajuda do Microsoft Visual Basic no menu Ajuda , escreva o objecto Selection na caixa Procurar do painel de assistência e, em seguida, clique em Iniciar a procura para visualizar o tópico.