bence en uygun yer hesapla alt yordamına eklemenizdir ama hata vermemesi için form_open/Form_Açıldığında olayından hesap yordamını silmenizdir. zaten form_yüklenirken/load olayında hesapla fonksiyonu var tekrar form_open/açıldığında olayına eklemenize gerek yok
eğer alanlar boş olsa bile ortalamayı kriterlere uyan tüm kayıtlar üzerinden yapmak istiyorsanız sadece kriterlerde yer alan
and not isnull([arac_cikis_sure]) ve and not isnull([mesafe]) alanlarını çıkarmanız yeterli
sadece değer olan kayıtlar için d
Sub HesaplaOrt()
Dim tplCksSure, KytCksSure, tplCksMsf, KytCksMsf As Double
'hy süre ortalaması 'sadece değer olan kayıtlar için
tplCksSure = Dsum ("Val(Nz([arac_cikis_sure],0))", "[yangin Sorgu]", "gurup_adi like '*" & Me.BİRİMKutusuGecici & "*'" & _
" and [vardiya] like '*" & Me.MADDE3KutusuGecici & "*'" & _
" and [olay_turu] like '*" & Me.MADDE1KutusuGecici & "*'" & _
" and [olay_cins] like '*" & Me.MADDE2KutusuGecici & "*'")
KytCksSure = DCount("*", "[yangin Sorgu]", "gurup_adi like '*" & Me.BİRİMKutusuGecici & "*'" & _
" and [vardiya] like '*" & Me.MADDE3KutusuGecici & "*'" & _
" and [olay_turu] like '*" & Me.MADDE1KutusuGecici & "*'" & _
" and [olay_cins] like '*" & Me.MADDE2KutusuGecici & "*'")
If KytCksSure <> 0 Then Me.Metin1 = tplCksSure / KytCksSure
'hy mesafe ortalaması sadece değer olan kayıtlar için
tplCksMsf = Dsum ("Val(Nz([mesafe],0))", "[yangin Sorgu]", "gurup_adi like '*" & Me.BİRİMKutusuGecici & "*'" & _
" and [vardiya] like '*" & Me.MADDE3KutusuGecici & "*'" & _
" and [olay_turu] like '*" & Me.MADDE1KutusuGecici & "*'" & _
" and [olay_cins] like '*" & Me.MADDE2KutusuGecici & "*'")
KytCksMsf = DCount("*", "[yangin Sorgu]", "gurup_adi like '*" & Me.BİRİMKutusuGecici & "*'" & _
" and [vardiya] like '*" & Me.MADDE3KutusuGecici & "*'" & _
" and [olay_turu] like '*" & Me.MADDE1KutusuGecici & "*'" & _
" and [olay_cins] like '*" & Me.MADDE2KutusuGecici & "*'")
If KytCksMsf <> 0 Then Me.Metin85 = tplCksMsf / KytCksMsf
End SubSub HesaplaOrtTum()
Dim tplCksSure, KytCksSure, tplCksMsf, KytCksMsf As Double
'hy süre ortalaması tüm kayıtlar için
tplCksSure = Dsum ("Val(Nz([arac_cikis_sure],0))", "[yangin Sorgu]", "gurup_adi like '*" & Me.BİRİMKutusuGecici & "*'" & _
" and [vardiya] like '*" & Me.MADDE3KutusuGecici & "*'" & _
" and [olay_turu] like '*" & Me.MADDE1KutusuGecici & "*'" & _
" and [olay_cins] like '*" & Me.MADDE2KutusuGecici & "*' and not isnull([arac_cikis_sure])")
KytCksSure = DCount("*", "[yangin Sorgu]", "gurup_adi like '*" & Me.BİRİMKutusuGecici & "*'" & _
" and [vardiya] like '*" & Me.MADDE3KutusuGecici & "*'" & _
" and [olay_turu] like '*" & Me.MADDE1KutusuGecici & "*'" & _
" and [olay_cins] like '*" & Me.MADDE2KutusuGecici & "*' and not isnull([arac_cikis_sure])")
If KytCksSure <> 0 Then Me.Metin1 = tplCksSure / KytCksSure
'hy mesafe ortalaması tüm kayıtlar için
tplCksMsf = Dsum ("Val(Nz([mesafe],0))", "[yangin Sorgu]", "gurup_adi like '*" & Me.BİRİMKutusuGecici & "*'" & _
" and [vardiya] like '*" & Me.MADDE3KutusuGecici & "*'" & _
" and [olay_turu] like '*" & Me.MADDE1KutusuGecici & "*'" & _
" and [olay_cins] like '*" & Me.MADDE2KutusuGecici & "*' and not isnull([mesafe])")
KytCksMsf = DCount("*", "[yangin Sorgu]", "gurup_adi like '*" & Me.BİRİMKutusuGecici & "*'" & _
" and [vardiya] like '*" & Me.MADDE3KutusuGecici & "*'" & _
" and [olay_turu] like '*" & Me.MADDE1KutusuGecici & "*'" & _
" and [olay_cins] like '*" & Me.MADDE2KutusuGecici & "*' and not isnull([mesafe])")
If KytCksMsf <> 0 Then Me.Metin85 = tplCksMsf / KytCksMsf
End Sub