aşağıda sadece istatistik formunun olduğu bir çalışma var formu kendi çalışmanıza eklemeniz yeterli
1 - öncelikle form modülünün en üstünde yer alan

Option Compare Database

Dim tplCksSure, KytCksSure, tplCksMsf, KytCksMsf, tplVrsSure, KytVrsSure As Double

kodlarının altına aşağıdaki kodu ekleyin

Dim MtnKosulR As String

2 - TmListeGncl fonksiyonunun en altına 

MtnKosulR = MtnKosul

kodunu ekleyin
3 - yeni bir olay eklendi ama isterseniz aşağıdaki kodu doğrudan TmListeGncl de ekleyebilirsiniz

Private Sub Komut110_Enter()

MtnKosulR = IIf(Len(MtnKosulR) = 0, "", " where " & MtnKosulR)

CurrentDb.QueryDefs("sorgu1Krt Sorgu").SQL = _

          "SELECT Sorgu1.vaka_no, Sorgu1.İlkgrup_adi, TblVardiya.vardiya, Sorgu1.olay_tarihi, olay_turu.olay_turu, " & _

          "olay_cins.olay_cins, Sorgu1.İfade1, Sorgu1.İfade2, Sorgu1.mesafe, Sorgu1.CikisSure, Sorgu1.VarisSure " & _

          "FROM ((Sorgu1 INNER JOIN olay_turu ON Sorgu1.olay_turu_id = olay_turu.olay_turu_id) " & _

          "INNER JOIN olay_cins ON Sorgu1.olay_cins_id = olay_cins.olay_cins_id) " & _

          "INNER JOIN TblVardiya ON Sorgu1.vardiya_id = TblVardiya.vardiya_id " & MtnKosulR

End Sub