+- 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ığı: Hyperlink alanının istetiğim klasörde açılması (/konu-hyperlink-alaninin-istetigim-klasorde-acilmasi.html)
Cvp: Hyperlink alanının istetiğim klasörde açılması - ozanakkaya - 12/10/2009
Bende modül kullanarak bir şeyler yapmaya çalıştım.
Cvp: Hyperlink alanının istetiğim klasörde açılması - danke - 12/10/2009
Sayın Taruz verdiğiniz kodu ekliyeceğim yeri bilemediğimden, uğraştığım halde sorunu çözmeyi beceremedim. Ekteki uygulamada gösterirseniz sevinirim.
Sayın sledgeab verdiğiniz örneği inceledim, eğer yanlış yapmadıysam klasör eklenmiyor, ancak diğer formatlardaki uygulamalar Word, Excel vs. gibi ekleniyor.
Yardımcı olacak herkese teşekkürler.
Cvp: Hyperlink alanının istetiğim klasörde açılması - ozanakkaya - 12/10/2009
sn danke, dosyayı seçtikten sonra, en alttaki metin kutusunu tıkladınız mı
Cvp: Hyperlink alanının istetiğim klasörde açılması - mehmetdemiral - 12/10/2009
Sayın danke
Seçtiğiniz dosyanın yolu en üstte, dosyanın adı ortada ve klasörün adı da en altta yer alıyor. Tıkladığınızda ilk kutuda dosya, son kutuda da klasör açılıyor. İçi boş olan bir klasör eklemek mi istiyorsunuz? Açık olarak yazar mısınız?
Cvp: Hyperlink alanının istetiğim klasörde açılması - danke - 12/10/2009
Sayın sledgeab teşekkürler cevabınız için, dediğiniz gibi, örnekte dosya adı, yolu, klasörünü ayrı ayrı yazıyor.
Ben sadece klasör yolunun yazılarak, açılmasını istemiştim.
Denedim, uyarlamaya çalışacam, teşekkürler.
Cvp: Hyperlink alanının istetiğim klasörde açılması - mehmetdemiral - 13/10/2009
(12/10/2009, 20:15)Taruz yazdı: Merhaba..
Bu kod yardımı ile klasör yolu ekleyebilirsiniz..:
Kod:On Error GoTo Err_trz_Click
Dim KlsrYl As String
Me.yol.SetFocus
KlsrYl = BrowseDirectory("Klasör Ekle")
yol = KlsrYl
Exit_trz_Click:
Exit Sub
Err_trz_Click:
MsgBox Err.Number & " - " & Err.Description
Resume Exit_trz_Click
Kod:
KlsrYl = BrowseDirectory("Klasör Ekle")????????????????
Bu şekliyle çalışması mümkün değil.