Eng.Qassim

حسب علمي .. لا اعتقد ذلك لان تنفيذ ال vba يكون من خلال ذاكرة الحاسوب عكس الاستعلام او جمل SQL التي تنفذ مباشرة من خلال اكسس .. ولهذا في مثالك يتم اللجوء الى vba حتى لاتثقل على اكسس واعتقد ان ذلك يحتاج الى اختبار بوضع بضعة الاف من السجلات والله اعلم

ضع اخر المعادلة ,0)

وعليكم السلام اخي ان شاء الله لكن ارجوا معذرتك لانشغالي في بعض الامور الفترة الماضية

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

مالذي تقصده؟

نعم تعمل لكنك لن تحتاج لها لان مافعله الاستاذ @ابوخليل سوف لن يجعل عدد الايام اكثر من 30 او عدد الاشهر اكثر من 12 واليك مافعله استاذنا للاستفادة : 1- في عمود rs تم حساب عدد الايام للخدمة الكلية 2- العمود rsw يظهر لنا باقي قسمة عدد الايام الكلي على 360 يوم والتي نحتاجها لاحقا 3- العمود rs_y يظهر لنا عدد سنوات ايام الخدمة الفعلية دون كسور مع الانتباه الى ان الاستاذ استخدم العلامة (\) وليس علامة القسمة (/) 4- العمود rs_d يظهر لنا المتبقي من قسمة عدد الايام الكلية مقسوما على 30 يوم 5- العمود rs_m يظهر لنا ناتج طرح الايام التي ظهرت في عمود الفقرة 2 امن الايام التي ظهرت في العمود 4 مقسوما على 30 لتظهر لنا عدد الاشهر 6- النتيجة ظهرت لنا عدد السنوات في rs_y وعدد الاشهر في rs_m وعدد الايام في rs_d

وعليكم السلام .. سيتغير الاسم في النموذج والاستعلام .. اما اذا كنت تشير لاسم جدول في اكواد معينة بالتاكيد سيحصل خطأ

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

السلام عليكم 1-عادة ماتكون الصفحة الرئيسية للتنقل بين النماذج .. مثلا زر لادخال وكيل جديد .. زر لادخال قضية جديدة بصراحة الصفحة الرئيسية لديك غير مفهمومة ..مجرد حقول لحساب اعداد ومجاميع ليس هذا مكانها 2- هناك جداول اعتقد انها غير ضرورية مثل جدول(الحالة الاجنماعية والعنوان والجنس) والمفروض انها تكون ضمن جدول الموظفين 3- جدول الفواتير المفروض يكون للوكلاء لادارة حسابات الوكلاء من حيث المبلغ المتفق عليه واجمالي الدفوعات اما حساب صرفيات المكتب من رواتب وصرفيات اخرى فتكون بمعزل عنها 4- لديك في جدول الفواتير اجمالي القيمة = [Payment]-[Case Price] والمفروض انها بالعكس وهناك العديد من الملاحظات ناتي اليها تباعا حينما تقرر مالذي تريده في الصفحة الرئيسية وحسب قوانين المنتدى ان تفتح موضوعا بكل سؤال لديك ولايكون السؤال عام حتى يستطيع الاخوة مساعدتك مع وافر الاحترام

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

اذا كان التاريخ لديك ياخذ قيمته من الحاسوب .. ضع الكود التالي في القيمة الافتراضية لرقم التوريد =Nz(DMax("[رقم التوريد]";"راس المبيعات";"month([تاريخ التعاقد])=month(date())"))+1

اخي العزيز .. انا قصدت ان النموذج المسمى (العملاء ) هو نموذج الايجار (renting).. نحتاج هنا في راس النموذج الى اسم العميل وبياناته وفي النموذج الفرعي نحتاج لرقم العميل والمخزن (مربع تحرير وسرد) والى الحالة (status) والتي تكون (نعم /لا).. وحينما نذهب لايجار جديد لزبون معين ونختار مخزن كانت اخر مرة لحالته (نعم) تظهر لنا رسالة بان المخزن مؤجر

لو انك تعطي تصور لما تريد حتى يستطيع الاخوة مساعدتك ..فهناك الكثير من الاحتمالات لسؤالك

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

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

اعمل تجميع .. وتحت حقل اجمالي البيع (جمع)

لا اعلم اين المشكلة.. لقد رفعت الملف قبل قليل استعلام.rar

بالتاكيد .. في الحقول المنظمة يتم حفظها مباشرة في الجداول استخدم الكود التالي عند الخروج وجرب ادخال سجلات جديدة Private Sub cmdcols_Click() If MsgBox("هل تريد حفظ البيانات", vbYesNo + vbCritical + vbMsgBoxRight + vbDefaultButton2, "تحذير") = vbNo Then Cancel = True DoCmd.Close Else DoCmd.Save DoCmd.Close End If End Sub

تفضل التعديل استعلام.rar استعلام.accdb

احيانا الموظف ياخذ اجازة زمنية قبل الحظور واحيانا يأخذها عند الانصراف .. في تلك الحالة سيظهر بانه غائب ولهذا اشترطت في حالة عدم الحضور وعدم الانصراف يكون غائب اليك المرفق بالاشتراك مع معلمي استاذ @kanory رعاه الله YasEnEx2021.accdb

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

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

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

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

هل جربت الكود وحذفت بعض تواريخ الحضور والانصراف ؟ ايام الشهر كلها موجود (في حاضرها وغيابها)