AccessTr.neT

Arkadaşlar kullanmakta olduğum Shift eklentisi Gözat butonu Windows 10 64 bit bilgisayarımda çalışmıyor.

Eklenti ektedir.

windovs 7 64 bit test sorun yok.

(07/04/2018, 13:39)A.Kadir. yazdı: [ -> ]windovs 7 64 bit test sorun yok.

Evet doğrudur fakat Windows 10 64 bit kullanmak zorundayım sorun burada.

1-) Referanslara "Microsoft Office 1X.0 Object Library" referansını ekle,

2-) Butonun tıklandığında olayındaki koddaki

Me![Dosya] = GetOpenFile_CLT("C:\", "Yedeklenecek Veritabanını Seç")

kodunu sil, yerine aşağıdaki kodu ekle

Dim Sonuc as integer

With Application.FileDialog(msoFileDialogOpen)

    

        .Title = "Select a file"

        .Filters.Clear

        .Filters.Add "Tüm Dosyalar", "*.*"

        .AllowMultiSelect = False

        .Title = "Seçiniz"

        .InitialFileName = CurrentProject.Path        

        Sonuc = .Show

        

            If (Sonuc <> 0) Then

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

        End If

    End With

Henüz deneme şansım olmadı olumlu yada olumsuz cevap yazacağım

Sorun çözülmüştür ozan hocam çok teşekkür ederim