الترقيم التلقائي

[kaser906]

السلام عليكم

بالمرفق

نموذج يوجد به زر أمر يقوم بإعطاء رقم تلقائي يبدأ بحرف

عن طريق الكود التالي

    Me.حاسب = AutoNumber("Test", "حاسب", "M", 0)

المشكلة أن الترقيم يتوقف عند الرقم M100

واذا قمت بتعديل الرقم يدوياً مثلاً M999

وعند اعطاء رقم جديد يتوقف الرقم عند M1000

المطلوب

اعطاء رقم يبدأ من M1 عندما لايكون بالجدول رقم ويستمر الترقيم إلى ما لا نهاية

AutoNumber.rar

[محمد ايمن]

تحية طيبة اخي الكريم

السبب هو ان دالة استخراج اكبر رقم من الحقل DMax تستخرج الرقم 9 او 99 او 999 كأكبر رقم حتى لو كان هناك رقم اكبر منه

( باعتقادي ان السبب هو ان الحقل يحتوي نص و رقم في آن واحد )

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

مثلا عوضا عن الرقم M1 يكون الرقم M000000001 وهكذا

تم التجريب و لم تظهر لدي اي مشاكل

AutoNumber.rar

[صالح حمادي]

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

أستاذ محمد حياك الله و بعد إذنك.

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

1- إذهب إلى خصائص مربع النص حاسب في خاصية تنسيق و أجري التعديلات التالية كما في الصورة:

و سوف تصبح كالتالي:

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

3- ثم إذهب إلى الكود خلف زر ترقيم و عدل عليه كالآتي:

Me.حاسب = AutoNumber("Test", "حاسب")

و هذا هو التعديل على المرفق:

 

 

AutoNumber.rar

[محمد ايمن]

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

[صالح حمادي]

آمين يا رب العالمين و لك بالمثل أستاذي و أخي محمد أيمن و لكل أعضاء منتدانا الغالي

[jjafferr]

السلام عليكم

 

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

Me.حاسب = "M" & DCount("*", "Test") + 1

 

جعفر

[kaser906]

منذ ساعه, صالح حمادي said:

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

أستاذ محمد حياك الله و بعد إذنك.

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

1- إذهب إلى خصائص مربع النص حاسب في خاصية تنسيق و أجري التعديلات التالية كما في الصورة:

و سوف تصبح كالتالي:

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

3- ثم إذهب إلى الكود خلف زر ترقيم و عدل عليه كالآتي:

Me.حاسب = AutoNumber("Test", "حاسب")

و هذا هو التعديل على المرفق:

 

 

AutoNumber.rar

حل جميل اخي الكريم

لكن ظهرت لي مشكلة

عند استخدام الدالة dlookup

عندما ادخل الحرف m مع الرقم ظهرت رسالة

بأن نوع البيانات غير متطابق

جرب بالمرفق النموذج   frm_Test1 رقم الحاسب مع الحرف والنظر النتيجة

اما اذا ادخلت الرقم بدون حرف تأتي النتيجة صحيحة

AutoNumber2.rar

15 دقائق مضت, jjafferr said:

السلام عليكم

 

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

Me.حاسب = "M" & DCount("*", "Test") + 1

 

جعفر

دائماً مبدع اخي ابو موسى

اردت ايضا الاستفسار عن هذه الطريقة هل سيظهر الحرف بالتتقارير عند الطباعة

ام احتاج الى وضع التنسيق بالتقارير لكي يظهر الحرف

[jjafferr]

22 دقائق مضت, kaser906 said:

1. حل جميل اخي الكريم

لكن ظهرت لي مشكلة

عند استخدام الدالة dlookup

عندما ادخل الحرف m مع الرقم ظهرت رسالة

بأن نوع البيانات غير متطابق

جرب بالمرفق النموذج   frm_Test1 رقم الحاسب مع الحرف والنظر النتيجة

اما اذا ادخلت الرقم بدون حرف تأتي النتيجة صحيحة

AutoNumber2.rar

دائماً مبدع اخي ابو موسى

2. اردت ايضا الاستفسار عن هذه الطريقة هل سيظهر الحرف بالتتقارير عند الطباعة

ام احتاج الى وضع التنسيق بالتقارير لكي يظهر الحرف

حياك الله

 

1. الحقل رقمي ، والتعامل مع الحقل دائما كأنه رقم ، اما إضافة الحرف M فهو للتنسيق فقط ، ولكن الرقم مع الحرف يظهرون عند استعمال الحقل ،

2. الحقل نص (انا لم اغيّر في الجدول ، وانما غيّرت المعادلة فقط) ، والحرف M هو جزء من الحقل ، وعند استعمال الحقل ، فان الرقم والحرف سيظهرون مع بعض ، ولا علاقة للتنسيق في هذا الحقل

 

جعفر

[kaser906]

2 دقائق مضت, jjafferr said:

حياك الله

 

1. الحقل رقمي ، والتعامل مع الحقل دائما كأنه رقم ، اما إضافة الحرف M فهو للتنسيق فقط ، ولكن الرقم مع الحرف يظهرون عند استعمال الحقل ،

2. الحقل نص ، والحرف M هو جزء من الحقل ، وعند استعمال الحقل ، فان الرقم والحرف سيظهرون مع بعض

 

جعفر

افهم من كلامك استاذي اني اذا اردت اظهار الحرف دائمأ واستعماله مع الرقم عند الاستعلام

اني يجب ان احول نوع الحقل بالجدول إلى نص

[jjafferr]

24 دقائق مضت, kaser906 said:

دائماً مبدع اخي ابو موسى

الله يخليك ، لا تخلي زوجتي تشوف هالاسم ، وإلا بتعتقد ان موسى من زوجه أخرى

 

جعفر

2 دقائق مضت, kaser906 said:

افهم من كلامك استاذي اني اذا اردت اظهار الحرف دائمأ واستعماله مع الرقم عند الاستعلام

اني يجب ان احول نوع الحقل بالجدول إلى نص

لا ،

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

 

جعفر

[kaser906]

2 دقائق مضت, jjafferr said:

الله يخليك ، لا تخلي زوجتي تشوف هالاسم ، وإلا بتعتقد ان موسى من زوجه أخرى

 

جعفر

والله ما هي شينة فكرت الزوجة الأخرى

[محمد سلامة]

4 دقائق مضت, jjafferr said:

الله يخليك ، لا تخلي زوجتي تشوف هالاسم ، وإلا بتعتقد ان موسى من زوجه أخرى

 

جعفر

هههههههههه

وتروح الفاس في الراس هههههههههه

[jjafferr]

على العموم ، اذا الله كتب لنا بالأخرى ، بنحتاج لكم شباب تشاركونا في الفرحة

[kaser906]

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

على العموم ، اذا الله كتب لنا بالأخرى ، بنحتاج لكم شباب تشاركونا في الفرحة

بكون اول الحاضرين واخر المغادرين

[صالح حمادي]

10 ساعات مضت, kaser906 said:

حل جميل اخي الكريم

لكن ظهرت لي مشكلة

عند استخدام الدالة dlookup

عندما ادخل الحرف m مع الرقم ظهرت رسالة

بأن نوع البيانات غير متطابق

جرب بالمرفق النموذج   frm_Test1 رقم الحاسب مع الحرف والنظر النتيجة

اما اذا ادخلت الرقم بدون حرف تأتي النتيجة صحيحة

قم بإجراء التعديل التالي على الدالة dlookup:

Me![id] = DLookup("[id]", "[Test]", "[Pcdigit]=" & Forms![frm_Test1].[Pcdigit])
Me![Mname] = DLookup("[Mname]", "[Test]", "[Pcdigit]=" & Forms![frm_Test1].[Pcdigit])

أما بالنسبة لكتابة الحرف m قبل الرقم فأنت لا تحتاجه يكفيك كتابة الرقم فقط و سوف تظهر النتيجة.

و مع هذا كله فإن نتيجة الحقل في التقرير يظهر بها الرقم و الحرف كما هو مكتوب في الجدول test تماما

[kaser906]

8 ساعات مضت, صالح حمادي said:

" &

ممكن اعرف فائد اضافة هذه الاشارة للكود

علما بأن الكود السابق كان يعمل بشكل جيد بدون اهاتين الاشارتين