+- 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 tuşu ile link kopyalama (/konu-gozat-tusu-ile-link-kopyalama.html)
gözat tuşu ile link kopyalama - efed - 04/04/2012
Merhaba,
Ekte bulunan veritabanında. Formdaki textboxların yanındaki butonların gözat tuşu görevi görmesini ve açılan pencereden seçimi yaptığımda linkini textboxa kopyalamasını istiyorum.
Yardımcı olursanız sevinirim
Cvp: gözat tuşu ile link kopyalama - Kur@l - 04/04/2012
ekte istediğiniz yapılmıştır.
Modüle1 de bir fonksiyon ekledim. O fonksiyon ile isteiğiniz dosyayı seçmek için
Dosyanın Bulunduğu Yol
Açılan Pencerenin Başlığı
Ve Süzülmesini İstediğiniz Dosyaının Uzantısını aşağıdaki gibi yazarak kullanabilirsiniz.
Kolay Gelsin.
Call LocalizarArquivo("c:\", "Dosyayı Seçiniz - AccessTR.NET", "*.jpg")Cvp: gözat tuşu ile link kopyalama - efed - 04/04/2012
teşekkürler. Dosya seçimini istediğim gibi yapıyor ancak linki textboxa yazmadı. benden mi kaynaklı problem?
Cvp: gözat tuşu ile link kopyalama - Kur@l - 04/04/2012
Pardon textbox yazmasını yapmadık. Kodları Aşağıdaki ile değiştirin Linkleride tabloya yazar.
Kusura Bakmayın.
Private Sub Command17_Click()
Me.link1 = LocalizarArquivo("c:\", "Dosyayı Seçiniz - AccessTR.NET", "*.jpg")
End Sub
Private Sub Command18_Click()
Me.link2 = LocalizarArquivo("c:\", "Dosyayı Seçiniz - AccessTR.NET", "*.jpg")
End Sub
Private Sub Command19_Click()
Me.link3 = LocalizarArquivo("c:\", "Dosyayı Seçiniz - AccessTR.NET", "*.jpg")
End Sub
Private Sub Command20_Click()
Me.link4 = LocalizarArquivo("c:\", "Dosyayı Seçiniz - AccessTR.NET", "*.jpg")
End Sub
Cvp: gözat tuşu ile link kopyalama - efed - 04/04/2012
yardımınız ve hızlı çözüm için çok teşekkürler.