AccessTr.neT

ben sorguya odaklandığım için diğer fonksiyonlara dikkat etmedim o fonksiyonların gerekli yerlere eklendiğinden emin olun

(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 olun

Hocam 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 Sub

son kullandığınız dosya hangisi?

(25/06/2020, 10:32)berduş yazdı: [ -> ]son kullandığınız dosya hangisi?

hocam buraya ekleyemiyorum nasıl ekleyebilirim

ekleyebilirsiniz.

Dosyayı ekledim hocam