Arkadaşlar kullanmakta olduğum Shift eklentisi Gözat butonu Windows 10 64 bit bilgisayarımda çalışmıyor.
Eklenti ektedir.
Gözat Penceresi Butonu Çalışmıyor.
windovs 7 64 bit test sorun yok.
1-) Referanslara "Microsoft Office 1X.0 Object Library" referansını ekle,
2-) Butonun tıklandığında olayındaki koddaki
kodunu sil, yerine aşağıdaki kodu 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
Konuyu Okuyanlar: 1 Ziyaretçi