+- 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ığı: Liste Kutusunda Listelenen Verilerin Süre Ortalaması (/konu-liste-kutusunda-listelenen-verilerin-sure-ortalamasi.html)
RE: Liste Kutusunda Listelenen Verilerin Süre Ortalaması - berduş - 25/06/2020
ben sorguya odaklandığım için diğer fonksiyonlara dikkat etmedim o fonksiyonların gerekli yerlere eklendiğinden emin olun
RE: Liste Kutusunda Listelenen Verilerin Süre Ortalaması - itfaiyeci_26 - 25/06/2020
(25/06/2020, 09:44)berduş yazdı: ben sorguya odaklandığım için diğer fonksiyonlara dikkat etmedim o fonksiyonların gerekli yerlere eklendiğinden emin olunHocam sadece süre alt ve süre üst de değil diğer alanlarda da çalışmıyor. grup adı, vardiya, olay türü, olay cinsi bu alanlar deştiğinde de çalışmıyor. sizin yazdığınız kodların altına HesaplaOrt ekledim.
Sub HesaplaOrt()
Dim tplCksSure, KytCksSure, tplCksMsf, KytCksMsf, tplVrsSure, KytVrsSure As Double
'hy Çıkış süre ortalaması 'sadece değer olan kayıtlar için
tplVrsSure = Dsum ("Val(Nz([CikisSure],0))", "[Sorgu1]", "İlkgrup_adi like '*" & Me.BİRİMKutusu & "*'" & _
" and [vardiya_id] like '*" & Me.MADDE3Kutusu & "*'" & _
" and [olay_turu_id] like '*" & Me.MADDE1Kutusu & "*'" & _
" and [olay_cins_id] like '*" & Me.MADDE2Kutusu & "*'")
KytVrsSure = DCount("*", "[Sorgu1]", "İlkgrup_adi like '*" & Me.BİRİMKutusu & "*'" & _
" and [vardiya_id] like '*" & Me.MADDE3Kutusu & "*'" & _
" and [olay_turu_id] like '*" & Me.MADDE1Kutusu & "*'" & _
" and [olay_cins_id] like '*" & Me.MADDE2Kutusu & "*'")
If KytVrsSure <> 0 Then Me.Metin92 = Sny2Sure(tplVrsSure / KytVrsSure)
'hy varış süre ortalaması 'sadece değer olan kayıtlar için
tplCksSure = Dsum ("Val(Nz([VarisSure],0))", "[Sorgu1]", "İlkgrup_adi like '*" & Me.BİRİMKutusu & "*'" & _
" and [vardiya_id] like '*" & Me.MADDE3Kutusu & "*'" & _
" and [olay_turu_id] like '*" & Me.MADDE1Kutusu & "*'" & _
" and [olay_cins_id] like '*" & Me.MADDE2Kutusu & "*'")
KytCksSure = DCount("*", "[Sorgu1]", "İlkgrup_adi like '*" & Me.BİRİMKutusu & "*'" & _
" and [vardiya_id] like '*" & Me.MADDE3Kutusu & "*'" & _
" and [olay_turu_id] like '*" & Me.MADDE1Kutusu & "*'" & _
" and [olay_cins_id] like '*" & Me.MADDE2Kutusu & "*'")
If KytCksSure <> 0 Then Me.Metin1 = Sny2Sure(tplCksSure / KytCksSure)
'hy mesafe ortalaması sadece değer olan kayıtlar için
tplCksMsf = Dsum ("Val(Nz([mesafe],0))", "[Sorgu1]", "İlkgrup_adi like '*" & Me.BİRİMKutusu & "*'" & _
" and [vardiya_id] like '*" & Me.MADDE3Kutusu & "*'" & _
" and [olay_turu_id] like '*" & Me.MADDE1Kutusu & "*'" & _
" and [olay_cins_id] like '*" & Me.MADDE2Kutusu & "*'")
KytCksMsf = DCount("*", "[Sorgu1]", "İlkgrup_adi like '*" & Me.BİRİMKutusu & "*'" & _
" and [vardiya_id] like '*" & Me.MADDE3Kutusu & "*'" & _
" and [olay_turu_id] like '*" & Me.MADDE1Kutusu & "*'" & _
" and [olay_cins_id] like '*" & Me.MADDE2Kutusu & "*'")
If KytCksMsf <> 0 Then Me.Metin85 = tplCksMsf / KytCksMsf
End SubRE: Liste Kutusunda Listelenen Verilerin Süre Ortalaması - berduş - 25/06/2020
son kullandığınız dosya hangisi?
RE: Liste Kutusunda Listelenen Verilerin Süre Ortalaması - itfaiyeci_26 - 25/06/2020
(25/06/2020, 10:32)berduş yazdı: son kullandığınız dosya hangisi?hocam buraya ekleyemiyorum nasıl ekleyebilirim
RE: Liste Kutusunda Listelenen Verilerin Süre Ortalaması - berduş - 25/06/2020
ekleyebilirsiniz.
RE: Liste Kutusunda Listelenen Verilerin Süre Ortalaması - itfaiyeci_26 - 25/06/2020
Dosyayı ekledim hocam