عبق الرياحيين

انا اسفه على الازعاج ملاحظة هامة اخرى المشكلة حدثت فى هذا الجزء من الكود على الكمبوبوكس If IsNull(Form_frm_WORKSCOPE.Visit_Seq) Or Form_frm_WORKSCOPE.Visit_Seq = "" Then rst!CSO = "" If Z = "0" Then rst!CSO = X If Z >= "1" Then rst!CSO = X + F rst.Update rst.Close: Set rst = Nothing Me.frm_WORKSCOPE.Requery هذا الجزء المسئول عن القيم المفروض ان تكون فى المربع الازرق فى الشكل المرفق اما الاكواد السابقه لهذا الكود هى لعمليات حسابيه اخرى وتعمل على اكمل وجه ولله الحمد المطلوب التعديل على هذا الجزء فقط من الكود هذا ختى لا اشق عليكم

السلام عليكم ورحمة الله وبركاته - الطلب الاول: قيمة المربع الازرق تساوى Null عندما تكون قيمة المربع الأحمر null - الطلب الثانى: قيمة المربع الازرق تساوى قيمة المربع الاخصر عندما تكون قيمة المربع الأحمر تساوى الرقم 0 - الطلب الثالث: قيمة المربع الازرق تساوى قيمة المربع الاخصر + قيمة المربع الاسود عندما تكون قيمة المربع الأحمراكبر من او تساوى الرقم 1 ملاحظة هامة اريد ان تتم العملية الحسابية عند تحديث الكمبوبوكس فى النموذج الرئيسى كما اريدها ان تتم عند تحديث مربع النص فى النموذج الفرعى CSO , وكذلك عند تحديث مربع النص فى النموذج الفرعى visitSeq ملاحظة هامة جدا جدا جدا الحمد لله تم التوصل للنتيجة النطلوبه على النموذج الفرعى بعد تحديث قيم مربعات النص CSO ، visitSeq المطلوب فقط تعديل العملية الحسابية عن طريق التحديث من الكمبوبكس فى النموذج الرئيسي qs-4.rar

انا اللى باعتذر جدا جدا جدا لتعب حضرتك شكراا جدا جدا بس حصل مشكلة تانى معايا فى الحسابات التانيه راح استأذن من حضرتك متابعة الموضوع الجديد هأعمل موضوع جديد بالسؤال الجديد علشان التزم بقانون المنتدى

للاسف rst!VisitNo = IIf(IsNumeric(C), C + 1, "") اظهر نفس الخطأ بالرغم من انى كنت اتمنى ان الكود ده يشتغل لانه مختصر لكن انا مكنتش مصدقه ان الحمد لله وصلنا للنتيجة المطلوبه الله يبارك فى حضرتك كل الشكر والتقدير استاذ جعفر انا اسفه جدا جدا جدا جدا على تعب حضرتك اجهدت حضرتك معايا

يعنى اشتغل بالكود ده علشان المشكله اللى حصلت مع الكود الأصلى بتاع حضرتك بعد تعديل السطر ده ؟ واللا ايه ؟

طيب الكود بالشكل ده يكون صح Dim rst As DAO.Recordset Dim RC 'As Integer Dim C 'As Integer Set rst = CurrentDb.OpenRecordset("Select * From qry_workscope_utility") rst.MoveLast: rst.MoveFirst RC = rst.RecordCount rst.MoveNext C = rst!VisitNo rst.MovePrevious If C = "NA" Then Else If IsNull(Form_frm_WORKSCOPE.VisitNo) Or Form_frm_WORKSCOPE.VisitNo = "" Then rst.Edit rst!VisitNo = C + 1 rst.Update rst.Close: Set rst = Nothing End If End If Me.frm_WORKSCOPE.Requery لو ان بدلا من 1 فى الدائرة الحمراء كلمة NA ولو أرقام يستكل الكود حاضر انا اسفه جدا تعبت حضرتك معايا واعتذر انا وضعت فكرة تعديل الكود ومخدتش بالى ان حضرتك رديت شكرا ليك يا استاذ جعفر ربنا يكرمك انت مش عارف انت عملت فيه ايه الله يكرمك طيب معلش انا اسفه انا غيرت السطر وطلع الخطأ ده انا مش فاهمه ايه ده او يقصد ايه فى رسالة الخطأ دى اعمل ايه qs-2.rar

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

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

طبعا الرقم 1 اللى موجود داخل الدائره الحمراء فى الزياره التاليه سيكون 2 فى الحالة دى يكون المربع الازرق بيساوى 3 والزيارة التاليه الرقم فى المربع الاحمر 3 ولكن طبقا لحالة العمل المفروض يرجع يعد من الرقم 1 مرة اخرى لذلك انا فكرت استخدم dlast مش نفع معايا فى الاول استخدمت dmax ونفع لكن بدء الترقيم من الرقم 1 مرة اخرى اختلف فيه كل شئ تنويه ايضا فى باقى الحقول الفارغه حيكون فى عمليات حسابيه ولكن بدون تسلسل ولكنها ستعتمد على نفس الرقم الموجود فى السجل السابق لكل مربع نص يعنى مثلا مربع النص csn الفارغ للسجل الاخير والمطلوب اكماله سيعتمد على الرقم فى نفس مربع النص للسجل اللى قبله اللى حيكون طبقا للشكل المرفق 297

ما شاء الله بجد شغل اكثر من رائع

السلام عليكم بعد اذنكم انا عندى استفسار موضح فى الشكل الاتى انا عاوزه اعمل الاتى المربع الازرق الفاضى فى الشكل ده المفروض يكون يساوى قيمة المربع اللى متعلم بدائره حمراء +1 يعنى المفروض يكون 2 ممكن اعرف ازاى اعمل كده انا عملت كود على مربع التحرير والسرد المفروض عند التحديث ده يتم انا اسفه على الازعاج واتمنى اكون قدرت اوصل الفكرة المطلوبه ومرفق قاعدة البيانات المطلوب التعديل عليها qs.rar

تحفه بجد

فين المرفق ؟

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

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

طيب هات قاعدة فيها جدول به كلمات بالتشكيل والهمزات ونموذج البحث اللى بتشتغل بيه

ممكن نسخة مفتوحة المصدر

سلام عليكم ممكن المساعدة فى التعديل على قاعدة البيانات الاتية انا حاولت اطبق من مثال للاستاذ ابو جودى بس مش عارفه اريد الاتى - الرصيد اول العام لكل من العارضة والاعتيادى -الرصيد الحالى بعد خصم الاجازة لكل من العارضة والاعتيادى -عدم تسجيل اجازة بتاريخ يتعارض مع اجازة سابقة لكل من العارضة والاعتيادى -فصل رصيد الاجازة الاعتيادية عن العارضة فى الحساب والترصيد -عدم حساب يوم الجمعة والسبت ضمن ايام الاجازة -عدم حساب ايام الاجازات الرسمية من ايام الاجازة ايضا انا اسفة طلباتى كتير LM .rar

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

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

فى مشكله لو ان جدول الاجازات لا يحتوى على اى بيانات برجاء جرب افراغ جدول الاجازات اولا وحاول ادخال اجازة لموظف وهنا تجد المشكلة هل هناك حل لتلك المشكلة ؟

Good idea ,wonderful 👍

The subject is complicated I do not understand the codes I can not handle it or transfer the scan only in another database

congratulations with my best wishes

good work