Cara menampilkan dan menggunakan kotak dialog file dalam akses 2002

Terjemahan Artikel Terjemahan Artikel
ID Artikel: 279508 - Melihat produk di mana artikel ini berlaku.
Untuk versi Microsoft Office Access 2003 ini Pasal, lihat 824272.
Lanjutan: Memerlukan ahli pengkodean, interoperabilitas, dan keterampilan multiuser.

Artikel ini berlaku untuk Microsoft Mengakses database (.mdb) dan untuk Microsoft Access proyek (.adp).

Perbesar semua | Perkecil semua

RINGKASAN

Artikel ini menunjukkan kepada Anda bagaimana menggunakan new FileDialog metode dalam Microsoft Access untuk menampilkan dialog built-in file kotak dan untuk menentukan apa file pengguna yang dipilih.

CATATAN: FileDialog metode ini bekerja hanya dalam versi eceran penuh Microsoft Access. Metode ini tidak berhasil dalam aplikasi Microsoft Access run-time.

INFORMASI LEBIH LANJUT

Dalam versi sebelumnya dari Microsoft Access, Anda tidak bisa menampilkan kotak dialog file tanpa menggunakan baik Microsoft Dialog umum Kontrol ActiveX atau dengan membuat panggilan ke Windows API.

Di Microsoft Akses 2002, FileDialog metode memungkinkan Anda untuk menampilkan kotak dialog file yang digunakan oleh Microsoft Access dan untuk menentukan file apa yang dipilih oleh pengguna. The SelectedItems Koleksi FileDialog objek berisi jalan ke file yang dipilih oleh pengguna. Oleh menggunakan Untuk...Setiap loop, Anda dapat menghitung koleksi ini dan setiap file. Contoh berikut loop melalui ItemsSelected Koleksi dan menampilkan file dalam daftar kotak.

Microsoft menyediakan contoh pemrograman hanya sebagai ilustrasi, tanpa jaminan apa pun baik tersurat maupun tersirat. Termasuk, namun tidak terbatas pada, jaminan tersirat mengenai kelayakan untuk diperdagangkan atau kesesuaian untuk keperluan tertentu. Artikel ini mengasumsikan bahwa Anda telah terbiasa dengan bahasa pemrograman yang ditunjukkan dan dengan alat yang digunakan untuk membuat dan mendebug prosedur. Teknisi dukungan Microsoft dapat membantu menjelaskan fungsionalitas prosedur tertentu, namun mereka tidak akan memodifikasi contoh untuk memberikan fungsionalitas tambahan atau menyusun prosedur untuk memenuhi persyaratan khusus Anda.
  1. Buka database contoh Northwind.mdb.
  2. Membuat bentuk kosong baru dalam Design view.
  3. Tambahkan kontrol berikut untuk bentuk:
    
       Command button
       --------------------------
       Name: cmdFileDialog
       Caption: Add Files
       OnClick: [Event Procedure]
    
       List box
       -------------------------
       Name: FileList
       RowSourceType: Value List
    					
  4. Pada Lihat menu, klik Kode untuk membuka formulir modul di Editor Visual Basic.
  5. Pada Alat menu, klik Referensi.
  6. Klik untuk memilih Perpustakaan objek Microsoft Office 10,0 kotak centang.
  7. Klik Oke untuk menutup Referensi kotak dialog.
  8. Tambahkan kode berikut untuk Formulir modul:
    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. Simpan bentuk sebagai Form1, dan kemudian tutup.
  10. Membuka formulir Form1 dalam bentuk tampilan.
  11. Klik Menambahkan file. Perhatikan bahwa Pilih satu atau lebih berkaskotak dialog akan muncul.
  12. Pilih satu atau lebih berkas, dan kemudian klik Oke, atau klik Batalkan.
Jika Anda memilih satu atau lebih berkas, perhatikan bahwa mereka mengajukan nama muncul dalam daftar kotak. Jika Anda mengklik Batalkan, catatan bahwa Anda menerima pesan yang menunjukkan bahwa Anda mengklik Batalkan.

REFERENSI

Untuk lebih informasi tentang apa yang dapat Anda lakukan dengan kotak dialog file, dalam Visual Basic Editor, klik Microsoft Visual Basic bantuan pada Bantuan menu, jenis filedialog obyek di kantor asisten atau jawaban Wizard, dan kemudian klik Mencari untuk melihat topik.
Note This is a "FAST PUBLISH" article created directly from within the Microsoft support organization. The information contained herein is provided as-is in response to emerging issues. As a result of the speed in making it available, the materials may include typographical errors and may be revised at any time without notice. See Terms of Use for other considerations.

Properti

ID Artikel: 279508 - Kajian Terakhir: 23 September 2011 - Revisi: 2.0
Berlaku bagi:
  • Microsoft Access 2002 Standard Edition
Kata kunci: 
kbprogramming kbhowto kbmt KB279508 KbMtid
Penerjemahan Mesin
PENTING: Artikel ini diterjemahkan menggunakan perangkat lunak mesin penerjemah Microsoft dan bukan oleh seorang penerjemah. Microsoft menawarkan artikel yang diterjemahkan oleh seorang penerjemah maupun artikel yang diterjemahkan menggunakan mesin sehingga Anda akan memiliki akses ke seluruh artikel baru yang diterbitkan di Pangkalan Pengetahuan (Knowledge Base) dalam bahasa yang Anda gunakan. Namun, artikel yang diterjemahkan menggunakan mesin tidak selalu sempurna. Artikel tersebut mungkin memiliki kesalahan kosa kata, sintaksis, atau tata bahasa, hampir sama seperti orang asing yang berbicara dalam bahasa Anda. Microsoft tidak bertanggung jawab terhadap akurasi, kesalahan atau kerusakan yang disebabkan karena kesalahan penerjemahan konten atau penggunaannya oleh para pelanggan. Microsoft juga sering memperbarui perangkat lunak mesin penerjemah.
Klik disini untuk melihat versi Inggris dari artikel ini:279508

Berikan Masukan

 

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