AccessTr.neT

Tam Versiyon: Mini arşiv - Belge bağlama
Şu anda arşiv modunu görüntülemektesiniz. Tam versiyonu görüntülemek için buraya tıklayınız.
Sayfalar: 1 2
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


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)
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
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.
me.yaz yerine yazi isimli değişken kullanıldı.
Emeği geçenlere sonsuz teşekkürler.. Ellerinize sağlık.
Sayfalar: 1 2