+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Örnekleri ve Uygulamaları (https://accesstr.net/forum-access-ornekleri-ve-uygulamalari.html)
+--- Konu Başlığı: Mini arşiv - Belge bağlama (/konu-mini-arsiv-belge-baglama.html)
Sayfalar:
1
2
Mini arşiv - Belge bağlama - okileturc - 28/01/2011
Arkadaşlar,
AccessTR Net den indirdiğiniz dosyalarınız için hızlı bir
mini arşiv
Daha önce belge bağlama konusunda hyperlink dialog
penceresi kullanarak birkaç örnek paylaşmıştım. Ama gördüm ki
hyperlink penceresi "relative" bağlantı öneriyor ( path i
bulunduğunuz konuma göre öneriyor eğer uygulamanızı
faklı bir klasöre alırsanız eski bağlantılar çalışmıyor )
Ekte "absolut- kesin" adresleme yapabileceğimiz bir örnek
ekliyorum. Yine linke kendi başlığımızı verebilir veya doğrudan
kullanabiliriz
![[Resim: es43r9.jpg]](http://i51.tinypic.com/es43r9.jpg)
Kod içerisinde içime hiç sinmeyen bir metod var
yaz ve yaz2 gizli metin kutuları kullandım çünkü değişkenleri
bir türlü Sql cümlesi içerisine yerleştiremedim.
Uygulama çalışıyor ama bu konuyu halleden olursa lütfen
yeni halini eklesin
Kolay gelsin
Cvp: Mini arşiv - Belge bağlama - alpeki99 - 28/01/2011
Trim(.SelectedItems.Item(1) ile alınan değer LINKDOC_NAME alanına mı kaydediliyor? Eğer öyle ise kod şu şekilde çalışması lazım:
DoCmd.RunSQL "INSERT INTO LINKEDDOCS ( LINKDOC_NAME, LINKDOC_GROUP_ID, LINKDOC_SUBJECT_ID ) VALUES('" & Trim(.SelectedItems.Item(1) & "','" & me.GROUPSEC & "','" & me.KONUSEC & "')", 0)
Cvp: Mini arşiv - Belge bağlama - okileturc - 28/01/2011
Sn alpeki eliniz değmişken
eğer baslik seç değeri 1 ise
Trim(.SelectedItems.Item(1)&#Trim(.SelectedItems.Item(1)# olması gerekiyor
yani path ve dosya adı 2 kere yazılacak 2. si 2 diyez arasında olacak
C:\resim.jpg#C:\resim.jpg# ... gibi
eğer başlık seç değeri 2 ise
baslik&#Trim(.SelectedItems.Item(1)# olacak
Benim resmim#C:\resim.jpg# ... gibi
Tşk ederim
Cvp: Mini arşiv - Belge bağlama - alpeki99 - 28/01/2011
Aslında benim yazdığım yukarıdaki kod Başlık değeri = 1 ise nin altındaki koda göreydi.
If bloğunda her iki durumda da yaz2 kullanıldığı için karar verememiştim. Bu durumda :
If (islemsonu <> 0) Then
dosyaadi = Trim(.SelectedItems.Item(1))
yazi = Trim(.SelectedItems.Item(1))
yazi2 = yazi & "#" & yazi & "#"
If Me.BASLIKSEC = 1 Then
DoCmd.RunSQL "INSERT INTO LINKEDDOCS ( LINKDOC_NAME, LINKDOC_GROUP_ID, LINKDOC_SUBJECT_ID ) VALUES ('" & yazi2 & "','" & Me.GROUPSEC & "','" & Me.KONUSEC & "')", 0
Else
DoCmd.RunSQL "INSERT INTO LINKEDDOCS ( LINKDOC_NAME, LINKDOC_GROUP_ID, LINKDOC_SUBJECT_ID ) VALUES ('" & me.BASLIK & yazi & "','" & Me.GROUPSEC & "','" & Me.KONUSEC & "')", 0
End If
Me.frm_doclist.Requery
Call temizle
End If
Bende dosya seçme diyaloğu açılmadığı için kontrol edemiyorum.
Cvp: Mini arşiv - Belge bağlama - alpeki99 - 28/01/2011
me.yaz yerine yazi isimli değişken kullanıldı.
Cvp: Mini arşiv - Belge bağlama - ercansahin - 29/01/2011
Emeği geçenlere sonsuz teşekkürler.. Ellerinize sağlık.