Sub Yenile()
Me.Liste41.Requery
Dim sql As String, Say As Long
Dim srg As DAO.QueryDef
sql = "SELECT Count(a.HASTA_NO) AS SayHASTA_NO, a.HASTA_NO " & _
      "FROM (SELECT tHASTALAR.HASTA_NO, [AD] & ' ' & [SOYAD] AS İSİM, tTDV_ASAMASI.TARIH, tISLEMLER.KT_NO, tKT_PROTOKOLLER.KT_ISMI, tTDV_ASAMASI.TEDAVI_ASAMASI, tSABIT.DEGISKEN, tKT_PROTOKOLLER.SURE, tISLEMLER.ISLEM_NO " & _
      "FROM ((tHASTALAR INNER JOIN (tISLEMLER INNER JOIN tTDV_ASAMASI ON tISLEMLER.ISLEM_NO = tTDV_ASAMASI.ISLEM_NO) ON (tHASTALAR.HASTA_NO = tISLEMLER.HASTA_NO) AND (tHASTALAR.HASTA_NO = tTDV_ASAMASI.HASTA_NO)) INNER JOIN " & _
      "tKT_PROTOKOLLER ON tISLEMLER.KT_NO = tKT_PROTOKOLLER.KT_NO) INNER JOIN tSABIT ON tTDV_ASAMASI.KT_ALABILIR = tSABIT.SABIT_NO GROUP BY tHASTALAR.HASTA_NO, [AD] & ' ' & [SOYAD], tTDV_ASAMASI.TARIH, tISLEMLER.KT_NO, tKT_PROTOKOLLER.KT_ISMI, " & _
      "tTDV_ASAMASI.TEDAVI_ASAMASI, tSABIT.DEGISKEN, tKT_PROTOKOLLER.SURE, tISLEMLER.ISLEM_NO, tTDV_ASAMASI.KT_ALABILIR, tSABIT.SABIT_ADI HAVING (((tTDV_ASAMASI.TARIH) Between [Formlar]![Form1]![İLK TARİH] And [Formlar]![Form1]![SON TARİH]) AND ((tTDV_ASAMASI.KT_ALABILIR)<>9) AND ((tSABIT.SABIT_ADI) Like 'ALSIN MI?')) ORDER BY tTDV_ASAMASI.TARIH DESC)  AS a " & _
      "GROUP BY a.HASTA_NO;"
 
Set srg = CurrentDb.CreateQueryDef("sorgum", sql)
Say = 0
Say = DCount("*", "sorgum")
DoCmd.DeleteObject acQuery, "sorgum"
Me.Eklenen_Metin_Kutusu_Adi = Say
End Sub