Öncelikle hayırlı seneler,
sorumla ilgilendiğiniz için teşekkürler. veri dosyamın boyutları biraz büyük o yüzden buraya koyamadım. aşağıda sayın dsezgin83260 yardımda bulunduğu ve önerdiği kodları aynı şekliyle uyguladım. Form oncurrent olay yordamına "Call" yordamı ile çağırmaya çalıştım fakat başarılı olamadım. Bu durumu nasıl değiştirebilirim. Aktif verilerin bulunduğu form penceresinde aşağıdaki kodlar işe yarıyor. Fakat farklı bir kayda geçtiğimde bir önceki kayıtta yapıştırdığım link yine karşıma çıkıyor. ve buda istediğim bir durum değil malesef.

(05-08-2013, 04:59)dsezgin83260 demiş ki: Sayin ÜmitSamlı;

1. REFERANS *****Microsoft Office 15.0 Object Library. **** Isaretli olmali.
2. Formda Buton tiklandigi olay yordamina asagidaki 1. kodu tasiyiniz.
3. Formda DosyaListesi adinda liste kutusu olusturun.

Visual Basic

Private Sub Buton_Click()
   Dim Pencere As Office.FileDialog
   Dim Yerlesim As Variant
   Me.DosyaListesi.RowSource = ""
   Set Pencere = Application.FileDialog(msoFileDialogFolderPicker)
   With Pencere
      .AllowMultiSelect = True
      .Title = "Bir veya daha fazla KLASOR seçin."
      If .Show = True Then
         For Each Yerlesim In .SelectedItems
            Me.DosyaListesi.AddItem Yerlesim
         Next
      Else
         Me.DosyaListesi.AddItem "No"
      End If
   End With
   End Sub

4. DosyaListesi liste tiklama olayina asagidaki 2. kodu tasiyin.

Visual Basic

Private Sub DosyaListesi_Click()
On Error GoTo HataCik
Application.FollowHyperlink Me.DosyaListesi
Exit Sub
HataCik:
Me.DosyaListesi = ""
End Sub

5. Formu calistirip, Buton tusu ile Klasor penceresinden sectiginiz dosyalari, DosyaListesi kutucugunu tiklayip calistirabilirsiniz.

Onceki kodunuz referans isaretli olmadigindan calismamis olabilir.

Ornegi kendi projelerinize uygulayabilirsiniz.

Kolay gelsin.....

Ne olur yardım

Sayin ÜmitSamlı;

Intr-Link sorunu nedeniyle cevap veremedigimiz icin hos gorun.
Formun geceli oldugunda olay yordamini AktifKaydin cift tiklamaya asagidaki gibi yazabilirsiniz.

Private Sub AktifKayitID_DblClick(Cancel As Integer)
On Error Resume Next
Yerlesim = Application.CurrentProject.Path & "\Dokumanlar"
Application.FollowHyperlink Yerlesim & "\" & AktifKayitID
End Sub

Kolay gelsin....

sayın dsezgin,

tekrar desteğiniz için teşekkür ederim. kusura bakılacak bir durum yok. sonuçta destek olmak zorunda da değilsiniz. sizin söylediğinizi anladığım kadarıyla yapmaya çalıştım. aşağıda uyguladığım olay yordamını görebilirsiniz. Fakat yine istediğim sonuca ulaşamadım.
saygılar,
[Private Sub Click2D_DblClick(Cancel As Integer)
Dim Pencere As Office.FileDialog
Dim Yerlesim As Variant
Me.Link2D = ""
Set Pencere = Application.FileDialog(msoFileDialogFolderPicker)
With Pencere
.AllowMultiSelect = True
.Title = "Bir veya daha fazla dosya seçin."
.InitialFileName = Environ("TRY000014.tr.ray.group") & "L:\Groups\Operation\Maintenance\KALIP\Kalıp Bakım - Mold Maintenance\Tools_Data_Arcihve\"
.Filters.Clear
If .Show = True Then
For Each Yerlesim In .SelectedItems
Me.Link2D = Yerlesim
Next
Else
Me.Link2D = "No"
End If
End With
On Error Resume Next
Yerlesim = Application.CurrentProject.Path & "\Dokumanlar"
Application.FollowHyperlink Yerlesim & "\" & AktifKayitID

End Sub]