محمد احمد لطفى

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

شكرأ أستاذى @أبو عبدالله الحلوانى يوجد خطأ عند حساب الشريحة الثالثة يظهر -1 فى الشريحة الثانية وهل يمكن استخدامها فى الاستعلام هكذا

شكرا معلمى @احمد الفلاحجي أريد أن انوه انها ليست مظبوطة 100 % بها أخطاء ضريبة _4.mdb

قراءة اخر مشاركتين

الموضوع ده كانت محسوبة فى استعلام لكى تصل الفكرة 159.mdb

عند حساب 1-1-2015 حتى 10-1-2021 1- من 1-1-2015 حتى 6-9-2016 88 اسبوع 2- من 7-9-2016 حتى 30-9-2020 48 شهر 3- من 1-10-2020 حتى10-1-2021 3 اشهر Function cheekDate(sDate As Date, eDate As Date, x As Byte) If sDate >= #1/1/1990# And eDate <= #9/6/2016# And x = 1 Then cheekDate = DateDiff("ww", sDate, eDate) ElseIf sDate >= #9/7/2016# And eDate <= #9/30/2020# And x = 2 Then cheekDate = DateDiff("m", sDate, eDate) ElseIf sDate >= #9/30/2020# And sDate <= Date And x = 3 Then cheekDate = DateDiff("m", sDate, eDate) End If End Function النتائج تمام و لكن يجب ان يكونو فى سطر واحد عند date1 = 1-1-2015 و date2 = 10-1-2021 تكون 88 اسبوع و 48 شهر و 3 اشهر هما تلات فترات كل واحده تتحسب لوحدها فى عمود لوحدها لان لكل فترة لها حساب خاص بها فى سطر واحد وليس يجب على ان احسب كل فترة فى صف خاص بها ما بين تاريخ 1-1-1990 حتى 6-9-2016 يتم الحساب بينها بالاسبوع فى عمود الاسبوع 1-1-2015 حتى 6/9/2016 فقط 88 اسبوع وليس 1-1-2015 حتى 10-1-2021 352 اسبوع لان حساب الاسابيع يتوقف عند 6-9-2016

تمام هو المطلوب باقى أن يكون فى صف واحد هما تلات فترات كل واحده تتحسب لوحدها 1 - من تاريخ 1-1-1990 حتى 6-9-2016 حسابها اسبوعى 2 - من تاريخ 7-9-2016 حتى 30-9-2020 تحسب بالشهر 3 - من تاريخ 1-10-2020 الى تاريخ اليوم تحسب بالشهر كما الصورة بالاعلى وبداية التاريخ و نهايته من خلال date1 و date2

أول تاريخ 1-1-1990 , تانى تاريخ 6-9-2016 الصح عدد الاسابيع 1392 أسبوع الفترة من تاريخ 1-1-1990 حتى 6-9-2016 يحسب الاسابيع الى بين date1 و date2

تقريبا غاوزين السطر cheekDate = DateDiff("ww", #1/1/2016#, #9/6/2016#) ليه علاقة بـ date1 و date2 بدل التاريخين الى مكتوبين

يبشاير الخير المطلوب يكونو فى سطر واحد مهم.mdb

1- الاسبوع استخدم Week: DateDiff("ww";[date1];[date2]) 36 أسبوع 2 - الشهر استخدم Month: DateDiff("m";[date1];[date2]) 48 شهر

شكراً أستاذى @احمد الفلاحجي

تقريبا نفس الفكرة فى موضوع بس أنا مش هاعرف أعملها

شكراً أستاذى هذا ليس لحساب العمر الحساب على 3 شرايح الشريحة الاولى الفترة ما بين تاريخ 1-1-1990 حتى 6-9-2016 يتم الحساب بينها بالاسبوع فى عمود الاسبوع الشريحة الثانية ما بين من تاريخ 7-9-2016 حتى 30-9-2020 يتم الحساب بينها بالشهر فى عمود الشهر الشريحة الثالثة مابين 1-10-2020 حتى تاريخ date2 ------------------------------------------------------------------------------------------------------------------------------------------------- لو date1 = 1-1-2016 و date2 = 24/4/2022 1 - اضافة عمود الاسبوع يحسب عدد الاسابيع من تاريخ 1-1-1990 حتى 6-9-2016 سوف يحسب من 1-1-2016 حتى 6-9-2016 1 - عمود الاسبوع = 36 أسبوع 2 - اضافة عمود شهر يحسب عدد الاشهر من تاريخ 7-9-2016 حتى 30-9-2020 سوف يحسب من 7-9-2016 حتى 30-9-2020 2-عمود الشهر = 49 شهر 3 - اضافة عمود شهر 2 يحسب عدد الاشهر أكبر من يوم 30-9-2020 سوف يحسب من 1-10-2020 حتى 24-4-2022 3 - عمود شهر 2 = 18 شهر ---------------------------------------------------------------------------------------------------------------------------------- لو date1 = 15-5-2015 و date2 = 15-2-2016 1 - اضافة عمود الاسبوع يحسب عدد الاسابيع من تاريخ 1-1-1990 حتى 6-9-2016 سوف يحسب من 15-5-2015 حتى 15-2-2016 1 - عمود الاسبوع = 40 أسبوع 2 - اضافة عمود شهر يحسب عدد الاشهر من تاريخ 7-9-2016 حتى 30-9-2020 2-عمود الشهر = 0 شهر 3 - اضافة عمود شهر 2 يحسب عدد الاشهر أكبر من يوم 30-9-2020 3 - عمود شهر 2 = 0 شهر ------------------------------------------------------------------------------------------------------------------------------------------------- لو date1 = 1-1-2017 و date2 = 24/4/2022 1 - اضافة عمود الاسبوع يحسب عدد الاسابيع من تاريخ 1-1-1990 حتى 6-9-2016 1 - عمود الاسبوع = 0 أسبوع 2 - اضافة عمود شهر يحسب عدد الاشهر من تاريخ 1-1-2017 حتى 30-9-2020 سوف يحسب من 1-1-2017 حتى 30-9-2020 2-عمود الشهر = 44 شهر 3 - اضافة عمود شهر 2 يحسب عدد الاشهر أكبر من يوم 30-9-2020 سوف يحسب من 1-10-2020 حتى 24-4-2022 3 - عمود شهر 2 = 18 شهر

أنا حاسب كل فترة لوحدها لأن المثال حاسب الاسابيع و الاشهر كل على حده من بداية التاريخ لنهاية التاريخ وده خطأ مفروض الحساب الاسبوع 36 اسبوع الشهر 49 شهر شهر 2 ( 18 شهر )

شكراً أستاذى @عمر ضاحى أولا اريد الحل عن طريق وحدة نمطية ثانيا لكى تصل الفكرة لو date1 = 1-1-2016 و date2 = 24/4/2022 1 - اضافة عمود الاسبوع يحسب عدد الاسابيع من تاريخ 1-1-1990 حتى 6-9-2016 سوف يحسب من 1-1-2016 حتى 6-9-2016 1 - عمود الاسبوع = 36 أسبوع 2 - اضافة عمود شهر يحسب عدد الاشهر من تاريخ 7-9-2016 حتى 30-9-2020 سوف يحسب من 7-9-2016 حتى 30-9-2020 2-عمود الشهر = 49 شهر 3 - اضافة عمود شهر 2 يحسب عدد الاشهر أكبر من يوم 30-9-2020 سوف يحسب من 1-10-2020 حتى 24-4-2022 3 - عمود شهر 2 = 18 شهر

السلام عليكم ورحمة الله وبركاته أريد فى هذا الالاستعلام 1 - اضافة عمود الاسبوع يحسب عدد الاسابيع من تاريخ 1-1-1990 حتى 6-9-2016 2 - اضافة عمود شهر يحسب عدد الاشهر من تاريخ 7-9-2016 حتى 30-9-2020 3 - 2 - اضافة عمود شهر 2 يحسب عدد الاشهر أكبر من يوم 30-9-2020 من خلال date1 و date2 عن طريق وحدة نمطية وجزاكم الله خيراً ضريبة (1).mdb

شكراً أستاذى د.كاف يار هذا هو المطلوب

شكراً أستاذ ناقل ولكن يجب ادخال موجود او غير موجود فى النموذج الثانى دالة =Nz(DLookUp("id";"Workermain";"Worker='" & [Worker] & "'");"") تاتى برقم id من النموذج Workermain أريد كلمة موجود بنفس الفكرة أستطيع عملها عن طريق زارا و لكن تحدث فى كل السجلات If DCount("[id]", "Workermain", "[Worker]=[Forms]![WorkerSub]![Worker]") Then Me.found = "موجود" End If

السلام عليكم ورحمة الله وبركاته فى هذا النموذج عند كتابة الاسم اذا كان الاسم موجود فى جدول Workermain يكتب فى مربع النص كلمة ( الاسم موجود ) Worker.rar

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

ربنا يرضي عنك ويبارك فيك ويحفظك

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

كل عام وانتم بخير وينعاد علينا وعليكم بالصحة والعافية

سهم صغير فى اخر شريط اخيار الاشكال زرار او مربع