Konu Araçları | Seçenekler: | Gösterim Stili
Tarih
28/01/2011 15:50
Konu Sahibi
okileturc
Yorumlar
9
Okunma
3352
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy

okileturc

Aktif Üye
Kullanici Avatari
Aktif Üye
O.... V....
966
18/03/2009
459
İzmir
Ofis 2003
23/05/2016,13:38
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

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



Ek Dosyalar
.rar   accesstrminiarsiv.rar (Dosya Boyutu: 20,53 KB / İndirme Sayısı: 118)
okileturc, 18-03-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla

alpeki99

Düşünmek en zor iştir...
Kullanici Avatari
Uzman
O....
6.090
29/10/2008
Bursa
Yazılım Geliştirici
Ofis 2010 32 Bit
31/08/2017,19:08
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:

SQL Code
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

okileturc

Aktif Üye
Kullanici Avatari
Aktif Üye
O.... V....
966
18/03/2009
459
İzmir
Ofis 2003
23/05/2016,13:38
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

alpeki99

Düşünmek en zor iştir...
Kullanici Avatari
Uzman
O....
6.090
29/10/2008
Bursa
Yazılım Geliştirici
Ofis 2010 32 Bit
31/08/2017,19:08
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 :

SQL Code
1
2
3
4
5
6
7
8
9
10
11
12
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

alpeki99

Düşünmek en zor iştir...
Kullanici Avatari
Uzman
O....
6.090
29/10/2008
Bursa
Yazılım Geliştirici
Ofis 2010 32 Bit
31/08/2017,19:08
me.yaz yerine yazi isimli değişken kullanıldı.


Ek Dosyalar
.rar   accesstrminiarsiv.rar (Dosya Boyutu: 21,77 KB / İndirme Sayısı: 46)
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

ercansahin

BlackEagle
Kullanici Avatari
Uzman
E.... Ş....
3.739
14/11/2008
Ankara
Ofis 2010 32 Bit
07/09/2017,13:09
Emeği geçenlere sonsuz teşekkürler.. Ellerinize sağlık.


Cevapla


Konuyu Okuyanlar: 1 Ziyaretçi

Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Tarih Son Yorum
  Mp3 arşiv mullteci 10 4.769 17/02/2017, 19:33 eraslan
  Mini Muhtarlık Programı GokhanTurna 24 12.500 21/05/2014, 15:43 accessc
  İpucu - Belge bağlama okileturc 12 6.723 12/03/2014, 12:55 zevraki
  Arşiv Programı mazhartaktak 8 4.662 15/12/2012, 04:19 benremix
  Trafik Cezaları Arşiv Kayıt perisanoglu 5 2.243 06/05/2012, 23:18 ozanakkaya

Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2017 MyBB Group.
Forum use Krzysztof "Supryk" Supryczynski addons.