2011-06-01 13 views
9

Standart bir Windows dosya tarayıcısını (kalıcı bir pencere olarak) getirecek bir MS Access 2007 formuna "Gözat" düğmesi eklemek ve kullanıcıya izin vermek istiyorum. bir dizin seçin. Kullanıcı bu tarayıcıdan çıktığında, seçilen dizinin Erişim formundaki bir metin kutusuna yazılması gereken yol.Bir MS Access formuna bir dosya tarayıcı düğmesi ekleme

Bunu yapmanın en iyi yolu nedir? Yerel bir Erişim yolu var mı?

cevap

12

Application.FileDialog'u kullanan bir işlev oluşturun. FileDialog, kalıcıdır.

Bu işlev, kullanıcının bir klasör oluşturup seçmediğine veya FileDialog numaralı telefona iptal edildiyse boş bir dizeye döner.

Public Function FolderSelection() As String 
    Dim objFD As Object 
    Dim strOut As String 

    strOut = vbNullString 
    'msoFileDialogFolderPicker = 4 
    Set objFD = Application.FileDialog(4) 
    If objFD.Show = -1 Then 
     strOut = objFD.SelectedItems(1) 
    End If 
    Set objFD = Nothing 
    FolderSelection = strOut 
End Function 

ben size komut düğmesinin click olayı bu işlevi kullanabilirsiniz düşünüyorum. BrowseFolder Dialog: Microsoft birgün Ofisinden FileDialog nesneyi kaldırabilir endişe ediyorsanız

Dim strChoice As String 
strChoice = FolderSelection 
If Len(strChoice) > 0 Then 
    Me.TextBoxName = strChoice 
Else 
    ' what should happen if user cancelled selection? 
End If 

, bunun yerine Windows API yöntemini kullanabilirsiniz.

+0

Çalıştı. Teşekkürler! –

+0

Bunun yerine Windows API'sini kullanmanızı öneririm, çünkü MS bir FileDialog nesnesini bir gün Office'ten kaldırmamak için MS'ye güvenmiyor, çünkü bunlar Office 2007'den FileSearch nesnesini kaldırdı. –

İlgili konular