Sayın Berduş hocam her iki programı da indirdim ancak çalıştırmak ta problem yaşıyorum bu (1 - referanslara Microsof AcriveX Data Objects x.x library eklendi)
bundan kaynaklana bilir mi? bunu nasıl düzeltebilrim.
Hatam 11 nolu mesajınızda paylaştığınız program içerisine tablolarımı kopyaladığım halde ne vaka formunda ne de istatistik formunda veri gözükmüyor.
12 nolu mesajınızda paylaştığınız program içerisinde verileri görüyorum ancak istatistik formunda hiç veri alamıyorum. acaba nerede hata yapıyorum. sorguları çalıştırdığım zaman da sorguların içi de boş geliyor.
Mail olarak gönderdiğim dosyaları incelediniz mi aynı sorun onlarda da var mı?
Referansları kontrol ettiniz mi? Başında MISSING yazan var mı?
(24/07/2020, 08:45)itfaiyeci_26 yazdı: sorguları çalıştırdığım zaman da sorguların içi de boş geliyor.
Doğrudan ilgili sorgular da boş geliyorsa sorun verileri kopyalarken yapılan bir hatadan kaynaklanıyor olabilir, tabloları nasıl kopyaladınız?
Hocam mail olarak gönderdiğiniz dosyayı inceledim. ben önceden sadece tabloların içindeki verileri alıyordum son olarak gönderdiğiniz programdaki tabloları silerek kendi tablolarımı ekledim o şekilde düzeldi sanırım tabloları kopyalarken ata yapıyordum. Ancak şimdi fark ettim istatistik formundaki rapor al sekmem hatalı çalışıyor bunun için yeni bir konu mu açayım buradan bakabilir misiniz. Önceden süzerek liste kutusuna getirdiğim verileri rapor olarak alabiliyordum. şimdi rapor al dediğim de sorgu1Krt içerisindeki tüm listeyi getiriyor. bunu nasıl çözebilirim.
Önceden her sorguda sorgu1Krt yapısı değişiyordu son değişikliklerle sorgu değişmediği için hatalı oluyor uygun bir zamanda ilgilenmeye çalışırım.
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
2 şey dikkatimi çekti
1 - bir çok kayıtta tarih ve zaman girilmemiş kimisinde ise sadece tarih yada zaman girilmiş bu tür kayıtlarda hesaplamalar hatalı olur
2 - istatistik formunda kullanılan hesaplama yönteminde süre alanı boş ise değerini 0 olarak hesaplatıp ortalamayı ona göre hesaplıyor dolayısıyla olmayan değerler nedeniyle ortalama daha düşük çıkıyor.