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