Gözat Penceresi Butonu Çalışmıyor.

1 2
07/04/2018, 13:26

okumas

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

Eklenti ektedir.
07/04/2018, 13:39

A.Kadir.

windovs 7 64 bit test sorun yok.
07/04/2018, 13:43

okumas

(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.
07/04/2018, 15:41

ozanakkaya

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
12/04/2018, 12:36

okumas

Henüz deneme şansım olmadı olumlu yada olumsuz cevap yazacağım
25/04/2018, 20:42

okumas

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