تخطي ارقام

[حافظ التونسي]

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

عندي مشكلة في تخطي الارقام و ستجدزن صور تبين تخطي الارقام و ابحث عن حل و لكم جزيل الشكر

 

[Foksh]

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

أعتقد كان لك موضوع مشابه لهذه المشكلة أخي حافظ فيما سبق ، في هذا الموضوع :-

 

فلا أعلم فعلاً أن كانت نفس المشكلة المتعلقة باستعمال حقل الترقيم التلقائي أم لا .. على العموم ارفق ملفك لرؤية معطيات السؤال .

[Moosak]

12 ساعات مضت, حافظ التونسي said:

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

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

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

*كود RowNum لعمل ترقيم متسلسل للسجلات في النموذج المستمر أو المفرد في حقل غير منظم*

*شرح الكود:*
يوضع في موديول منفصل ..
ثم في حقل المسلسل في النموذج ويكون حقل غير منظم يكتب في مصدر بياناته هكذ : =RowNum([Form])

*الكود:*
Public Function RowNum(frm As Form) As Variant
On Error GoTo Err_RowNum
    'Purpose:   Numbering the rows on a form.
    'Usage:     Text box with ControlSource of:  =RowNum([Form])
    
    With frm.RecordsetClone
        .Bookmark = frm.Bookmark
        RowNum = .AbsolutePosition + 1
    End With
    
Exit_RowNum:
    Exit Function
    
Err_RowNum:
    If Err.Number <> 3021& Then  'Ignore "No bookmark" at new row.
        Debug.Print "RowNum() error " & Err.Number & " - " & Err.Description
    End If
    RowNum = Null
    Resume Exit_RowNum
End Function


*طريقة الاستدعاء (الاستخدام):*
=RowNum([Form])
تكتب نصا كما هي

*مرجع:*
#https://www.officena.net/ib/topic/117111-%D9%85%D8%B3%D9%84%D8%B3%D9%84-%D9%84%D9%84%D8%B5%D9%86%D9%81-%D9%81%D9%8A-%D8%A7%D9%84%D9%86%D9%85%D9%88%D8%B0%D8%AC/#comment-705668

*مكتبة الأكواد*

 

[حافظ التونسي]

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

شكرا علو مرورك و تعليقك

المشكلة هي في بعض الاحيان لما ادخل معلومات في الخانات و الاحظ اني ارتكبت خطا فاغلب الاحيان اغلق البرنامج و لما افتحه من جديد اجد ان رقم هته الصفحة قد اختفى و اليا ينتقل الى الرقم الموالي

لهذا تجد بعض ارقام الصفحات محذوف.

فكيف الحل؟؟

تم تعديل منذ 36 دقائق بواسطه حافظ التونسي
لاوضح المشكلة اكثر

[حافظ التونسي]

و الى السيد فوكش بصماتك في تعديل برنامجي كثيرة و استفدت من خبرتك كثيرا و لكم جزيل الشكر.

بالنسبة لهذا الاشكا سارفق لك البرنامج و صورة توضح المشكلة

و انتظر من حضرتكم ان تنظر فيها

 

Base_vente_simple_15_09_2026_1.rar