اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

ترقيم شهرى للاستعلام


jo_2010
إذهب إلى أفضل إجابة Solved by kha9009lid,

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

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

مرفق جدول اريد عمل ترقيم شهرى يبدا برقم 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:

استاذ جعفر

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

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

رابط هذا التعليق
شارك

اخي الفاضل

Kha9009lid

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

تم تعديل بواسطه jo_2010
رابط هذا التعليق
شارك

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

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

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

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

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

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

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

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

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

1.jpg

HANY_OK.accdb

رابط هذا التعليق
شارك

استاذى 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

العفو استاذي

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

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

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

رابط هذا التعليق
شارك

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

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

https://www.officena.net/ib/topic/1049-استخدام-الدالة-dmax-لعمل-ترقيم-مسلسل/

رابط هذا التعليق
شارك

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

 

رابط هذا التعليق
شارك

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