تخطي ارقام

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

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

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

 

[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

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

 

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

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

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

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

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

فكيف الحل؟؟

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

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

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

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

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

 

Base_vente_simple_15_09_2026_1.rar

[Foksh]

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

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

شرف لي أن يكوني لي ذكر وأثر في مشاريع أصدقائي وأخواني هنا .. 😇

 

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

 

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

[منتصر الانسي]

اسمحوا لي بهذه المداخلة

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

هناك حل لهذه النقطة ولكنه حل غير عملي تماماً فهو يحتاج إلى تحقق شرطين الأول أن تكون السجلات المحذوفة في نهاية الجدول والشرط الثاني القيام بإجراء ضغط وإصلاح لقاعدة البيانات وهذين الشرطين من الصعب إن لم يكن مستحيلاً تحقيقهما في الواقع 

الحل الأنسب هو أن يتم ترقيم السجلات عن طريق البرنامج وقد ذكر الأخ @Foksh إحدى تلك الطرق وهي بإستخدام دالة DMAX رغم أنها ستحل نص المشكلة فهي ستحل مشكلة حذف أخر سجل ولكن لن تحل المشكلة إذا تم حذف سجل من المنتصف

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

أرجو أن تجد فيها حل للمشكلة

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

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

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

و اليكم يا سادتي كل من اراد ان يطوره فليفعل و ساكون اول المتابعين لاتعلم و اطور افكاري و قدراتي التي بفضل الله اكتسبتها من نصائحكم و معونتكم

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

و سالقي نظرة على ما تفضل بيه السيد منتصر الانسي من مداخلة و ادخل الرابط لاحاول ان افهم و اتعلم.

gestion commerciale.rar

[Foksh]

بارك الله فيك أخي حافظ ، وجزاك الله عنا وعن من سيستفيد من مشروعك هذا كل خير .. ونسأل الله أن يكون في ميزان حسناتك .

بعد تحميلي الملف صادفتني مشكلة عند تسجيل الدخول :-

 

 

[منتصر الانسي]

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

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

هذه الكلمات هي أكبر جائزة فهنيئاً لكما أخي @Foksh وأخي @ابوخليل

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

سنيت اناكتب المفتاح

المفتاه هو H    123

 

تم تعديل سبتمبر 16 بواسطه حافظ التونسي
اصلاح