الترقيم التلقائي معتمدا على التاريخ اليومي والشهري والسنوي

[طاهر الوليدي]

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

اخواني الافاضل 

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

لاني اقوم بادخال التاريخ بعد التاريخ بايام وشهور

هل من الممكن 

عند ادخال التاريخ يدويا يقوم باعطاء ارقام تسلسلية لليوم الواحد والشهر والسنه 

بدون وضع في حقل التاريخ قيمة افتراضية للتاريخ. 

()Date=

شكرا لتعاونكم مسبقا

ولكم مني الدعاء

 

ترقيم باليوم والشهر والسنة ممتاز.rar

[أبوبسمله]

السلام عليكم اخى الفاضل @طاهر الوليدي

اتفضل تم التعديل

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

اسم الحقل كنت قد كتبت اسم الحق بالنموذج بدل الجدول

كتابه اسم الجدول بين علامتى التنصيص ولكن لوجود مسافه فى اسم الجدول يجب وضعهم داخل الاقواس المربعه

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

يفضل وضع العلامه _ الشرطه السفليه وليس مسافه فى حالة فاصل بين الاسماء او الفصل باول حرف كابتل

    dl = Nz(DMax("[رقم المستند]", "[بيانات المصروفات]", "(year([التاريخ]) & month([التاريخ])& day([التاريخ]))='" & Format(Me.التاريخ, "yyyymd") & "'"), 0)
    rd = Int(Right([dl], 4)) + 1
    Me.رقم_المستند = Format(Me.التاريخ, "yymd") & Format(rd, "0000")

بالتوفيق

ترقيم باليوم والشهر والسنة ممتاز.accdb

[طاهر الوليدي]

شكرا استاذي 

الله يبارك فيك وفي عمرك وعلى سرعة المبادرة في الرد

سوف اقوم بتنزيله 

ورد لك ان شاء الله 

[أبوبسمله]

الشكر لله ثم لاخواننا واساتذتنا جزاهم الله خيرا

وفيك بارك الله بالتوفيق اخى

[طاهر الوليدي]

الله يطول بعمرك  وبارك اللف فيك

شكرا الف شكر

[طاهر الوليدي]

اخي واستاذي الفلاحي 

واجهت مشكله في الترقيم بواسطة زر 

معتمدا على التاريخ مدخل يدويا للمستند

عندي مستندات تحتاج الى اومر صرف نقدي يعتمدعلى تاريخ المستند الذي سيتم ادخال تاريخه في اي يوم كان 

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

بواسطة زر الترقيم 

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

انا عندي عدد كبير من

المختصبن للصرف في مواقع ومحافظات مختلفه

مختص يسلم مسندات اليوم ومختص يسلمه بعد ايام .

ويمنع خلط المستندات لك شخص ملف 

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

مثال 

عندي مختصين اسمائهم

محمد . صالح . عبد الرب 

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

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

مثال :  محمد معاه مستندات

تاريخ بعض مستنداته يوم 1/12/2020

عند ادخالها في النظام ندخل تاريخ الصرف يو م 1/12/2020

فيتم نقر زر الترقيم فينتج رقم 

,20121001

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

فعنمدما ادخل مستندات شخص ثاني صالح لنفس اليوم 

الزر يقوم بكتابةنفس الرقم

20121001

بينما المطلوب 

20121002

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

 

 

 

[طاهر الوليدي]

3 دقائق مضت, طاهر الوليدي said:

اخي واستاذي الفلاحي 

واجهت مشكله في الترقيم بواسطة زر 

معتمدا على التاريخ مدخل يدويا للمستند

عندي مستندات تحتاج الى اومر صرف نقدي يعتمدعلى تاريخ المستند الذي سيتم ادخال تاريخه في اي يوم كان 

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

بواسطة زر الترقيم 

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

انا عندي عدد كبير من

المختصبن للصرف في مواقع ومحافظات مختلفه

مختص يسلم مسندات اليوم ومختص يسلمه بعد ايام .

ويمنع خلط المستندات لك شخص ملف 

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

مثال 

عندي مختصين اسمائهم

محمد . صالح . عبد الرب 

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

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

مثال :  محمد معاه مستندات

تاريخ بعض مستنداته يوم 1/12/2020

عند ادخالها في النظام ندخل تاريخ الصرف يو م 1/12/2020

فيتم نقر زر الترقيم فينتج رقم 

,20121001

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

فعنمدما ادخل مستندات شخص ثاني صالح لنفس اليوم 

الزر يقوم بكتابةنفس الرقم

20121001

بينما المطلوب 

20121002

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

 

 

 

والمطلوب كود او مودل

اذا نقرت على  زر الترقيم يقوم  بالبحث عن الرقم السابق لنفس التاريخ ثم ياتي برقم التالي حتى وان وضعت رقم قبله عشوائي

اذخل مستندتاريخه 1/12/202

فيرقمه 20121001

ثم ادخل مستند له رقم 5512 يدويا 

ثم ادخل مستند بعد يومين تاريخه 1/12/2020

يترقم بزر

20121002

ثم مستند تاريخه 5/12/2020

20125001

ثم ادخل مستند تاريخه 1/12/2020

20121003

وهكذا 

لكن مايحصل هو اني ادخل تاريخ المستند يكرر نفس الرقم20121001 لجميع المستندات

اتمنى ان فكرتي وصلت 

والله يبارك فيك ويحسن اليك

 

[أبوبسمله]

السلام عليكم

20 ساعات مضت, طاهر الوليدي said:

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

جربت ادخال يدوى مرارا وتكرارا لم ارى هذه المشكله

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

بالتوفيق

[طاهر الوليدي]

في ٢٨‏/١٢‏/٢٠٢٠ at 00:18, احمد الفلاحجي said:

السلام عليكم

جربت ادخال يدوى مرارا وتكرارا لم ارى هذه المشكله

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

بالتوفيق

جزاك الله خير استاذي الفاضل 

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

[طاهر الوليدي]

هذا النموذج اسمه بيانات المصروفات

ادخل في حقل التاريخ تاريخ عشوائي مثلا 15/12/2020

ثم انقر على زر الترقيم الذي امام حقل رقم المستند بيظهر الرقم 20121501

ثم انقرزر الاضافة ثم

كرر التاريخ نفسه ونقر زر الترقيم يظهر نفس الرقم السابق20121501

المطلوب يعطيني الرقم التالي حتى ولو قمت بادخال رقم المستند يدوي مثلا 525

ثم ادخلت بعده التاريخ نفسه ونقرت على زر الترقيم 

يظهر الرقم التالي

20121503

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

[أبوبسمله]

وعليكم السلام

الخطأ من عندك وبالرغم اننا عدلنا لك واوضحناه لك من قبل الا انك اخطات فيه ثانيه

ولكن هذه المره اخطات مرتان الاول كما تم تعديله لك فى ثانى مشاركه

في ٢٣‏/٩‏/٢٠٢٠ at 20:33, الفلاحجى said:

السلام عليكم اخى الفاضل @طاهر الوليدي

اتفضل تم التعديل

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

اسم الحقل كنت قد كتبت اسم الحق بالنموذج بدل الجدول

كتابه اسم الجدول بين علامتى التنصيص ولكن لوجود مسافه فى اسم الجدول يجب وضعهم داخل الاقواس المربعه

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

يفضل وضع العلامه _ الشرطه السفليه وليس مسافه فى حالة فاصل بين الاسماء او الفصل باول حرف كابتل

    dl = Nz(DMax("[رقم المستند]", "[بيانات المصروفات]", "(year([التاريخ]) & month([التاريخ])& day([التاريخ]))='" & Format(Me.التاريخ, "yyyymd") & "'"), 0)
    rd = Int(Right([dl], 4)) + 1
    Me.رقم_المستند = Format(Me.التاريخ, "yymd") & Format(rd, "0000")

بالتوفيق

ترقيم باليوم والشهر والسنة ممتاز.accdb 460 kB · 42 downloads

والخطاء الثانى انه السطر الثانى فى الكود فى المثال الاخير  rd = Int(Right([dl], 4)) + 1

لاجظ الرقم 4 وفى السطر التالى جعلت عدد الاصفار 00

الكود بعد التعديل ومرفق المرفق

ويفضل 4 فى السطر الثانى مع زياده عدد الاصفار 0000 نفس العدد لان 00 سيقف عند عدد 100 فشوف عدد السجلات ممكن يوصل معاك لكام وقم بضبط هذان السطران فقط

4 بــ 0000 ، 5 بــ 00000

dl = Nz(DMax("[رقم المستند]", "[بيانات المصروفات]", "(year([التاريخ]) & month([التاريخ])& day([التاريخ]))='" & Format(Me.التاريخ, "yyyymd") & "'"), 0)
rd = Int(Right([dl], 2)) + 1
 Me.رقم_المستند = Format(Me.التاريخ, "yymmdd") & Format(rd, "00")

 

بالتوفيق

 

 

الترقيم111.mdb

[طاهر الوليدي]

الله يبارك في عمرك ويسهل امورك 

وشكر ا جزيلا استاذي الفاضل 

 

[أبوبسمله]

منذ ساعه, طاهر الوليدي said:

الله يبارك في عمرك ويسهل امورك 

وشكر ا جزيلا استاذي الفاضل 

 

وفيك بارك الله واياكم اخى

الشكر لله ثم لاخواننا واساتذتنا جزاهم الله خيرا

بالتوفيق