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

[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]

  في 26‏/12‏/2016 at 19:15, صالح حمادي said:

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

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

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

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

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

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

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

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

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

 

 

AutoNumber.rarFetching info...

Expand  

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

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

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

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

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

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

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

AutoNumber2.rar

  في 26‏/12‏/2016 at 20:19, jjafferr said:

السلام عليكم

 

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

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

 

جعفر

Expand  

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

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

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

[jjafferr]

  في 26‏/12‏/2016 at 20:25, kaser906 said:

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

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

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

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

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

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

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

AutoNumber2.rarFetching info...

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

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

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

Expand  

حياك الله

 

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

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

 

جعفر

[kaser906]

  في 26‏/12‏/2016 at 20:45, jjafferr said:

حياك الله

 

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

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

 

جعفر

Expand  

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

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

[jjafferr]

  في 26‏/12‏/2016 at 20:25, kaser906 said:

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

Expand  

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

 

جعفر

  في 26‏/12‏/2016 at 20:49, kaser906 said:

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

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

Expand  

لا ،

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

 

جعفر

[kaser906]

  في 26‏/12‏/2016 at 20:50, jjafferr said:

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

 

جعفر

Expand  

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

[محمد سلامة]

  في 26‏/12‏/2016 at 20:50, jjafferr said:

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

 

جعفر

Expand  

هههههههههه

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

[jjafferr]

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

[kaser906]

  في 26‏/12‏/2016 at 20:59, jjafferr said:

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

Expand  

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

[صالح حمادي]

  في 26‏/12‏/2016 at 20:25, kaser906 said:

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

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

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

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

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

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

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

Expand  

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

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

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

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

[kaser906]

  في 27‏/12‏/2016 at 07:27, صالح حمادي said:

" &

Expand  

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

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