ACCESS ~ SQL
[VBA] gelen sonuca göre metin kutusuna hazır metin yazma - Yazdırılabilir Sürüm

+- ACCESS ~ SQL (http://www.access-sql.com)
+-- Forum: ACCESS SORULARI VE ÖRNEK UYGULAMALARI (/Forum-ACCESS-SORULARI-VE-ORNEK-UYGULAMALARI)
+--- Forum: ACCESS SORULARI (/Forum-ACCESS-SORULARI)
+--- Konu: [VBA] gelen sonuca göre metin kutusuna hazır metin yazma (/Konu-gelen-sonuca-gore-metin-kutusuna-hazir-metin-yazma)



gelen sonuca göre metin kutusuna hazır metin yazma - hknct - 11-01-2017 14:59

ekte gönderdiğim programda birim arşive devir yılına göre;


Notlar kısmına

ilk 5 yıl için "Birim Arşivinde Saklanacak"
Sonraki 10 yıl için "Ünite Arşivinde Saklanacak"

birim arşiv saklama süresi "SÜRESİZ" ise "İmha Edilemez"

yazısı yazılacak. tüm denemelerime rağmen bir türlü yapamadım. yardımcı olabilirmisiniz


Cvp: gelen sonuca göre metin kutusuna hazır metin yazma - dsezgin83260 - 11-01-2017 17:31

ilk 5 yil bitimtarih sutununa bakilacaksa
 VBA Kodu
notlar=iif(me.brmarsvsklmsure="SÜRESİZ","İmha Edilemez",  iif(datediff("y",bitimtarih,date)<=5,
"Birim Arşivinde Saklanacak",iif(eval(datediff("y",bitimtarih,date) & " between 6 to 10") , 
"Ünite Arşivinde Saklanacak","")))

seklinde yapilabilir.


Cvp: gelen sonuca göre metin kutusuna hazır metin yazma - hknct - 12-01-2017 15:13

1- "malzemeadi" adında bir tablo var. burada suçlar var karşılıklarında da bekleme süreleri var
formumda "Mlzkonusu" isimli açılan kutu bu tablodan veri çekiyor.

2- burada seçtiğim tercihe göre " Birim Arşiv Saklama Süresi, Kurum Arşiv Saklama Süresi" otomatik gelmektedir. Burada gelen sonuca göre de "Toplam Saklama Süresi " ve " İmha Yılı" otomatik olarak gelmektedir.

3- burada yapmak istediğim "Notlar" bölümüne
İmha Edilecek
İmha Edilemez
Birim Arşivinde Saklanacak
Ünite Arşivinde Saklanacak yazılarını kendisi otomatik atmasını istiyorum.

şöyleki : "Kesinleşme Tarihi" girildiğinde "Birim Arşivine devir yılı " otamatik olarak yazmakta.

a- Birim Arşivine Devir Yılı" esas alınarak "Notlar" bölmüne birim arşivine devir yılı itibari ile
1- "malzemeadi" tablosundaki "barsivsaklama" kısmında yer alan yıl süresince "Birim arşivinde saklanacak"
2- 1. madde yıldan sonra ekleme yapılarak "karsivsaklama" kısmında yer alan yıl süresince "Kurum arşivinde saklanacak"
3- bu tabloda karşılığında "SÜRESİZ" ibaresi varsa "İmha Edilemez",
4- İmha yılı geçmiş ise "İmha Edilecek" yazacak


Örnek verirsek ;

a= malzemeadi isimli tabloda yazılı suç karşısında bulunan barsivsaklama
b=malzemeadi isimli tabloda yazılı suç karşısında bulunan karsivsaklama

Kesinleşme tarihi 01/01/2016 olan "Tazminat" evrakı olduğunu varsayalım,
Birim arşive devir yılı : 2017
a=5
b=10
2017+5 tabloda =2022 yılına kadar" Birim Arşivinde Saklanacak"
2022+10=2032 yılına kadar" Kurum Arşivinde Saklanacak" yazacak.


maddenin karşılığında "SÜRESİZ" yazıyorsa " imha edilemez"
yukarıdaki hesaplama sonucunda çıkan tarih günümüzden önce ise "imha edilecek" yazacak


Cvp: gelen sonuca göre metin kutusuna hazır metin yazma - hknct - 16-01-2017 09:43

bu konuda yardım edecek yok mu?

birim arşiv devir yılı esas alınmak suretiyle, saklanma süreleri bu yıla eklenerek hesaplama yapılması lazım.
Örnek 1;
kesinleşme tarihi =2004
arşivlik malzeme konusu="Mahkumiyet kararı verilen (1 yıldan az)" ( tabloda karşılığı birim arşivine aktarılacak yıl=5, kurum arşivine aktarılacak yıl= 15)

2004 ve 2009 arasında = birim arşivine aktarılacak yazacak (süre geçtiği için bu yazmayacak)
2009 ve 2024 arasında = kurum arşivine aktarılacak yazacak (halen süre dolmadığı için bu yazacak)

Örnek 2;
kesinleşme tarihi =1990
arşivlik malzeme konusu="Mahkumiyet kararı verilen (1 yıldan az)" ( tabloda karşılığı birim arşivine aktarılacak yıl=5, kurum arşivine aktarılacak yıl= 15)

1990 ve 1995 arasında = birim arşivine aktarılacak yazacak (süre geçtiği için bu yazmayacak)
1995 ve 2010 arasında = kurum arşivine aktarılacak yazacak (süre geçtiği için bu yazacak)
bu örnekte bu süreler geçtiği için = imha edilecek yazacak

tabloda süresiz yazanların hangisi seçilirse seçilsin "İmha edilemez" yazacak

bu konuda çok fazla bilgim olmadığı için intenette dökümanları ve örnekleri inceleyerek çözmeye çalışıyorum . bazı yerlerde tıkanıp kalıyorum.