اذهب الي المحتوي
أوفيسنا

الردود الموصى بها

قام بنشر

السادة الخبراء الافاضل

مرفق جدول اريد عمل ترقيم شهرى يبدا برقم 1 الى ان ينتهى  الشهر

وفى الشهر الجديد يبدا برقم 1من جديد مع مرعاة السنة مثلا 7/2019 ترقيم منفصل عن 7/2020 انا عملتها قى النموذج ولم استطيع عمل ذلك فى الاستعلام ارجو المساعدة لكم الشكر 

jo.accdb

قام بنشر
3 ساعات مضت, jo_2010 said:

انا عملتها قى النموذج ولم استطيع عمل ذلك فى الاستعلام

النموذج هو المكان الصحيح لعمل التسلسل ، فانت على الطريق الصحيح 🙂

ليش تريد تعمل التسلسل من الاستعلام؟

ورجاء ضع لنا الكود الشغال على النموذج 🙂

 

جعفر

قام بنشر

اخوي خالد 🙂

لما تحط كود في مشاركة ، انتقر على هذا الزر :

00.z_0038_Forum_Code_Formating.jpg.3968a5c8e1c58220e927b5c51b17c5ba.jpg

 

وبتنفتح لك نافذة ، ادخل فيها الكود ، علشان تحصل على الكود بطريقة صحيحة ، قارن كودك بالاعلى مع هذا الكود :

=Nz(DMax("[id]";"monsrf";"Month([c_date])=Month(date())"))+1

 

جعفر

قام بنشر (معدل)

استاذ جعفر

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

تم تعديل بواسطه jo_2010
قام بنشر
35 دقائق مضت, jo_2010 said:

استاذ جعفر

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

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

قام بنشر
26 دقائق مضت, jo_2010 said:

لاني اريد البحث بهذا الترقيم

 

شو المشكلة ، حقل الترقيم مثله مثل اي حقل آخر تبحث فيه؟

  • Like 1
  • Thanks 1
قام بنشر (معدل)

اخي الفاضل

Kha9009lid

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

تم تعديل بواسطه jo_2010
قام بنشر (معدل)

حمل المثال في ردي السابق تجد الحل في حقل id في النموذج

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

والحقل الاخر حقل id ونوعة رقم

وفي النموذج وضعنا القيمة الافتراضية للحقل وليس مصدر البيانات

=Nz(DMax("[id]";"monsrf";"Month([c_date])=Month(date())"))+1

تحياتي وتقديري

تم تعديل بواسطه kha9009lid
قام بنشر

اساتذتى الافاضل

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

1.jpg

HANY_OK.accdb

قام بنشر (معدل)

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

HANY_OK(1).accdb

عذرا ...لم انتبه لمشاركة الاستاذ جعفر

تم تعديل بواسطه qassim-t
  • Like 1
قام بنشر (معدل)

استاذى kha9009lid

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

تم تعديل بواسطه jo_2010
  • Like 1
  • أفضل إجابة
قام بنشر (معدل)

في حقل تاريخ المنصرف انت كنت عامل مايكرو رفريش

انا الغيت المايكرو وعمل كود يقوم اولا ريفرش الى انت كنت عملها وثانيا وضعت قيمة المنصرف تساوي حقل الترقيم

Me.Refresh
Me.no_esal = Me.نص92

العفو استاذي

تم تعديل بواسطه kha9009lid
قام بنشر
5 hours ago, kha9009lid said:

في حقل تاريخ المنصرف انت كنت عامل مايكرو رفريش

انا الغيت المايكرو وعمل كود يقوم اولا ريفرش الى انت كنت عملها وثانيا وضعت قيمة المنصرف تساوي حقل الترقيم


Me.Refresh
Me.no_esal = Me.نص92

العفو استاذي

استاذنا الحبيب خالد

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

اعتذر فأن السؤال على نفس الموضوع ولم افتحه بموضوع جديد

قام بنشر
57 دقائق مضت, qassim-t said:

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

 

نعم ، الكل سيحصل على نفس الرقم المكرر ،

ولتلافي هذا ، يجب حفظ السجل بعد عملية اخذ الرقم التالي مباشرة ، مثلا:

me.ID=Nz(DMax("[id]";"monsrf";"Month([c_date])=Month(date())"))+1
docmd.runcommand accmdsaverecord

.

بهذه الطريقة ، سيكون هناك فاصل زمني بين نقر زر كل مستخدم ، حتى ولو بجزء من الثانية ، والبرنامج تلقائيا سيعطي الارقام بدون تكرار 🙂

 

جعفر

  • Like 2
قام بنشر

ممتاز استاذ جعفر لذا من الافضل ان تكون الدالة من خلال الكود وليس من خلال تعبير كما عملنا في الملف المرفوع سابقا او كما فعل الاستاذ جو

مثلا في اول حقل في النموذج في حدث بعد التحديث نضع الكود بعد تعديله ليناسب الفي بي , بدلا من ;

Me.id = Nz(DMax("[id]", "monsrf", "Month([c_date])=Month(date())")) + 1
DoCmd.RunCommand acCmdSaveRecord

 

قام بنشر

اذا تم الحصول على رقم تسلسل ، ثم بعدها تم الانتقال الى سجل جديد (يعني الامرين بعد بعض) ، فهذا يحفظ السجل السابق ، ولا يتحقق التكرار 🙂

 

  • Like 2

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information