Hyperlink alanının istetiğim klasörde açılması

Hyperlink alanının istetiğim klasörde açılması - 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ığı: Hyperlink alanının istetiğim klasörde açılması (/konu-hyperlink-alaninin-istetigim-klasorde-acilmasi.html)

Sayfalar: 1 2 3 4 5 6 7

Cvp: Hyperlink alanının istetiğim klasörde açılması - Taruz - 10/10/2009

Merhaba..

İlk mesajımda işaret ettiğim öneri doğrultusunda bir alternatif (API olmaksızın) yöntem de ben sunayım..

Sayın sledgeab'ın eklediği örnekteki formda bulunan tüm kodları bunlarla değiştirirseniz modülü devre dışı bırakabilirsiniz..

Kod:

Private Sub Komut4_Click()



Dim fd As FileDialog

   Set fd = Application.FileDialog(msoFileDialogFilePicker)

   Dim dosya As Variant

   With fd

       .InitialFileName = "C:\"

       If .Show = -1 Then

           For Each dosya In .SelectedItems

               yol = dosya

           Next dosya

 

       Else

 MsgBox "Dosya seçimi iptal ettiniz"

       End If

 

   End With

   Set fd = Nothing

End Sub



Private Sub yol_Click()

Dim shell_app As Object

 

Set shell_app = CreateObject("Shell.Application")

 

shell_app.Open "" & Me!yol

 

Set shell_app = Nothing

End Sub

Cvp: Hyperlink alanının istetiğim klasörde açılması - danke - 10/10/2009

Sayın sledgeab vermiş olduğunuz örnek için teşekkürler, gayet güzel çalışıyor...

Sayın Taruz vermiş olduğunuz kodu da uyarladım, kodda çalışıyor, ilgilenip cevap veren, yardımcı olmaya çalışan herkese teşekkürler,

Kolay gelsin..

Cvp: Hyperlink alanının istetiğim klasörde açılması - mehmetdemiral - 10/10/2009

İşbirliği böyle oluyor demek ki. Ben işte bu modülü kastetmiştim. Teşekkürler Ozan...

Cvp: Hyperlink alanının istetiğim klasörde açılması - danke - 11/10/2009

Arkadaşlar kolay gelsin, sorunum çözüldü diye söyledim ama, biryeri atladığımı fark ettim,

Mevcud işlemlerle klosör haricindekilere yol verip, yolu ilgili alana yazdırıp, yazdırılan yol ile açılabiliniyor,

Aynı şekilde, ilgili alana klasör yolu da yazdırmam gerekiyor, şahıs tıkladığında klasörün içinin gözükmesi için.

Klasörü yol olarak nasıl yazdırabilirim, ve nasıl açılabilinir, yardımcı olacak herkese teşekkürler.

Cvp: Hyperlink alanının istetiğim klasörde açılması - danke - 12/10/2009

Arkadaşlar aynı yöntemle klosörü bağlamak mümkün değil mi? Yardımcı olacak herkese teşekkürler.

Cvp: Hyperlink alanının istetiğim klasörde açılması - Taruz - 12/10/2009

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