AccessTr.neT
Mini arşiv - Belge bağlama - Baskı Önizleme

+- 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 Img-grin

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]

Kod içerisinde içime hiç sinmeyen bir metod var Img-cray
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.