الارقام المفقودة فى التسلسل

[el-shazly]

السلام عليكم اخوتي مشرفي و اعضاء المنتدي

مبارك عليكم الشهر الكريم

سؤالي : كيف لي ان اعدل بالكود لجلب الارقام المفقودة فى التسلسل دون ظهور الارقام المسجلة بالفعل مثل الرقم 10905 . وكيف ليى ان اجعل الكود يبدا الحصر ابتدا من الرقم 10850 بدل الرقم 1

للامانة : الكود ماخوذ من مشاركة الاخ ابو ليان

يوسف.rar

تم تعديل مايو 24, 2019 بواسطه el-shazly

[ابو جودي]

هذا الموضوع سيكون فيه الافادة ان شاء الله لما تريد

 

https://www.officena.net/ib/topic/87733-معرفة-ارقام-السجلات-المفقودة-بين-سجلين/?tab=comments#comment-554619

تم تعديل مايو 24, 2019 بواسطه ابا جودى

[el-shazly]

نعم ابا جودي

بالفعل قمت بزيارة هذا الرابط . وبه امثله رائعة .

اعجبني مثال الاخ kanory ولكن به نفس المشكلة . يقوم باحتساب الارقام من بداية التسلسل

ولكن اريد التعديل على الكود المرفق . و لك جزيل الشكر

تم تعديل مايو 24, 2019 بواسطه el-shazly

[kanory]

3 ساعات مضت, el-shazly said:

نعم ابا جودي

بالفعل قمت بزيارة هذا الرابط . وبه امثله رائعة .

اعجبني مثال الاخ kanory ولكن به نفس المشكلة . يقوم باحتساب الارقام من بداية التسلسل

ولكن اريد التعديل على الكود المرفق . و لك جزيل الشكر

لعل هذا ما تريد ....

 

يوسف.mdb

[ابو جودي]

هذه الاكواد بها مشكله اصلا

الرقم  10850  موجود

الرقم  10905  موجود

الرقم  10907  موجود

هذا فقط على سبيل المثال وليس الحصـر كل هؤلاء موجودون بالرغم من انه اعتبرهم مفقودون

هذه الاكواد بها خلل لذلك جلبت الرابط بالاعلى

[el-shazly]

ما زالت المشكلة قائمة اخي kanory

كلامك مظبوط اخي ابا جودى

تم تعديل مايو 24, 2019 بواسطه el-shazly

[kanory]

طيب إهمل هذا النموذج واخل على الجدول Lost_Serial تجد الارقام صحيحة ....... صمم نموذج وانسخ الكود الاول من الحدث فيه...

[el-shazly]

اخي kanory

بالفعل الارقام صحيحة فى نموذج الارقام المفقودة . ولكن ماذا تقصد ( وانسخ الكود الاول من الحدث فيه... )

[ابو جودي]

     
cmdDisplay_Exit:
    Set Rc = Nothing
    Set Db = Nothing
    
Dim Rs As DAO.Recordset
Dim X, ii, F, N As Integer
Dim R As String

R = "الأرقام المفقودة هي : "
N = 10850
X = DMax("tran_no", "Lost_Serial")

Set Rs = Me.Recordset
For i = 10850 To X
For F = N To X
If Rs.Fields("tran_no") = 1 Then
N = N + 1
Exit For
Else
R = R & " - " & N
ii = ii + 1
N = N + 1
End If
Next
Rs.MoveNext
Next
RR = R
Rs.Close
Set Rs = Nothing
    

مرفق الاستاذ @kanory

هذه الاكواد لا حاجة لنا بها اذن 

بقصد هكذا

يوسف (1).mdb

[kanory]

7 دقائق مضت, ابا جودى said:

مرفق الاستاذ @kanory

هذه الاكواد لا حاجة لنا بها اذن 

بقصد هكذا

يوسف (1).mdb 304 \u0643\u064a\u0644\u0648 \u0628\u0627\u064a\u062a · 0 downloads

نعم هذا ما قصدت .... بارك الله فيك أخي أبا جودي

[ابو جودي]

1 دقيقه مضت, kanory said:

نعم هذا ما قصدت .... بارك الله فيك أخي أبا جودي

ال♥️⁩لوب عند بعضها اخى 

[el-shazly]

شاكر لكم تعبكم اخي ابا جودى , اخي  kanory

حل مناسب و ارجوا ان لا اثقل عليكم . كيف اعرض الارقام فى تقرير للطباعة علي الشكل التالي

10851 , 10852 , 10853 , 10854

 

[ابو جودي]

4 دقائق مضت, el-shazly said:

شاكر لكم تعبكم اخي ابا جودى , اخي  kanory

حل مناسب و ارجوا ان لا اثقل عليكم . كيف اعرض الارقام فى تقرير للطباعة علي الشكل التالي

10851 , 10852 , 10853 , 10854

 

سؤال جديد سو له موضوع جديد لو تكرمت

[el-shazly]

السؤال تابع لنفس الموضوع اخي . لانه عوضا عن طريقة العرض المذكورة بملف البيانات الذي ارسلته فى بداية الموضوع

[ابوخليل]

الموضوع الاصلي :

الارقام المفقودة في التسلسل

وطلبك الاخير :

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

 

احبتي يجب تقديم المصلحة العامة على الحاجة الشخصية المؤقتة

[el-shazly]

تمت الاجابة

في ميزان حسناتكم جميعا .

زادكم الله من علمه . و بالتوفيق ان شاء الله