+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Alt Form Açılması (/konu-alt-form-acilmasi.html)
Sayfalar:
1
2
Alt Form Açılması - yorum70 - 12/04/2014
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.
Cvp: Alt Form Açılması - ozanakkaya - 12/04/2014
(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??
Cvp: Alt Form Açılması - yorum70 - 12/04/2014
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.
Cvp: Alt Form Açılması - yorum70 - 14/04/2014
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.
Cvp: Alt Form Açılması - KJS - 14/04/2014
"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 "Cvp: Alt Form Açılması - yorum70 - 15/04/2014
Sayın CTTM98, belirttiğiniz kodu dediğiniz şekilde yazdım ancak, halen tümünü veriyor.
Tşk.