[Ahmed_Mansoor]

أهلا أخي الكريم , لو أرفقت المثال كان أفضل , على العموم لنفترض أن إسم الجدول هو Table1 وإسم حقل التاريخ هو zDate وإسم حقل الجنسية هو Nat وإسم حقل نوع الجنس هو Gen إذا سيكون إستعلام وكود جلب المجاميع كالتالي :

PHP كود :

Private Sub Command1_Click()

Dim SQL_Saudi_Male As String
Dim SQL_Saudi_Female As String
Dim SQL_NoneSaudi_Male As String
Dim SQL_NoneSaudi_Female As String

SQL_Saudi_Male = "(Select Count(*) From Table1 Where zDate>=#" & DTPicker1.Value & "# And zDate<=#" & DTPicker2.Value & "# And Nat='سعودي' And Gen='ذكر') as Saudi_Male_Total"
SQL_Saudi_Female = "(Select Count(*) From Table1 Where zDate>=#" & DTPicker1.Value & "# And zDate<=#" & DTPicker2.Value & "# And Nat='سعودي' And Gen='انثى') as Saudi_Female_Total"
SQL_NoneSaudi_Male = "(Select Count(*) From Table1 Where zDate>=#" & DTPicker1.Value & "# And zDate<=#" & DTPicker2.Value & "# And Nat='مقيم' And Gen='ذكر') as NoneSaudi_Male_Total"
SQL_NoneSaudi_Female = "(Select Count(*) From Table1 Where zDate>=#" & DTPicker1.Value & "# And zDate<=#" & DTPicker2.Value & "# And Nat='مقيم' And Gen='انثى') as NoneSaudi_Female_Total"

Adodc1.RecordSource = "Select (Select " & SQL_Saudi_Male & "," & SQL_Saudi_Female & "," & SQL_NoneSaudi_Male & "," & SQL_NoneSaudi_Female & " From Table1"
Adodc1.Refresh

If Adodc1.Recordset.RecordCount > 0 Then

   If Not IsNull(Adodc1.Recordset.Fields("Saudi_Male_Total")) Then
      Label1.Caption = Adodc1.Recordset.Fields("Saudi_Male_Total").Value
   Else
      Label1.Caption = "0"
   End If
   
   If Not IsNull(Adodc1.Recordset.Fields("Saudi_Female_Total")) Then
      Label2.Caption = Adodc1.Recordset.Fields("Saudi_Female_Total").Value
   Else
      Label2.Caption = "0"
   End If
   
   If Not IsNull(Adodc1.Recordset.Fields("NoneSaudi_Male_Total")) Then
      Label3.Caption = Adodc1.Recordset.Fields("NoneSaudi_Male_Total").Value
   Else
      Label3.Caption = "0"
   End If
   
   If Not IsNull(Adodc1.Recordset.Fields("NoneSaudi_Female_Total")) Then
      Label4.Caption = Adodc1.Recordset.Fields("NoneSaudi_Female_Total").Value
   Else
      Label4.Caption = "0"
   End If
   
Else

   Label1.Caption = "0"
   Label2.Caption = "0"
   Label3.Caption = "0"
   Label4.Caption = "0"

End If

End Sub 


في هذا الكود الليبل1 سيكون لعدد الذكور السعوديين والليبل2 لعدد الإناث السعوديين والليبل3 لعدد الذكور المقيمين والليبل4 لعدد الإناث المقيمين وكل الأعداد بين تاريخين .