Dosya bul butonuna tıkladığınızda açılan pencereden açılmasını istediğiniz Access uygulamasını seçebilirsiniz.

Butonda dosya bulma işlemi için kullanılan GetOpenFile_CLT modülü 64bitte çalışmaz. 

Referanslara "microsoft Office X.X Object Library" referansını ekleyip butonun tıklandığında olayındaki kodu aşağıdaki ile değiştirerek deneyiniz.

Private Sub AdresBul_Click()

Dim vDir As Variant

Dim Sonuc As String



With Application.FileDialog(msoFileDialogOpen)

    

        .Title = "Select a file"

        .Filters.Clear

        .Filters.Add "Access files", "*.accdb, *.mdb"

        .AllowMultiSelect = False

        .Title = "Dosya Seçiniz"

        .InitialFileName = CurrentProject.Path

        

        Sonuc = .Show

        

            If (Sonuc <> 0) Then

                Me![Metin4] = Trim(.SelectedItems.Item(1))



        End If

    End With





End Sub