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

Makale çevirileri Makale çevirileri
Makale numarası: 279508 - Bu makalenin geçerli olduğu ürünleri görün.
Bu makalenin Microsoft Office Access 2003 sürümü için bkz: 824272.
Gelişmiş: Uzman kodlama, birlikte çalışabilirlik ve çok kullanıcılı becerileri gerektirir.

Bu makale, Microsoft Access veritabanı (.mdb) ve Microsoft Access projesi (.adp) için geçerlidir.

Hepsini aç | Hepsini kapa

Özet

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.

Daha fazla bilgi

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.

Referanslar

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.

Özellikler

Makale numarası: 279508 - Last Review: 11 Ekim 2006 Çarşamba - Gözden geçirme: 4.2
Bu makaledeki bilginin uygulandığı durum:
  • Microsoft Access 2002 Standard Edition
Anahtar Kelimeler: 
kbmt kbprogramming kbhowto KB279508 KbMttr
Machine-translated Article
ÖNEMLİ: Bu makale, bir kişi tarafından çevrilmek yerine, Microsoft makine-çevirisi yazılımı ile çevrilmiştir. Microsoft size hem kişiler tarafından çevrilmiş, hem de makine-çevrisi ile çevrilmiş makaleler sunar. Böylelikle, bilgi bankamızdaki tüm makalelere, kendi dilinizde ulaşmış olursunuz. Bununla birlikte, makine tarafından çevrilmiş makaleler mükemmel değildir. Bir yabancının sizin dilinizde konuşurken yapabileceği hatalar gibi, makale; kelime dağarcığı, söz dizim kuralları veya dil bilgisi açısından yanlışlar içerebilir. Microsoft, içeriğin yanlış çevrimi veya onun müşteri tarafından kullanımından doğan; kusur, hata veya zarardan sorumlu değildir. Microsoft ayrıca makine çevirisi yazılımını sıkça güncellemektedir.
Makalenin İngilizcesi aşağıdaki gibidir:279508

Geri Bildirim Ver

 

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