Bagaimana untuk menampilkan dan menggunakan kotak dialog File di Microsoft Access

Artikel ini membahas cara menggunakan baru FileDialog metode dalam Microsoft Access untuk menampilkan built-in Berkas kotak dialog dan untuk menentukan file yang pengguna memilih.

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

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

Dengan menggunakan FileDialog metode akses Microsoft Office 2003, Anda dapat menampilkan Berkas kotak dialog yang digunakan oleh Microsoft Access dan dengan menentukan file yang pengguna memilih. The SelectedItems Koleksi FileDialog objek berisi jalan ke file yang dipilih oleh pengguna. Dengan menggunakan Untuk setiap loop, Anda dapat menghitung koleksi ini dan kemudian layar masing-masing file. Contoh berikut loop melalui ItemsSelected Koleksi dan kemudian 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. Mulai Microsoft Access.
2. Buka database contoh Northwind.mdb.
3. Di jendela Database, klik Bentuk di bawahObjek.
4. Dalam pane kanan, klik dua kali Membuat formulir di Lihat desain.
5. Tambahkan kontrol berikut untuk bentuk:
   

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

6. Pada Lihat menu, klikKode untuk membuka modul formulir di Microsoft Visual Dasar Editor.
7. Pada Alat menu, klikReferensi.
8. DalamReferensi-DatabaseName kotak dialog, Klik untuk memilih Perpustakaan objek Microsoft Office 11,0 Periksa kotak, dan kemudian klik Oke.
9. Tambahkan kode berikut untuk modul formulir:

   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. Menyimpan bentuk sebagai Form1, dan kemudian Tutup.
11. Di jendela Database, pilih Form1, dan kemudian klik Terbuka untuk membuka formulir dalam bentuk tampilan.
12. Klik Menambahkan file. The Pilih salah satu atau Lebih file kotak dialog akan muncul.
13. Pilih satu atau lebih berkas, dan kemudian klikOke, atau klik Batalkan.

Jika Anda memilih satu atau lebih file, Anda mungkin memperhatikan bahwa file nama ditampilkan dalam daftar kotak. Jika Anda mengklik Batalkan, Anda mungkin menerima pesan yang menunjukkan bahwa Anda mengklik Batalkan.

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 dalam The Mencari kotak di panel bantuan, dan kemudian klik Mulai pencarian untuk melihat topik.