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

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

قام بنشر

السلام عليكم

مرفق مثال مبسط للمطلوب وهو 

كل مهندس له مديره المباشر كما في المثال

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

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

واستطعت ان اعمل كود مقتبس من خبيرنا واستاذنا الفاضل (عصام ربيع)  ولم استطع ان اضيف له معيار التاريخ

المطلوب فقط اضافة التاريخ للكود المذكور في المثال لاني تعبت من كثرة المحاولات 

جزاكم الله خير

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

ترقيم حسب المدير والتاريخ.accdb

قام بنشر

انا مش قادر افهم ممكن لو تكرمت يا دكتور

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

قام بنشر

اهلا باستاذي الفاضل وبشمهندسنا ومروض اكسس/ @ابا جودى

الفكرة هي ان كل مهندس يقدم تقرير لمديره المباشر (عن ما تم في مشروعه)

  ويقوم مستخدم مختص باستلام التقارير ويبدأ بادخال البيانات لكل مهندس بان المهندس الفلاني في تاريخ كذا (الساعة كذا) قام بتقديم التقرير

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

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

فالمطلوب : عند ادخال البيانات 

فى تاريخ 2019/10/09 الساعة 4 قام المهندس احمد تقديم التقرير للمدير المالي مثلا فياخد تسلسل رقم 1

فى تاريخ 2019/10/09 الساعة 4.1 قام المهندس صلاح بتقديم التقرير لنفس المدير (المالى ) ياخد تسلسل رقم 2  (هذه النقطة تم عملها من الكود الموجود في المثال)

فى تاريخ 2019/10/10الساعة 3 قام المهندس محمد بتقديم التقرير لنفس المدير (المالي) يعاد الترقيم وياخد رقم 1 لانه في تاريخ مختلف (هذه النقطة لم استطع عملها )

ويبدأ اعادة الترقيم التسلسلى اذا تغير المدير المالي الي المدير الاداري مثلا يبدأ من رقم 1

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

قمت باضافة الوقت في الجدول

جزاك الله خير وبارك لك في صحتك وعافيتك

 

ترقيم حسب المدير والتاريخ.accdb

قام بنشر

عيوني لك اخي الحبيب / محمد بس في الليلة الكبيرة

يوم ان تفرح بابنائك وتشوفهم اطباء اسنان ان شاء الله

قام بنشر

السلان عليكم 

اعتذر يا دكتور على التأخير كنت بأصلى

اتفضل يا دكتور استخدم احد الكودين الاتيين على زر امر الترقيم

Me.k = Nz(DMax("k", "t1", "[xdate] = #" & Format(Me.txtXdate, "yyyy/mm/dd") & "#" & "And [manager] = '" & txtManager & "'"), 0) + 1

'Me.k = Nz(DMax("k", "t1", "xdate=[Forms]![F1]![txtXdate]and manager=[Forms]![F1]![txtManager]"), 0) + 1

 

ولعدم تغيير القيمة ان وجدت بالحقل 

    Select Case Nz(Me.k.Value, "")
        Case ""
            Me.k = Nz(DMax("k", "t1", "[xdate] = #" & Format(Me.txtXdate, "yyyy/mm/dd") & "#" & "And [manager] = '" & txtManager & "'"), 0) + 1
            'Me.k = Nz(DMax("k", "t1", "xdate=[Forms]![F1]![txtXdate]and manager=[Forms]![F1]![txtManager]"), 0) + 1
        Case Else
            Exit Sub
    End Select

 

صل على رسول الله  -  صل الله عليه وسلم وعلى اله وصحبه 

يا دكتور هذا ما اريده فقط ولا اريد غير ذلك  :biggrin:

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

احبكم فى الله ولوجه الله تعالى :fff::fff:

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

هذه بضاعتكم اردها اليكم يا دكتور :fff:

اسأل الله ان اكون وفقت فى فهم وتنفيذ طلبكم يا دكتور @حلبي :biggrin:

 

 

ترقيم حسب المدير والتاريخ (1).accdb

تم تعديل بواسطه ابا جودى
  • Like 3
قام بنشر

اخ سكت بالكلام الحلو .... 

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

ادام الله الود بيننا .

  • Like 3
  • Haha 2
قام بنشر

اللهم امين يارب العالمين

وعلى فكرة وانا احيانا مثلك اقرأ واضحك كالمجنون حتى ان زوجتى تداعبنى ضاحكة الحمد الله زوجي فقد الباقية المتبقية من عقله اللهم لا اعتراض :biggrin::biggrin:

  • Like 2
  • Haha 2
قام بنشر

استاذي الفاضل ومعلمى الجليل ومروض اكسس الباشمهندس / ابا جودي

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

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

ربنا يزيدك علما كمان وكمان ويحسن الله لك كما تحسن الينا بأفكارك وينعم عليك بالصحة والعافية استاذنا الجليل / محمد عصام

وان شاء سوف تري ابنائك اطباء فقط تخصص اسنان لان جميع اسناني بها مشاكل 

ربنا يحفظهم لك ـ كل الاخترام والتقدير للباشمهندس /ابا جودي ولكل القائمين لخدمة المنتدي

  • 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