[awidan76]

اولا الشكر والتقدير  دائما وابدا  للاخ احمد منصور علي المساعده المستحيله والصبر التي قامه بهما في تعليمي  

حد يخلصنا,بقى لي كود استعلام واحد فقط
الله يستر عليكم ويحفظكم ويسعدكم وينور طريقكم في كل خطوه

اريد الثلاثة الاكواد التاليه في استعلام واحد باي طريقه تحبونها

كود :

(1)Count(stuid) as Total From stuTable where stupartnumber =" & Val(Trim$(Text1.Text)) & " And studateregs BETWEEN #" & DTPicker1.Value & "# AND #" & DTPicker2.Value & "#)"
(2)Count(stuid) From stuTable Where stusex='f' And stupartnumber =" & Val(Trim$(Text1.Text)) & " And studateregs BETWEEN #" & DTPicker1.Value & "# AND #" & DTPicker2.Value & "#)"
(3)Count(stuid) From stuTable Where stusex='m' And stupartnumber =" & Val(Trim$(Text1.Text)) & " And studateregs BETWEEN #" & DTPicker1.Value & "# AND #" & DTPicker2.Value & "#)"

RS2.Open "SELECT (frist cod As Total)(the Second cod As Totalfemal)(the third cod As Totalmale) where(نفس الثلاثة الشروط اعلاه),Db, adOpenStatic, adLockOptimistic