بناء جملة إستعلام

السلام عليكم و رحمة الله ،،

أستخد الجملة التالية لملأ تقرير في برنامج فيجوال بيسك

adoPrimaryRS.Open "SHAPE {SELECT * From LKqryAgents} AS cmdGroup" & _

" COMPUTE cmdGroup BY 'Agent'", db

الآن أريد أن أضيف عبارة (Count(Agent الي الجملة وذلك لمعرفة العدد مع العلم بان هذا الحقل هو في ال Group Heading

و هذا هو كود التقرير

With rptPrjProducts

Set .DataSource = adoPrimaryRS

.DataMember = ""

With .Sections("rptGrouping_Header").Controls

.Item("fldGrouped").DataField = "Agent"

هنا يجب وضع حقل العد

.Item("fldCounter").DataField = "Agent"

' Set Report Headings

.Item("lblHead1").Caption = "Project Name"

.Item("lblHead5").Caption = "Agent Status"

.Item("lblHead2").Caption = "Active"

.Item("lblHead3").Caption = "Record By"

.Item("lblHead4").Caption = "Record Date"

End With

With .Sections("prjGrouped_Detail").Controls

.Item("Text1").DataMember = "cmdGroup"

.Item("Text1").DataField = "Place"

.Item("Text5").DataMember = "cmdGroup"

.Item("Text5").DataField = "Status"

.Item("Text2").DataMember = "cmdGroup"

.Item("Text2").DataField = "Active"

.Item("Text3").DataMember = "cmdGroup"

.Item("Text3").DataField = "rstUser"

.Item("Text4").DataMember = "cmdGroup"

.Item("Text4").DataField = "rstDate"

End With

With .Sections("PageHeader").Controls

.Item("PTitle").Caption = App.Title

.Item("rptTitle").Caption = "All Agents (Project wise)"

End With

With .Sections("PageFooter").Controls

.Item("rptUser").Caption = "Printed by " & CurUser

End With

.Refresh

.Show

End With

مع الشكر الجزيل