Τρόπος εμφάνισης και χρησιμοποιήστε το πλαίσιο διαλόγου αρχείο στην Access 2002

Μεταφράσεις άρθρων Μεταφράσεις άρθρων
Αναγν. άρθρου: 279508 - Δείτε τα προϊόντα στα οποία αναφέρεται το συγκεκριμένο άρθρο.
Για μια έκδοση του Microsoft Office Access 2003 το άρθρο, ανατρέξτε στην ενότητα 824272.
Για προχωρημένους: Απαιτεί εμπειρογνωμόνων κωδικοποίηση διαλειτουργικότητα και δεξιότητες πολλών χρηστών.

Αυτό το άρθρο ισχύει για το Microsoft Πρόσβαση στη βάση δεδομένων (.mdb) και στη Microsoft Access έργου (.adp).

Ανάπτυξη όλων | Σύμπτυξη όλων

Περίληψη

Αυτό το άρθρο παρουσιάζει τον τρόπο χρήσης του νέου FileDialog μέθοδος στη Microsoft Access για να εμφανίσετε το παράθυρο διαλόγου ενσωματωμένο αρχείο πλαίσιο και για να προσδιορίσετε ποια αρχεία ο χρήστης επιλέξει.

ΣΗΜΕΊΩΣΗ: Το FileDialog η μέθοδος λειτουργεί μόνο σε πλήρη τελική έκδοση της Microsoft Access. Αυτή η μέθοδος δεν λειτουργεί σε μια εφαρμογή χρόνου εκτέλεσης της Microsoft Access.

Περισσότερες πληροφορίες

Σε παλαιότερες εκδόσεις της Microsoft Access, ήταν δεν Εμφάνιση παραθύρου διαλόγου αρχείου χωρίς να χρησιμοποιήσετε είτε το Microsoft κοινό παράθυρο διαλόγου Στοιχείο ελέγχου ActiveX ή πραγματοποιώντας κλήσεις API των Windows.

Στο Microsoft Η Access 2002, το FileDialog μέθοδος σας επιτρέπει να εμφανίσετε το πλαίσιο διαλόγου αρχείο χρησιμοποιείται από Η Microsoft Access και για να προσδιορίσετε ποια αρχεία έχουν επιλεγεί από το χρήστη. Το SelectedItems συλλογή του FileDialog το αντικείμενο περιέχει τις διαδρομές για τα αρχεία που επιλέξατε από το χρήστη. Από χρησιμοποιώντας ένα Για...Κάθε επανάληψη, μπορείτε να απαριθμήσετε αυτήν τη συλλογή και εμφάνιση κάθε αρχείο. Το ακόλουθο παράδειγμα διέρχεται από το 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. Κάντε κλικ στο κουμπί OK Για να κλείσετε το Αναφορές στο παράθυρο διαλόγου.
  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. Επιλέξτε ένα ή περισσότερα αρχεία και στη συνέχεια κάντε κλικ στο κουμπί OK, ή κάντε κλικ στο κουμπί Άκυρο.
Εάν έχετε επιλέξει ένα ή περισσότερα αρχεία, σημειώστε ότι αυτά τα ονόματα αρχείων εμφανίζονται στο πλαίσιο λίστας. Εάν κάνατε κλικ Άκυρο, σημειώστε ότι λαμβάνετε ένα μήνυμα που υποδεικνύει ότι κάνατε κλικ Άκυρο.

Αναφορές

Για περισσότερες πληροφορίες πληροφορίες σχετικά με το τι μπορείτε να κάνετε με το παράθυρο διαλόγου αρχείου σε Visual Basic Κάντε κλικ στο πρόγραμμα επεξεργασίας, Η Microsoft Visual Basic Help από το Βοήθεια μενού, πληκτρολογήστε αντικείμενο FileDialog στο Βοηθό του Office ή "Οδηγός απαντήσεων" και στη συνέχεια κάντε κλικ Αναζήτηση Για να προβάλετε το θέμα.

Ιδιότητες

Αναγν. άρθρου: 279508 - Τελευταία αναθεώρηση: Σάββατο, 17 Σεπτεμβρίου 2011 - Αναθεώρηση: 7.0
Οι πληροφορίες σε αυτό το άρθρο ισχύουν για:
  • Microsoft Access 2002 Standard Edition
Λέξεις-κλειδιά: 
kbprogramming kbhowto kbmt KB279508 KbMtel
Μηχανικά μεταφρασμένο
ΣΗΜΑΝΤΙΚΟ: Αυτό το άρθρο είναι προϊόν λογισμικού μηχανικής μετάφρασης της Microsoft και όχι ανθρώπινης μετάφρασης. Η Microsoft σάς προσφέρει άρθρα που είναι προϊόντα ανθρώπινης αλλά και μηχανικής μετάφρασης έτσι ώστε να έχετε πρόσβαση σε όλα τα άρθρα της Γνωσιακής Βάσης μας στη δική σας γλώσσα. Ωστόσο, ένα άρθρο που έχει προκύψει από μηχανική μετάφραση δεν είναι πάντα άριστης ποιότητας. Ενδέχεται να περιέχει λεξιλογικά, συντακτικά ή γραμματικά λάθη, όπως ακριβώς τα λάθη που θα έκανε ένας μη φυσικός ομιλητής επιχειρώντας να μιλήσει τη γλώσσα σας. Η Microsoft δεν φέρει καμία ευθύνη για τυχόν ανακρίβειες, σφάλματα ή ζημίες που προκύψουν λόγω τυχόν παρερμηνειών στη μετάφραση του περιεχομένου ή χρήσης του από τους πελάτες της. Επίσης, η Microsoft πραγματοποιεί συχνά ενημερώσεις στο λογισμικό μηχανικής μετάφρασης.
Η αγγλική έκδοση αυτού του άρθρου είναι η ακόλουθη:279508

Αποστολή σχολίων

 

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