#7
Sayın seruz'un bahsettiği raporu ben ekledim. Siz kullanmak istediğiniz şekilde dizayn edin artık.
ikitarih_seruz.rar
(Dosya Boyutu: 29,5 KB | İndirme Sayısı: 45)
İnadına, ille de Accesstr.net...
İki tarih arasındaki kayıtları saymak ve raporlamak
#7
ikitarih_seruz.rar
(Dosya Boyutu: 29,5 KB | İndirme Sayısı: 45)
#8
Aylık Hedefleri ekledim bunları otomatik hesaplama sorgusu için yardım edebilirmisiniz
ikitarih_seruz.rar
(Dosya Boyutu: 25,88 KB | İndirme Sayısı: 16)
#9
Ben size bununla ilgili bir örnek hazırladım ama şu anda ekleyemiyorum. Geç saatlerde eklerim.
İnadına, ille de Accesstr.net...
#10
Sayın hyavuz
Size bir önceki örneğimde rapor yapmıştım. Fakat siz yine raporsuz örneği gönderdiğiniz için sanırım o şekli sizi tatmin etmedi diye düşünüyorum. Gönderdiğinix bu örnekte de yeni eklediğiniz "hedef" tablosundaki ay adlarını diğer form üzerindeki şekle getirdim. Siz "Ocak 2009" şeklinde yazmışsınız. Oysa Form üzerindeki açılankutudaki format "Ocak-2009" biçiminde. Doğal olarak ikisi arasında bir ilgi kurmanız için tek ortak noktaları burası. Onlar da farklı olursa tutar dalımız kalmayacak. O yüzden ben sizin "hedef" tablonuzu gerektiği şekilde düzenledim. Ayrıca formunuzdaki açılan kutuda yeralan veriniz tabloda bulunmadığı için sorgu üzerinden eşleme yapılamadı, form üzerine koyduğum bir alt form ile eşleme yapıp veriyi bu yolla alabildim.
Rapor için bir önceki örneğimi inceleyip artık kendiniz istediğiniz şekilde bir rapor yapabilirsiniz.
Kolay gelsin.
Size bir önceki örneğimde rapor yapmıştım. Fakat siz yine raporsuz örneği gönderdiğiniz için sanırım o şekli sizi tatmin etmedi diye düşünüyorum. Gönderdiğinix bu örnekte de yeni eklediğiniz "hedef" tablosundaki ay adlarını diğer form üzerindeki şekle getirdim. Siz "Ocak 2009" şeklinde yazmışsınız. Oysa Form üzerindeki açılankutudaki format "Ocak-2009" biçiminde. Doğal olarak ikisi arasında bir ilgi kurmanız için tek ortak noktaları burası. Onlar da farklı olursa tutar dalımız kalmayacak. O yüzden ben sizin "hedef" tablonuzu gerektiği şekilde düzenledim. Ayrıca formunuzdaki açılan kutuda yeralan veriniz tabloda bulunmadığı için sorgu üzerinden eşleme yapılamadı, form üzerine koyduğum bir alt form ile eşleme yapıp veriyi bu yolla alabildim.
Rapor için bir önceki örneğimi inceleyip artık kendiniz istediğiniz şekilde bir rapor yapabilirsiniz.
Kolay gelsin.
ikitarih2_seruz.rar
(Dosya Boyutu: 48,66 KB | İndirme Sayısı: 60)
İnadına, ille de Accesstr.net...
#11
mehmetdemiral başarılı çalışmaların için sana minnettarım, çok teşekkür ederim hedef alanı çok iyi olmuş peki bu hedefte artıya geçtiğinde +22 gibi yazabilirmi? Birde kişi servise birden çok gelmiş mesela birincisinde bilgisayarına format attırmış , ikincisinde ekranı tamir ettirmiş, yani bunlara otomatik hesap açabiliyormuyuz anlatmak istediğim kişinin adı tekrarlanması yerine kişi hesabına işlenmesi
Son Düzenleme: 07/02/2009, 11:39, Düzenleyen: hyavuz.
#12
Sayın hyavuz
Açılan kutunun güncelleme sonrasındaki kodları şu şekilde değiştirin:
Böylece + olunca "+" - olunca da "-" belirir.
Diğer konuda ise yapacağınız şey, programın mantığını tamamen değiştirmekten geçer. Müşterileri ayrı işleri ayrı tablolarda tutmanız ve birbiriyle ilişkilendirmeniz gerekir, Form üzerinde müşteri tablosu, alt form olarak da oba bağlı çalışan ve süzülen alt form aracılığı ile işlemler tablosu yer almalı. Şahsen ben bunu yapmaya kalkarsam programı yeniden yazmam gerekir ki, benim zaten teknik servis programımı bu sitenin örneklerinde sevgili Ozan yayınlamıştı. Yani böylr bir çalışmam var..
Siz başlayın ben destek olurum.
Kolay gelsin
)
Açılan kutunun güncelleme sonrasındaki kodları şu şekilde değiştirin:
Kod:
Dim memo As String
Dim Bas As Long, Bit As Long
Bas = DateSerial([Secilen_Ay].[Column](1), [Secilen_Ay].[Column](2), 4)
If [Secilen_Ay].[Column](2) = 12 Then
Bit = DateSerial([Secilen_Ay].[Column](1), 1, 3)
Else
Bit = DateSerial([Secilen_Ay].[Column](1), [Secilen_Ay].[Column](2) + 1, 3)
End If
Me.BasTarih = Bas
Me.BitTarih = Bit
Me.KayitSayisi = DCount("*", "Ana", "Tarih Between " & Bas & " And " & Bit)
[hedef Sorgu alt formu].Requery
Metin20 = KayitSayisi - Metin18
If Metin20 > 0 Then
memo = Metin20
Metin20 = "+" + [memo]
Else
End IfDiğer konuda ise yapacağınız şey, programın mantığını tamamen değiştirmekten geçer. Müşterileri ayrı işleri ayrı tablolarda tutmanız ve birbiriyle ilişkilendirmeniz gerekir, Form üzerinde müşteri tablosu, alt form olarak da oba bağlı çalışan ve süzülen alt form aracılığı ile işlemler tablosu yer almalı. Şahsen ben bunu yapmaya kalkarsam programı yeniden yazmam gerekir ki, benim zaten teknik servis programımı bu sitenin örneklerinde sevgili Ozan yayınlamıştı. Yani böylr bir çalışmam var..
Siz başlayın ben destek olurum.
Kolay gelsin
)
İnadına, ille de Accesstr.net...
Konuyu Okuyanlar: 1 Ziyaretçi
