Dosyamda Hyperlink Olayları Çalışmıyor

Dosyamda Hyperlink Olayları Çalışmıyor - 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ığı: Dosyamda Hyperlink Olayları Çalışmıyor (/konu-dosyamda-hyperlink-olaylari-calismiyor.html)

Sayfalar: 1 2

Dosyamda Hyperlink Olayları Çalışmıyor - tarkanaykın - 18/04/2022

arkadaşlar, o kadar araştırma yaptım aldığım kodları uyarlayıp deniyorum hyperlink olayını gerçekleştiremedim, indirdiğim dosyalarda çalışıyor ama benim dosyamda tık yok, ne eksik acaba, tek isteğim formdan herbir kayıt için köprü penceresinin açılıp ilgili dosyaya bağlantı kurmak, neden olmuyor, nasıl olması gerekir bilemedim, tam olarak ne yapabilirim, öneriniz nedir, atladığım ne var anlamadım, yardımlarınız için şimdiden teşekkürler

RE: Dosyamda Hyperlink Olayları Çalışmıyor - berduş - 18/04/2022

köprü butonuna basınca hangi dosya nereye bağlanacak onu anlamadım?

RE: Dosyamda Hyperlink Olayları Çalışmıyor - tarkanaykın - 18/04/2022

(18/04/2022, 23:04)berduş yazdı: köprü butonuna basınca hangi dosya nereye bağlanacak onu anlamadım?

köprü butonuna basınca ayni anda kaybedeceğim veya kaydettiğim veriye bagli olarak "köprü diyalog iletisi " açılacak ben de ordan istedigim dosyayi seçip baglayacagim

RE: Dosyamda Hyperlink Olayları Çalışmıyor - tarkanaykın - 19/04/2022

arkadaşlar, işi hallettim ama bi sorun var, metin kutusuna köprü ekleyemememin sebebi, metin kutusunun tablo alanı ile bağlantısı olmamasıymış, ama o şekilde işimi görmüyor, hiç bir yerle bağlantısı olmayan metin kutusuna köprü ekleyemiyor muyuz?, bunu öğrenirsem bana yetiyor

RE: Dosyamda Hyperlink Olayları Çalışmıyor - berduş - 19/04/2022

txtLnk.IsHyperlink = True '<==bu kısım veriyi atayacağınız metin kutusunun köprü özelliğini etkinleştirir
Me.txtLnk = "#" & StrYOL & "#" '<==bu kısım adresi metin kutusuna atar
aslında daha pratik olarak ilgili metin kutusunun tıklanma yada çift tıklanma olaylarından birine

Application.FollowHyperlink metinkutusu.value

yada

CreateObject("Shell.Application").Open (metinkutusu.value)

da yazılabilirdi

    Dim fDialog As Object

  Set fDialog = Application.FileDialog(3)

  With fDialog

      .AllowMultiSelect = False

      .Title = "dosya seç"



      'Clear out the current filters, and add our own.

      .Filters.Clear

      .Filters.Add "Pdf dosyası", "*.pdf"

      .Filters.Add "Word dosyas", "*.doc*"

      .Filters.Add "All Files", "*.*"



      If .Show = True Then

        'Loop through each file selected and add it to the list box.

        For Each varFile In .SelectedItems

          StrYOL = varFile

        Next

      Else

        MsgBox "You clicked Cancel in the file dialog box."

      End If

  End With

txtLnk.IsHyperlink = True

Me.txtLnk = "#" & StrYOL & "#"

RE: Dosyamda Hyperlink Olayları Çalışmıyor - tarkanaykın - 19/04/2022

sayın berduş hocam çok teşekkür ediyorum yardımlarınız için, hallettim sayenizde, ben de boş durmayıp önce file dialog penceresiyle dosya yolunu ilgili metin kutusuna aldım ve kaydettim, daha sonra ise sorgulama yaptım ve sorgulamada o kaydettiğim alanı gösteren metin kutusuna da followHyperlink olayını atadım ve mutlu son, dosyama ulaşabildim , her şey için çok teşekkürler. Img-grin

Private Sub kopru_Click()

Dim strButtonCaption As String
Dim strDialogTitle As String
Dim strAttachment As String
Dim varItem As Variant

strButtonCaption = "<Your Button Name Here>"
strDialogTitle = "<Your File Dialog Title Here>"

With Application.FileDialog(msoFileDialogFilePicker)
With .Filters
.Clear
.Add "All Files", "*.*" 'Allow ALL File types
End With

'The Show Method returns True if 1 or more files are selected
.AllowMultiSelect = False 'Critical Line/Single File selection
'.FilterIndex = 1 'not really relevant
.ButtonName = strButtonCaption
.InitialFileName = vbNullString
.InitialView = msoFileDialogViewDetails 'Detailed View
.Title = strDialogTitle

If .Show Then
For Each varItem In .SelectedItems 'There will only be 1 since
'AllowMultiSelect = False
'Assuming your Text Box Name is txtAttachment
strAttachment = varItem
Me.dosyaYolu = strAttachment
Next varItem
End If
End With

End Sub

kayıt işlemini tamamladıktan sonra ise, sorgulama yapıp ilgili veriyi görüntüleyip aşağıdaki kod ile de

Private Sub dosyaYoluAlt_DblClick(Cancel As Integer)
Dim git As String
git = Me.dosyaYoluAlt

Application.FollowHyperlink git, , True, True
End Sub

direkt dosyama ulaşabildim, çok teşekkür ederim, iyi çalışmalar.