Tarih ve Durum Güncelleme

Merhaba, yenimeye çalıştığım çalışmamda;

Form1 üzerinden, gönderilme tarihi gelmiş evrakları iki tarih aralığında, GÖNTARİH(TARİH+15) gelmiş evrakları, DURUMU açılan kutusundan BEKLEMEDE olanları seçerek listeleyiyoruz. Gelen liste ile, ÜSTYAZİ raporu ile yazdırıyoruz, burada ki AYRINTI kısmına, Sn.Ozanakkaya'nın daha önce sitede yayınlamış olduğu UPDATE komutuyla, yazdırılan BEKLEMEDE olanları GÖNDERİLDİ ye çeviriyor... Burada ki üzerinde çalıştığım sorun;

BEKLEMEDE= GÖNDERİLDİ yapıyor ama diyelimki 50 tane beklemede olan evrak yazdırılıyor, 50 kere aynı mesajı soruyor....msg kaldırabilirim belki ! seçenekler-istemci ayarlarından-onay kutusu çentiğini kaldırdım yine sordu....kaç tane olursa olsun, sormasın.

diğer sorunlar ise benzer, BEKLEMEDE=GÖNDERİLDİ yaparken, tbl_kabahat'de ki GONTARİH'lerini yazdırıldığında DATE() olarak değiştirsin istiyorum. Ve yazdırdığımda USTYAZİ raporunda, diyelim 50 BEKLEMEDE olan evrak gönderilecek, 50 kere aynı şeyleri yazıp duruyor, halbuki ben iki satır yazı ile sadece SAYI olarak belirtip yazmak istiyorum.

3 soruyu tek seferde sordum, benzer konular olduğunu düşündüm, umarım Site Kurallarını ihmal etmemişimdir, ettiysem affola !

---

Form1'i eklememişim, özür diliyorum, Ayrıca, üstyazı raporu AYRINTI yordamında ki UPDATE msgbox'u pasif yaptım.

her seferinde mesaj verme olayını msgboxsu kaldırarak hallettim.Biraz ilkel oldu ama, halloldu.

Konu başlığı olan "Tarih ve Durum Güncelleme" ile ilgili soru için;

Alıntı:diğer sorunlar ise benzer, BEKLEMEDE=GÖNDERİLDİ yaparken, tbl_kabahat'de ki GONTARİH'lerini yazdırıldığında DATE() olarak değiştirsin istiyorum.

ustyazi isimli raporun ayrıntının yazıldığında olayına yazılı kodu aşağıdaki ile değiştirerek deneyiniz.

DoCmd.RunSQL ("UPDATE tbl_kabahat SET tbl_kabahat.durumu = 'Gönderildi', GONTARİH = Date() WHERE (((durumu) Like '*' & [Formlar]![form1]![DRM] & '*') AND (([Tarih]+15) Between [Formlar]![Form1]![tarih] And [Formlar]![Form1]![tarih1]))")

liste kutusundaki veri ile tbl_ana sorgusundaki veri sayısı uyuşmadığı için Tarih+15 kodunu ekledim. Umarım çalışır.

(12/10/2014, 00:22)yorum70 yazdı: Ve yazdırdığımda USTYAZİ raporunda, diyelim 50 BEKLEMEDE olan evrak gönderilecek, 50 kere aynı şeyleri yazıp duruyor, halbuki ben iki satır yazı ile sadece SAYI olarak belirtip yazmak istiyorum.

Bu soru için üst yazı raporunun kayıt kaynağını değiştirdim, kayıt kaynağına sorgu ekleyip top 1 kodu ile 1 kayıt göstermesini sağladım.

Kayıt sayısını rapora aktarmak için modüle

Global CiktiSayisi As Integer

kodu,
formdaki üstyazı butonuna da

CiktiSayisi = Me.liste.ListCount - 1

kodu ekledim.

Raporda görünmesi içinde rapordaki Metin35'in denetim kaynağını aşağıdaki ile değiştirdim.

=" Polis Merkezi Amirliğimiz sorumluluk alanında, muhtelf tarihlerde 5326 Sayılı Kabahatler Kanunu kapsamında uygulanan " & [AccessTotalstop] & " adet idari yaptırım karar tutanağı ve ayrıntılı liste yazımız ekinde sunulmuştur."

Bu şekilde sayı metnin içerisinde yazdığı için kötü görüntü kayboldu.

AccessTotalstop metin kutusundaki veriyi sayı (metin) şeklinde görünmesi için modüle sayıya çevirme fonksiyonu ekledim.

Sn.Ozanakkaya, indirdim, denedim..formlarda TARİH parametre hatası verdi, onları kaynaklarından (GONTARİH:TARİH+15) değiştirdim, oldu.

Bir tane örnek için denedim, Üstyazi raporunda 1 Adet olarak yazmadı, tarih güncelleme(date) ile olmuş..Sınırlı vakitte bakabildiğim kadarıyla yorumum bu kadar.Ayrıntılı inceleyip bilgi vereceğim.Tşk

Konu başlığı ve içeriği ile ilgili sorunlar halledildi, tşk.Sn.Ozanakkaya.

Burada ufak bir sorun, yazılacak 50 tane de olsa, tek sayfaya iki yarım sayfa(bir paraflı-bir parafsız) şekilde sadece toplam kayıt sayısı eklenerek çıktı almak istiyorum.Üstte ki ilk yarım sayfada ADET sayısı gösteriliyor, ancak aynını aşağı kopyalayıp düzenlediğim halde ADET sayısını göstermiyor, sebebi ne olabilir sizce ?

Me.AccessTotalstop = CiktiSayisi
Me.AccessTotalstop1 = CiktiSayisi
Me.AccessTotalstop = CiktiSayisi & " (" & Sayiyi_Metne_Cevir([AccessTotalstop]) & ")"
Me.AccessTotalstop1 = CiktiSayisi & " (" & Sayiyi_Metne_Cevir([AccessTotalstop1]) & ")"

Me.Metin35.Requery
Me.Metin83.Requery

---

Şeklinde hallettim, konu çözümlenmiştir.Teşekkür ediyorum.