AccessTr.neT
Gözat Penceresi Butonu Çalışmıyor. - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Gözat Penceresi Butonu Çalışmıyor. (/konu-gozat-penceresi-butonu-calismiyor.html)

Sayfalar: 1 2


Gözat Penceresi Butonu Çalışmıyor. - okumas - 07/04/2018

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

Eklenti ektedir.


Cvp: Gözat Penceresi Butonu Çalımıyor. - A.Kadir. - 07/04/2018

windovs 7 64 bit test sorun yok.


Cvp: Gözat Penceresi Butonu Çalımıyor. - okumas - 07/04/2018

(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.


Cvp: Gözat Penceresi Butonu Çalışmıyor. - ozanakkaya - 07/04/2018

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



Cvp: Gözat Penceresi Butonu Çalışmıyor. - okumas - 12/04/2018

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


Cvp: Gözat Penceresi Butonu Çalışmıyor. - okumas - 25/04/2018

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