[awidan76]

هذا كود لجلب الاحصائيات من الاخوة الغاليين احمد منصور  والاخ myalsailamy والاخ ahmedabdelaliem
ارجو التعديل عليه 
ملاحظة في جملة where 
Psex=1 And FPhelth=2
حيث ان اFPhelth حالة المريض 
1 =عايش 
2 =متوفي 
 وكذلك Psex والتي هي الجنس  
1= ذكر 
2 =انثى


معلومة :- 
zTotalMale=الاشخاص ذكور 
zTotalFemal =الاشخاص اناث
zTDM = الاشخاص المتوفين ذكور 
zTDF = الاشخاص المتوفين اناث
هذا ولكم شكري 

كود :

Private Sub Form_Load()
Call ConnectionDatabase
Me.Height = 3690
Me.Width = 10830
End Sub
Private Sub Command1_Click()
'On Error Resume Next
Dim zTotalFemal As String
Dim zTotalMale As String
Dim zTDM As String
Dim zTDF As String
Dim Too As Date
Dim from As Date
from = Format(DTPicker1, "mm/dd/yyyy")
Too = Format(DTPicker2, "mm/dd/yyyy")

zTotalMale = "(Select Count(Pemr) From TBFile,PemrTable INNER JOIN almohafz On PemrTable.PGov=almohafz.mohID Where PemrTable.Pemr=TBFile.FPemr and Psex= 1 And FPhelth <>2 And FPOutD BETWEEN #" & CDate(from) & "# AND #" & CDate(Too) & "# Group by almohafz.mohID,almohafz.mohName)"
zTDM = "(Select Count(Pemr) From TBFile,PemrTable INNER JOIN almohafz On PemrTable.PGov=almohafz.mohID Where PemrTable.Pemr=TBFile.FPemr and Psex= 1 And FPhelth=2  And FPOutD BETWEEN #" & CDate(from) & "# AND #" & CDate(Too) & "# Group by almohafz.mohID,almohafz.mohName)"

zTotalFemal = "(Select Count(Pemr) From TBFile,PemrTable INNER JOIN almohafz On PemrTable.PGov=almohafz.mohID Where PemrTable.Pemr=TBFile.FPemr and Psex= 2 And FPhelth <>2 And FPOutD BETWEEN #" & CDate(from) & "# AND #" & CDate(Too) & "# Group by almohafz.mohID,almohafz.mohName)"
zTDF = "(Select Count(Pemr) From TBFile,PemrTable INNER JOIN almohafz On PemrTable.PGov=almohafz.mohID Where PemrTable.Pemr=TBFile.FPemr and Psex= 2 And FPhelth=2  And FPOutD BETWEEN #" & CDate(from) & "# AND #" & CDate(Too) & "# Group by almohafz.mohID,almohafz.mohName)"


Set RS2 = New ADODB.Recordset

 
RS2.Open "Select almohafz.mohID ,almohafz.mohName, Count(Pemr) as Total," & zTotalFemal & " as Totalfemal," & zTotalMale & " as Totalmale," & zTDM & " as RTDM," & zTDF & " as RTDF  FROM TBFile,PemrTable INNER JOIN almohafz On PemrTable.PGov=almohafz.mohID Where PemrTable.Pemr=TBFile.FPemr  And FPOutD BETWEEN #" & CDate(from) & "# AND #" & CDate(Too) & "# Group by almohafz.mohID,almohafz.mohName", Db, adOpenStatic, adLockOptimistic


Set DataGrid1.DataSource = RS2
End Sub