العدد التسلسلي في الاستعلام

هل تريد مجموع الذكور مثلا المدخلين في البرنامج أم تريد عرض الأسماء وبجانب كل اسم رقم تسلسلي ؟

ولك تحياتي

الاخ الفاضل /ابو محمود

انا اريد عرض الأسماء وبجانب كل اسم رقم تسلسلي مثل 1-2-3-4-الى الاخ.....

شكرا لك

يمكنك الحصول عل الترقيم المتسلسل فى التقرير كما هو هنا

http://www.arabteam2000.com/vb/showthread....&threadid=14725

و لكن فى الاستعلام الأمر أصعب

و هذه مشاركة للأخ مفرج فى هذا الموضوع :

طريقة وضع رقم متسلسل للاستعلامات

اخواني الاعزاء

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

هذه طريقة وضع رقم متسلسل للاستعلامات

ارجو ان ينال رضاكم

صمم جدول

اسم الجدول table1

اسم الحقل الاول item_code

اسم الحقل الثاني item_desc

صمم استعلام مثل الأتي :

SELECT RecordNumbers("table1","item_code",[item_code]) AS rec_no 
, table1.item_code, table1.item_desc 
FROM table1; 

في الاستعلام 
الحقل الاول 
rec_no: RecordNumbers("table1";"item_code";[item_code]) 

RecordNumbers اسم الدالة في الوحدات النمطية 
"table1" اسم الجدول 
"item_code" اسم الحقل 
[item_code] المفتاح 

الحقل الثاني 
item_code 
table1 
الحقل الثالث 
item_desc 
table1 

ثم ضع هذه الدالة في الوحدات النمطية العام 

Public Function RecordNumbers(stTable As String, stPK As String, lgPK As String) 
Dim rsData As DAO.Recordset 
Set rsData = CurrentDb.OpenRecordset("SELECT Count(" & stPK & ") AS lgRN FROM " _ 
& stTable & " WHERE (" & stPK & " <= '" & lgPK & "')") 
RecordNumbers = rsData.Fields("lgRN").Value 
rsData.Close 
End Function