+- 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ığı: Çalışanların Kronik Hastalıklarına Göre İstatistik Çıkarmak (/konu-calisanlarin-kronik-hastaliklarina-gore-istatistik-cikarmak.html)
Cvp: Çalışanların Kronik Hastalıklarına Göre İstatistik Çıkarmak - feraz - 28/03/2020
(28/03/2020, 10:54)accessman yazdı:Bence * yapın abey daha sade olur ve önceden dediğim koddaki arr olan yerleri silmediyseniz silin koddan(28/03/2020, 10:53)feraz yazdı: Alttaki selectten sonraki yerlere sadece listboxtta gösterilecek alanlar yazılsa daha kısa olmazmı sadece kronik yazmak yada sadece * yazmak yeter bence çünkü bildiğim listboxa additem yöntemi ile veri alınıyor değil mi?evet doğru
strSQL = "SELECT id, isimler,kronik, firma, bastarih, bittarih
Taktım bir kere
O arr kısımları eski versiyon listboxa toptan veri yollamak içindi kodları değiştirirken silmeyi unutmuşum yani gereksiz kod olmasın.
Cvp: Çalışanların Kronik Hastalıklarına Göre İstatistik Çıkarmak - accessman - 28/03/2020
(28/03/2020, 10:44)berduş yazdı: Yalniz 12. mesajdaki kodun doğru çalışıp çalışmadığını hâlâ söylemediniz emek harcadık en azından doğru çalışıp çalışmadığını, hatalıysa görünen hatanın ne olduğunu öğrenme hakkımız olduğunu düşünüyorum.kusura bakmayın 13.mesajda cevapladım diye düşünmüştüm evet sizin yazdığınız Sql cümlesi tam sonuç veriyor
örnekteki sql2 seçeneğinde sizin Sql cümlesi var
Cvp: Çalışanların Kronik Hastalıklarına Göre İstatistik Çıkarmak - berduş - 28/03/2020
Siz benimkine çalışıyor dediniz gibi geldi ama sonrasında hep farklı bir kodu yazdığınızdan emin olamadım çalışıp çalışmadığından.
Cvp: Çalışanların Kronik Hastalıklarına Göre İstatistik Çıkarmak - accessman - 28/03/2020
sql i az buçuk bildiğimi düşünüyordum o kadar da bilmiyormuşum daha öğreneceğim çok şey var mesela
Private Sub Komut18_Click()
Dim strSQL As String
If (sqltur.Value = 1) Then
strSQL = "SELECT id, isimler,kronik, firma, bastarih, bittarih FROM Tablo1" & _
" WHERE firma='" & [Metin13] & "'" & _
" AND not isnull(kronik)" & _
" AND (CLng(bastarih)<=" & CLng(Me.sontarih) & ")" & _
" AND (CLng(bittarih)>=" & CLng(Me.ilktarih) & ")"
Else
strSQL = " select * from tablo1 where [id] not in ( select [id] from tablo1 where clng(bastarih)>=" & CLng(Me.sontarih) & _
" or clng(bittarih)<=" & CLng(Me.ilktarih) & ") and Tablo1.firma='" & [Metin13] & "'"
End If
listele strSQL, Me.Liste19, 2
End Sub
select * from tablo1 where [id] not inböyle hiç kullanmamıştım
Cvp: Çalışanların Kronik Hastalıklarına Göre İstatistik Çıkarmak - feraz - 28/03/2020
Dosanın son halinieklerseniz listboxu küçükten büyüğe sıralatmayıda yapalım olmuşken.
15.mesajdaki kod hata verdiği için yazdım.
Cvp: Çalışanların Kronik Hastalıklarına Göre İstatistik Çıkarmak - accessman - 28/03/2020
konuyu taşımışlar açılırsa ekleyeyim