Weer geven en gebruiken in het dialoog venster bestand in Access 2002

Vertaalde artikelen Vertaalde artikelen
Artikel ID: 279508 - Bekijk de producten waarop dit artikel van toepassing is.
Voor een Microsoft Office Access 2003-versie van dit artikel, Zie824272.
Geavanceerd: Expert codering vereist interoperabiliteit en meerdere gebruikers vaardigheden.

Dit artikel is van toepassing op een Microsoft Access-database (. mdb) en een Microsoft Access project (. adp).

Alles uitklappen | Alles samenvouwen

Samenvatting

In dit artikel ziet u hoe u met de nieuweFile Dia logmethode in Microsoft Access het ingebouwde dialoog venster weer geven het vak en om te bepalen wat de gebruiker bestanden geselecteerd.

OPMERKING: DeFile Dia logmethode werkt alleen in de volledige handels versie van Microsoft Access. Deze methode werkt niet in een Microsoft Access-runtimeprogramma.

Meer informatie

In eerdere versies van Microsoft Access kon u niet het dialoog venster bestand zonder ofwel het algemene Microsoft-venster weer geven ActiveX-besturingselement of door de Windows API aanroepen.

In Microsoft Access 2002 hetFile Dia logmethode kunt u het dialoog venster bestand wordt gebruikt door Microsoft Access en om te bepalen welke bestanden door de gebruiker zijn geselecteerd. HetSelectedItemsverzameling van deFile Dia logbevat de paden naar de bestanden die door de gebruiker geselecteerde object. Door met behulp van een...Elkelus, kunt u deze collectie opsommen en elk bestand weer geven. In het volgende voorbeeld doorlopen hetItemsSelectedde verzameling en de bestanden in een lijst weer gegeven.

Microsoft biedt program meer voorbeelden ter illustratie alleen, zonder expliciete of impliciete garantie. Dit omvat, maar is niet beperkt tot, de impliciete garanties van verkoopbaarheid of geschiktheid voor een bepaald doel. In dit artikel wordt ervan uitgegaan dat u bekend met de programmeer taal worden opgespoord en met de hulp programma's die worden gebruikt bent voor het maken en waarmee fouten in procedures. Ondersteuningstechnici van Microsoft kunnen helpen verklaren de functionaliteit van een bepaalde procedure, maar zij zal deze voorbeelden om extra functionaliteit of samens tellen van procedures om te voldoen aan uw specifieke vereisten niet wijzigen.
  1. Open de voorbeeld data base Noordenwind. mdb.
  2. Een nieuw, leeg formulier maken in ontwerpweergave.
  3. De volgende besturings elementen aan het formulier toevoegen:
    
       Command button
       --------------------------
       Name: cmdFileDialog
       Caption: Add Files
       OnClick: [Event Procedure]
    
       List box
       -------------------------
       Name: FileList
       RowSourceType: Value List
    					
  4. Op deWeergavemenu, klikt u opCodemodule van het formulier in de Visual Basic Editor openen.
  5. Op deHulp programma'smenu, klikt u opVerwijzingen.
  6. Schakel deMicrosoft Office 10. 0 Object Libraryselectie vakje.
  7. Klik opOKsluiten deVerwijzingenhet dialoog venster.
  8. Voeg de volgende code om de formulier module:
    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. Sla het formulier op als Formulier1 en sluit het.
  10. Open Formulier1 in de formulier weergave.
  11. Klik opBestanden toevoegen. Houd er rekening mee dat deSelecteer een of meer bestandenhet dialoog venster wordt weer gegeven.
  12. Selecteer een of meer bestanden en klik opOK, of klik opAnnuleren.
Als u een of meer bestanden hebt geselecteerd, ziet u dat de bestands namen in de keuze lijst weer gegeven. Als u hebt gekliktAnnuleren, opmerking dat u een bericht dat aangeeft ontvangt dat u hebt gekliktAnnuleren.

Referenties

Voor meer informatie informatie over wat u met het dialoog venster bestand Visual Basic doen kunt Editor, klikt u opMicrosoft Visual Basic Helpop deHelpin het menu typeFileDialog-objectin de Office-assistent of de Antwoordwizard en klikt u vervolgens opZoekenom het onderwerp weer te geven.

Eigenschappen

Artikel ID: 279508 - Laatste beoordeling: zaterdag 17 september 2011 - Wijziging: 3.0
De informatie in dit artikel is van toepassing op:
  • Microsoft Access 2002 Standard Edition
Trefwoorden: 
kbprogramming kbhowto kbmt KB279508 KbMtnl
Automatisch vertaald artikel
BELANGRIJK: Dit artikel is vertaald door de vertaalmachine software van Microsoft in plaats van door een professionele vertaler. Microsoft biedt u professioneel vertaalde artikelen en artikelen vertaald door de vertaalmachine, zodat u toegang heeft tot al onze knowledge base artikelen in uw eigen taal. Artikelen vertaald door de vertaalmachine zijn niet altijd perfect vertaald. Deze artikelen kunnen fouten bevatten in de vocabulaire, zinsopbouw en grammatica en kunnen lijken op hoe een anderstalige de taal spreekt en schrijft. Microsoft is niet verantwoordelijk voor onnauwkeurigheden, fouten en schade ontstaan door een incorrecte vertaling van de content of het gebruik ervan door onze klanten. Microsoft past continue de kwaliteit van de vertaalmachine software aan door deze te updaten.
De Engelstalige versie van dit artikel is de volgende:279508

Geef ons feedback

 

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