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

اخي الفاضل : عبدالله

بارك الله بك وجزاك الله كل خير على هذا التعديل الأكثر من رائع وخاصة فيما يخص هذا السطر بالذات

MyName = CurrentObjectName

Dim RcNumq

RcNumq = Null

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

مشاركة أكثر من رائعة وأكيد +1

وبرأيي المتواضع لاداعي لاستخدام المتغير RcNumq 

هنيئا لك هذا  العمل عبدالله.. متمنيا لك  مزيدا من التوفيق والنجاح

+1 للمشاركة

Function RcNumq1(mID As Variant, fldName As String) As Variant
Dim RstClone As Recordset
Dim Fld As Field
Dim I As Long
Dim MyName As String
RcNumq = Null
MyName = CurrentObjectName
If IsNull(mID) Then Exit Function
Set RstClone = CurrentDb.QueryDefs(MyName).OpenRecordset
If RstClone.RecordCount = 0 Then Exit Function
Set Fld = RstClone.Fields(fldName)
With RstClone
.MoveFirst
Do Until .EOF
I = I + 1
If Fld = mID Then Exit Do
.MoveNext
Loop
End With
RstClone.Close
RcNumq1 = I
End Function

ملاحظات

- صرحت عن الوظيفة بمتغير (Variant) وأسندت إليها قيمة متغير (Long) يجب أن تساوي بينهما

- لماذا المتغير (Long) يكفي أن تستخدم (Integer) 

- إذا كان المتغير (RcNumq1) ليس له ارتباط.. فينبغي حذفه

- 

تحسينات

- يمكن استخدام الخصيصة (AbsolutePosition)  التابعة لـ (Recordset) للتعداد بدلا من المتغير (I)  مع إضافة +1 لأنها تبدأ العد من الصفر

- يمكن إضافة بداية العد ومقدار التغير ضمن محددات الوظيفة وجعلها اختيارية

- إضافة تعليقات بين سطور الشفرة توضح سريان عمل الشفرة لتصبح أكثر فائدة

عمل ممتاز تشكر عليه اخي الكريم

ملاحظة بسيطة:

الكثير من الدوال, الكلاسز او المودلز التي يفوم بنشرها المطورين عادة تحتوي على حاجتين مهمتي

1- Comments: وهي الملاحظات التي توضح وظيفة الكود, مخرجاته , طريقة عمله الخ

2- مزاياه و عيوبه

لكن في الاخر هذا لاينقص هذا العمل الجبار

تحياتي +1

السلام عليكمالاستاذة الفاضلة زهرةيكفيني ردك على المشاركة واشكر لك تشجيعي وهذه بداياتي مع الاكسس فخبرتي كلها اكسل

الاخوة الكرام اياد بيك الاستاذ القحمCreative Manاشكركم على التقييم بالنسبة للدالة فهي منقولة وتعديلي تم على مرونة الاستعلام وتطبيقها على الملف

هذه المشكلة واجهتني الاسبوع الماضي وبحثت عن حل لها بالمنتدى او في المنتديات الاجنبية لكن للاسف لم اصل لحل وخاصة في النموذج ....

ولكن بقليل من التفكير وما لدي من قدر متواضع من المعلومات حول الاكسيس وبالتفكير المنطقي ( وصلت لحل مقنع على الاقل بالنسبة لي ) وذلك بعد ان سألت  نفسي بعض الاسئلة !!! والتي اجبت لنفسي عليها .

س : ما فائدة الترقيم التلقائي بالنسبة لي ؟؟؟

ج : هو مفيد لي في حالة استخراج حساب عميل او مورد او كشف حساب لاي حساب لدي من خلال بعض الاستعلامات 

ماهي الخطوة التالية بعد عمل الاستعلام ؟؟؟

هو عمل تقرير بما وصلت له من معلومات من خلال الاستعلام اذن فانا بحاجه للترقيم التلقائي في التقرير وليس في الاستعلام 

واخذت فكرة الرصيد المتراكم او المرحل وطبقتها على حقل الرقم التلقائي في التقرير وافترضت الاتي 

حقل الترقيم : م ( مسلسل ) = 1 في حقل منضم 

في خصائص الحقل قمت باختيار runing sum >> over all 

وصلت للنتيجة ان كل سجل سياخذ رقم عبارة عن قيمة الحقل = ن +1 (رقم السجل السابق له +1 )

اعتذر للاطالة وشكراً لاستاذ عبد الله المجرب ....ولكل من تعلمت منهم الاكسيس ...

اليكم ملف التطبيق

sn.rar

شكرا أستاذ عبد الله

جزاك الله خيرا+