Skip to main content

AccessTr.neT

Kayıt Ol

 | Facebook ile Bağlan  | Twitter İle Bağlan | Google+ İle Bağlan

Dosya Seçme Penceresi

tarkanaykın
tarkanaykın
Access Cevaplanmış Soruları
8
804

Dosya Seçme Penceresi

#8
ozanakkaya
sledgeab
ozanakkaya
Bul
Kurucu
Adı Soyadı: Oz.... Ak....
Konum: Denizli
Ofis Versiyonu: Ofis 2016 64 Bit
Son Oturumu: Dün,21:30
Yorumları: 13.536
Konuları: 499
Kayıt Tarihi: 29/01/2008
Teşekkür Puanı: 3.139
Mesleğiniz: Memur
Yazdığınız kod ile bu işlemi gerçekleştiremezsiniz.


Forma Metin1 adında Metin kutusu ekle, butonun tıklandığında olayındaki koda da

Dim fDialog As FileDialog

Set fDialog = Application.FileDialog(msoFileDialogFilePicker)

 



If fDialog.Show = -1 Then

   Me.Metin1 = fDialog.SelectedItems(1)

End If

kodu ekle. Butonu tıklayıp pencereden dosya seçtiğinizde dosyayı dizini ile birlikte Metin kutusuna yazacaktır.
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da

Bu Konudaki Yorumlar
Dosya Seçme Penceresi - Yazar: tarkanaykın - 16/10/2020, 10:58
RE: Dosya Seçme Penceresi - Yazar: ozanakkaya - 16/10/2020, 11:06
RE: Dosya Seçme Penceresi - Yazar: tarkanaykın - 16/10/2020, 11:18
RE: Dosya Seçme Penceresi - Yazar: ozanakkaya - 16/10/2020, 11:42
RE: Dosya Seçme Penceresi - Yazar: tarkanaykın - 16/10/2020, 12:41
RE: Dosya Seçme Penceresi - Yazar: ozanakkaya - 16/10/2020, 12:47
RE: Dosya Seçme Penceresi - Yazar: tarkanaykın - 16/10/2020, 12:55
RE: Dosya Seçme Penceresi - Yazar: ozanakkaya - 16/10/2020, 13:18
RE: Dosya Seçme Penceresi - Yazar: tarkanaykın - 16/10/2020, 13:46
Task