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

[الحلبي]

السلام عليكم

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

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

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

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

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

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

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

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

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

[ابو جودي]

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

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

[الحلبي]

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

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

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

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

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

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

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

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

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

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

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

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

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

 

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

[ابو جودي]

بس كده دى وصفى سهله ... دى وصفة هايلة

ادفع الاول 

 

 

[الحلبي]

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

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

[essam rabea]

أينما يوجد دفع هتلاقونى ناطط 😉

[ابو جودي]

السلان عليكم 

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

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

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

 

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

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

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

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

[essam rabea]

ابا جودى

والله لقد أخجلتنى كرما

بارك الله لك فيما تملك ورزقك من حيث لا تحتسب 

[ابو جودي]

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

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

 

 

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

تم تعديل أكتوبر 10, 2019 بواسطه ابا جودى

[Barna]

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

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

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

[ابو جودي]

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

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

[الحلبي]

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

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

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

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

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

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