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

الأخ مفرج .. بعد التحية

الحقيقة اعتقدت في البداية أنك تسأل وهممت أن أجيبك بأنه لا يمكن عمل ذلك ولكن .. اكتشفت أنه دائما هناك عقول تفكر ودائما هناك حلول .

أشكرك كثيرا على هذا الكود وأود التنبيه فقط أنه يلــــــزم ترتيب الحقل item_code حتى تظهر النتائج مرتبة بشكل صحيح .

تحياتي

الاخ مفرج

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

لقد حاولت عمل الاستعلام كما في الشرح ولكن تظهر لي رسالة

دالة RecordNumbers غير معرف في التعبير

ثانيا :

انت قلت في الحقل الاول في الاستعلام نضع

rec_no: RecordNumbers("table1";"item_code";[item_code])

هل نضعه في المعايير ام نضعه في انشاء

ثم انت لم تذكر خاصية الحقل item_code هل هي ترقيم تلقائي ام عدد صحيح طويل وهل نجعل هذا الحقل مفتاح اساسي

وكذلك خاصية الحقل item_desc هل نجعلها نص ام رقم

واخيرا يا ريت ترفق لنا مثال يوضح هذا الاستعلام وجزاك الله عنا كل خير

وعذرا علي كثرة الاسئلة فالموضوع مهم بالنسبة الي وانا ما زلت مبتدئ بالاكسس

الاخوة الاعزاء

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

لي طلب وارجوا الا اثقل عليكم من استطاع منكم عمل رقم تسلسلي في الاستعلام ان يتكرم علينا بمثال

وجزاكم الله عنا كل خير

اخي طالب علم السلام عليكم اسف لتأخير

حاولت امس الجمعة صباحا ولكن لم استطع الدخول على الموقع

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

اخي :

صمم جدول

اسم الجدول table1

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

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

ويوجد دالة اخرى اذا كان المفتاح item_code رقم

Public Function RecordNumber(stTable As String, stPK As String, lgPK As Long)

Exit Function

Dim rsData As DAO.Recordset

Set rsData = CurrentDb.OpenRecordset("SELECT Count(" & stPK & ") AS lgRN FROM " _

& stTable & " WHERE (" & stPK & " :rolleyes:

اخي العزيز

السلام ورحمة الله وبركانه

لقد فعلت مثل ما طلبت تماما ولكن في كل مرة تظهر لي رسالة عند تشغيل الاستعلام لاادري ما سببها والرسالة هي كالتالي :

(دالة RecordNumbers غير معرفة في التعبير )

يفضل لو تضع لنا مثال موجود به هذا الاستعلام

وهناك سؤال لو كان الجدول مكون عندي من 8 حقول هل احتاج الى تغيير شئ في الكود

وجزاك الله عنا كل خير

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

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

اذا لم تجدي معك ارسل عنوانك وارسل لك قاعدة البيانات

اما عدد الحقول فهو غير محدد

اخي العزيز مفرج

لقد وضعت الدالة في الوحدة النمطية كما طلبت ولكن

نفس الرسالة تظهر ولم اتمكن من معرفة السبب

هذا بريدي ارجوا ارسال مثال عليه وجزاك الله كل خير

ashhh1@hotmail.com

الاخ مفرج وباقي الاخوه الكرام

لقد قمت بادخال تعديل بسيط على الداله وذلك لان في الغالب قد تعمل المسلس في جدول مدل عليه بعد استخدام فلتر او شئ من هذا القبيل مثلا

عندك جدول فيه ارقام الموظفين ومحتويا ملف الموظف واردت عمل نموذج يعرض كل محتويات ملف كل موظف على حده, واردت ان تظيف بجانب ذلك مسلسل فبهذه الطريفه اعتقد ان الداله الاولى لن تقوم بذلك الا اني ادخلت تعديل بسيط . الداله بعد التعديل هي:

Public Function RecordNumber(stTable As String, stPK As String, lgPK As Long, _

FieldName As String, FieText As Long)

Dim rsData As DAO.Recordset

Set rsData = CurrentDb.OpenRecordset("SELECT Count(" & stPK & ") AS lgRN FROM " _

& stTable & " WHERE (" & stPK & " <= " & lgPK & ") and (" _

& FieldName & " = " & FieText & ") ")

RecordNumber = rsData.Fields("lgRN").Value

rsData.Close

End Function

الاضافه عباره حقلين الاول اسم الحقل الذي يحوي المفتاح الذي يحوي رقم العامل (اي حقل تريد ان يكون فيه الفلتر) والاخر القيمه للحقل

وشكرا