AccessTr.neTMicrosoft AccessAccess Cevaplanmış Soruları

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

1 2 3 4 5 6 7
10/10/2009, 01:11

Taruz

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
10/10/2009, 03:15

danke

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..
10/10/2009, 10:50

mehmetdemiral

İşbirliği böyle oluyor demek ki. Ben işte bu modülü kastetmiştim. Teşekkürler Ozan...
11/10/2009, 13:34

danke

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.
12/10/2009, 19:57

danke

Arkadaşlar aynı yöntemle klosörü bağlamak mümkün değil mi? Yardımcı olacak herkese teşekkürler.
12/10/2009, 20:15

Taruz

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
1 2 3 4 5 6 7