عمر ضاحى

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

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

هل تريدها هكذا ؟ المرفق VACATIONS22.rar

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

معلش سؤال هي مشكلتك هذه ؟

ما عندي مشكلة لكن ادينى شوية علشان انا فى الدوام حاليا

ابدا والله تحت امرك مفيش تعب ولا حاجه هل هذا ما تريده VACATIONS.rar

طيب ممكن توضحلى انت عاوز النتيجة تظهر فين ؟ وايضا اسم التقرير

طبعا ينفع ولاني مش فاهم المفترض الرقم (النتيجة اين يتم وضعها ) فاطريت اجعلها فى رسالة لكن انت عدل على الكود ولنفترض ام الحقل الذي تريد اضافة النتيجة فيه اسمه X7 اذا انت هتضعها هكذا X7=CalcVac(D2, txtAge) txtAge هو حقل للعمر ممكن تستغني عن الحقل وتضع هذه المعادلة =DateDiff("yyyy";[DateOfBirth];Date()) الامر سهل ان شاء الله اذا تم حل مشكلتك اختر افضل اجابة 😁

اتفضلى على فرض ان اسم النموذج هو Test Sub RenameFields() Dim frm As Form Dim ctrl As Control Dim fieldCount As Integer fieldCount = 1 'السطر التالى اختياري الغرض منه لكي يعمل الكود دون مشاكل لابد ان يكون النموذج المطلوب العمل عليه فى وضع عرض التصميم DoCmd.OpenForm "TEST", acDesign Set frm = Forms("Test") For Each ctrl In frm.Controls If ctrl.ControlType = acTextBox And ctrl.Tag = "*" Then ctrl.Name = "officena" & Format(fieldCount, "00") fieldCount = fieldCount + 1 End If Next ctrl End Sub ملاحظه علشان يشتغل الكود صحيح لابد ان يكون النموذج المطلوب العمل عليه فى وضع عرض التصميم

جرب الحل هذا تم عمل مديول Function CalcVac(WorkDays As Double, EmpAge As Integer) WorkDays = WorkDays / 365 If EmpAge < 50 Then WorkDays = WorkDays * 21 Else WorkDays = WorkDays * 30 End If CalcVac = Format(WorkDays, "0.00") End Function ولحساب عمر الموظف =DateDiff("yyyy";[DateOfBirth];Date()) ولاستدعاء الدالة CalcVac(D2, txtAge) 'CalcVac("اسم حقل اجمالى ايام العمل", "اسم حقل عمر الموظف") وهذه هى النتيجة مرفق الملف VACATIONS-1.rar

طيب تمام فين النموذج ال فيه انت بتمنح الاجازة او بيحسب فيها الاجازة

جربي الملف ده lab0.rar

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

غيري فى الاعدادات

سؤال جانبي مش المفترض ان فى قاعدة اخري ان الموظف اذا عمل فى الشركة اكثر من 5 سنوات يتحول من 21 يوم الى 30 يوم فى السنه ؟

جربي المرفق ولو فى ملاحظات اكتبيها

اوك سهله غيري فى الكود الكلمة [test] الى 'SEE REPORT' بالنسبه لباقى التعديلات حسب فهمي للمطلوب اتمني يكون ده المطلوب راجعي الملف المرفق lab0.rar

Dim strSQL As String strSQL = "UPDATE test_order_tbl SET test_order_tbl.result = IIf([see_report]=Yes,[test],'') " & _ "WHERE (((test_order_tbl.see_report)=Yes));" DoCmd.RunSQL strSQL اتفضلى لكن محتاج توضيح بخصوص هذه النقطه بالنسبه للنقطه دي هل هذا الجدول مكون من سجل واحد ولا هيكون فيه سجلات ؟ لان لو سجل واحد اوك لو سجلات ما المرجع الذى يعود عليه للتحقق منها

لا لا مش كده بصي ده الملف ال كنت شغال عليه لكن للاسف ما كملت الشغل بسبب الشغل واطريت اوقف العمل فيه lab0.rar ال كتبته لكي ده كود SQL لاستعلام وبيتم تشغيل الاستعلام من داخل النموذج بهذه الطريقة DoCmd.SetWarnings False DoCmd.OpenQuery "UpdateTestTable" DoCmd.SetWarnings True على فرض ان الاستعلام اسمه UpdateTestTable ان شاء الله انا بحاول انفذ الفكره بتعتك لكن المشكله فى تواجدي على الجهاز فان شاء الله بحاول اخلثها لك غدا وانا فى الدوام بالنسبه للنقطه دي هل هذا الجدول مكون من سجل واحد ولا هيكون فيه سجلات ؟ لان لو سجل واحد اوك لو سجلات ما المرجع الذى يعود عليه للتحقق منها

بالنسبه للنقطه هذه استخدمي هذا الاستعلام UPDATE test_order_tbl SET test_order_tbl.result = IIf([see_report]=Yes,[test],'') WHERE (((test_order_tbl.see_report)=Yes));

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

استخدم دالة format على التاريخ الموجود فى السجل format ("هنا ضع اسم الحقل الذي فيه التاريخ المسجل" ;"yyyy")

على الرغم انى لم اعمل مثل هذا من قبل لكن اتفضل هذه محاولى هناك الكثير من التعديلات فى الاكواد والجداول والعلاقات عملتها وتم استبدال جميع اكوادك بحلقة تكرارية لكتابة اسماء الازرار وهناك بعض الملاحظات ------------------------------ اولا انت عند خطأ فى العلاقات بين الجداول هذا بعد التعديل على جدول التفاصيل وظبط العلاقات بين الجداول والخطأ الثاني تشابه مسمي سعر البيع وسعر المنتج (ولانه ليس له فائدة فقد تم حذفه ) لان هذا تكرار للبيانات ايضا لا تضع حقول محسوبه فى الجداول (العمليات الحسابيه تكون من الاستعلامات والنماذج) يجب ايضا توضيح العلاقة بين النموذج الفرعي والنموذج الرئيسي وهناك اشياء اخري لكن لم يسعفنى الوقت لتوضيحها اترك لك الباقى والنتيجة هي ------------------------- اتمني هذا يكون هو طلبك مرفق الملف كاشير المطاعم و الكافيهات و المحلات التجارية.rar اها كدت ان انسي عند محاولة برمجة زر جديد فى ال 40 زي كل ال مطلوب تعمله تكرر الكود الذى بداخل الصب هذا Private Sub A1_Click() If a1.Caption = "" Then: Exit Sub xCMD "A1" End Sub مثل تريد برمجة زر رقم a20 يبقى هتضيف داخل الصب الخاص به هذا الكود If a20.Caption = "" Then: Exit Sub xCMD "A20" وهكذا

كان يفضل شرح محتويات الجداول لكن اولا فى امور لازم توضيحها اولا هل جدول sallesH هو رأس الفاتورة وجدول salles هو تفاصيل الفاتورة ؟