Skip to main content

AccessTr.neT


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

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

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

Eklenti ektedir.
.rar Shift_tuşu.rar (Dosya Boyutu: 28,69 KB | İndirme Sayısı: 17)
Cevapla
#2
windovs 7 64 bit test sorun yok.
Universal Form Tasarımı. devamlı güncelleniyor.
SQL TO Vba Convertör.
Cevapla
#3
(07/04/2018 13:39)A.Kadir. Adlı Kullanıcıdan Alıntı: windovs 7 64 bit test sorun yok.

Evet doğrudur fakat Windows 10 64 bit kullanmak zorundayım sorun burada.
Cevapla
#4
1-) Referanslara "Microsoft Office 1X.0 Object Library" referansını ekle,

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

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

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


Visual Basic Code
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
Cevapla
#5
Henüz deneme şansım olmadı olumlu yada olumsuz cevap yazacağım
Cevapla
#6
Sorun çözülmüştür ozan hocam çok teşekkür ederim
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da