Görüntüleme ve Access 2002 dosya iletiþim kutusunu kullanma hakkýnda

Bu makalede, yeni FileDialog yöntemi Microsoft Access'te <a0>yerleþik dosyasý</a0> iletiþim kutusunu görüntülemek için ve seçilen kullanýcý dosyalarý belirlemek için nasýl kullanýlacaðýný gösterir.

Not: FileDialog yöntemi, yalnýzca tam perakende sürümü Microsoft Access içinde çalýþýr. Bu yöntem, bir Microsoft Access çalýþma zamaný uygulamasýnda çalýþmaz.

Microsoft Access'in önceki sürümlerinde, dosya iletiþim kutusu ya da Microsoft ortak iletiþim ActiveX denetimi kullanmadan veya Windows APý'SINE yapýlan çaðrýlarý yaparak görüntülenemedi.

Microsoft Access 2002'de, Microsoft Access tarafýndan kullanýlan dosya iletiþim kutusu görüntülenecek ve hangi dosyalarýn kullanýcý tarafýndan seçilen belirlemek için FileDialog yöntemi saðlar. FileDialog nesne Selectedýtems topluluðu, kullanýcýnýn seçtiði dosya yollarý içerir. Kullanarak bir for... Each döngü, bu derlemesini numaralandýrýr ve her dosyayý görüntülemek. Aþaðýdaki örnek, ýtemsselected topluluðunda döngüsü ve dosyalarý bir liste kutusunda görüntüler.

Microsoft, programlama örneklerini yalnýzca gösterim amacýyla saðlar; örtülü veya açýk garanti vermez. Buna satýlabilirlik veya belirli bir amaca uygunluk zýmni garantileri de dahildir, ancak bunlarla sýnýrlý deðildir. Bu makale, gösterilen programlama dilini ve yordamlarý oluþturmak ve hata ayýklamak amacýyla kullanýlan araçlarý kullanmayý bildiðinizi varsayar. Microsoft destek mühendisleri, belirli bir yordamýn iþlevselliðinin açýklanmasýna yardýmcý olabilir, ancak gereksinimlerinizi karþýlamaya yönelik olarak ek iþlevsellik saðlamak veya yordamlar geliþtirmek amacýyla bu örnekleri deðiþtirmezler.

1. Northwind.mdb örnek veritabanýný açýn.
2. Yeni bir boþ form Tasarým görünümü içinde oluþturun.
3. Aþaðýdaki denetimleri forma ekleyin:

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

4. Görünüm menüsünde, kod form modülü Visual Basic Düzenleyicisi'nde açmak için týklatýn.
5. Araçlar menüsünde, Baþvurular ' ý týklatýn.
6. <a0>Microsoft Office 10.0 Nesne Kitaplýðý</a0> onay kutusunu seçmek için týklatýn.
7. <a0>Baþvurular</a0> iletiþim kutusunu kapatmak için Tamam ' ý týklatýn.
8. Formun modüle aþaðýdaki kodu ekleyin:

   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 ' formu kaydedin ve sonra kapatýn.
10. Form1 formu Form görünümünde açýn.
11. Dosya Ekle ' yi týklatýn. Dikkat Lütfen bir veya daha çok dosya seçin iletiþim kutusu görüntülenir.
12. Bir veya daha çok dosya seçin ve Tamam ' ý týklatýn veya iptal ' i týklatýn.

Bir veya daha çok dosya seçili ise, bu dosya adlarý liste kutusunda göründüðüne dikkat edin. Iptal ' i týklattýysanýz, iptal týklattýðýnýz belirten bir ileti alýyorsunuz unutmayýn.

Dosya iletiþim kutusu, Visual Basic Düzenleyicisi'nde neler yapabileceðiniz hakkýnda daha fazla bilgi için Yardým menüsünde Microsoft Visual Basic Yardýmý ' ný týklatýn, filedialog nesnesi, Office Yardýmcýsý'na veya Yanýt Sihirbazý'ný yazýn ve sonra döndürülen konularý görüntülemek için Ara ' yý týklatýn.