Skip to main content

AccessTr.neT


Mini arşiv - Belge bağlama

Mini arşiv - Belge bağlama

#1
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


.rar accesstrminiarsiv.rar (Dosya Boyutu: 20,53 KB | İndirme Sayısı: 120)
okileturc, 18-03-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla
#2
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)
AccessTr.Net teknik konular içeren bir sitedir. Bu tip sitelerde en iyi şekilde yardım alabilmeniz için Site Kurallarını mutlaka okumanız ve buna göre hareket etmeniz lazım.
Cevapla
#3
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
okileturc, 18-03-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla
#4
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.
AccessTr.Net teknik konular içeren bir sitedir. Bu tip sitelerde en iyi şekilde yardım alabilmeniz için Site Kurallarını mutlaka okumanız ve buna göre hareket etmeniz lazım.
Cevapla
#5
me.yaz yerine yazi isimli değişken kullanıldı.
.rar accesstrminiarsiv.rar (Dosya Boyutu: 21,77 KB | İndirme Sayısı: 47)
AccessTr.Net teknik konular içeren bir sitedir. Bu tip sitelerde en iyi şekilde yardım alabilmeniz için Site Kurallarını mutlaka okumanız ve buna göre hareket etmeniz lazım.
Cevapla
#6
Emeği geçenlere sonsuz teşekkürler.. Ellerinize sağlık.
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da