Uzun bir aradan sonra merhaba.
FRMDATA formunda YIL-AY odaklı istatistik alınacak.
frmdata formunda, SUCKAPSAMINI seçince, FRMSUC formu açılacak ve aylık olarak onumuze gelen degerler tek tek girilecek.....
SUCKAPSAM seçilince, oyle bir form açılmalı ki, tek tek tum sucları gorelim ve karşısına Faili Belli-Faili Mechul olayları ekleyelim.
TŞK.
(12/04/2014, 17:05)yorum70 yazdı: [ -> ]FRMDATA formunda YIL-AY odaklı istatistik alınacak.
TBLDATA veya TBLSUCTURU tablolarında yıl ve ay ile ilgili hiçbir veri yok, "YIL-AY odaklı istatistik"i nasıl alacaksınız??
Cepten yaziyorum, gonderince aklıma geldi. Tbldataya ekledim.Ve bu girilen sayı degerlerine altta bulunan frmlerden şahıs sayısı ve suc alet sayısı girilip, kaydet ile birlikte ekkm forumlarında gozukecek.Tsk.
Merhaba
Biraz düzelttim sayılır.
FRMCIKTI da 2 ay arası rapor almam gerekiyorve aldığım raporu frmanaraporda gösterecek.sorguyu İKİAY sorgusundan veya SRGDATA2 den alabilir..Velhasıl, yıl seçilince iki ay rapor kısmında sıkışıp kaldım.Son halini ekliyorum.Tşk.
"ikiay" - sorgusunun ölçüt kısmına; alt alta 3 satıra aşağıdaki kodu yazmanız gerkiyor.
Between IIf([Formlar]![FRMCIKTI]![AY1] Is Null;"OCAK";[Formlar]![FRMCIKTI]![AY1]) And IIf([Formlar]![FRMCIKTI]![AY2] Is Null;"ARALIK";[Formlar]![FRMCIKTI]![AY2])
Ben böyle çözüm ürettim...
Sesli düşünüyorum eğer "kasım 2013"-"şubat 2014" arası istenirse nasıl sorgulatmayı düşünüyorsunuz?
Birde aşağıdaki kodu tekrar incelerseniz;
Excel dosyayı dışarı verirken üstüne yazıyor bilginiz olsun.
Dim Klasor
Klasor = CurrentProject.Path & "\" & "SUÇ İSTATİSTİKLERİ -" & " " & Format(Date, "mm/dd/yy") & " " & Format(Time, "hh-mm-ss-AM/PM") & ".xls"
If MsgBox("Aktarma işlemi,programın bulunduğu yere kayıt olacak,oradan bulun,Verileri Excele aktarmak istiyor musunuz? ", 36, "EXCELE VERI AKTARIMI") = 6 Then
DoCmd.TransferSpreadsheet acExport, 8, "SRGDATA1", Klasor, True, "SRGDATA1"
DoCmd.TransferSpreadsheet acExport, 8, "SRGDATA2", Klasor, True, "SUÇKAPSAMINA "
Sayın CTTM98, belirttiğiniz kodu dediğiniz şekilde yazdım ancak, halen tümünü veriyor.
Tşk.