Skip to main content

AccessTr.neT


Alt Form Açılması

Alt Form Açılması

Çözüldü #1
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.
.rar SİTEYE.rar (Dosya Boyutu: 91,67 KB | İndirme Sayısı: 28)
"Oyun bitince  şah ve piyon aynı kutuya atılır "
Cevapla
Çözüldü #2
(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??
Cevapla
Çözüldü #3
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.
"Oyun bitince  şah ve piyon aynı kutuya atılır "
Cevapla
Çözüldü #4
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.
.rar SİTEYE.rar (Dosya Boyutu: 231,63 KB | İndirme Sayısı: 24)
"Oyun bitince  şah ve piyon aynı kutuya atılır "
Cevapla
Çözüldü #5
"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 "
Herkes aynı şeyi düşünüyorsa, kimse yeterince düşünmüyor demektir
Cevapla
Çözüldü #6
Sayın CTTM98, belirttiğiniz kodu dediğiniz şekilde yazdım ancak, halen tümünü veriyor.

Tşk.
.rar SİTEYE15nısan.rar (Dosya Boyutu: 276,02 KB | İndirme Sayısı: 18)
"Oyun bitince  şah ve piyon aynı kutuya atılır "
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task