مصطفى القمّاش

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

السلام عليكم هل من طريقة لزيادة التنسيق الشرطى عن 3 شروط

بعد بحث كثير وطويل ...... بفضل الله اولا واخيرا.......... وجدت هذا الكود للحل لرسالة تظهر عند ادخال حروف فى حقل ارقام او ادخال ارقام و حروف فى حقل تاريخ هذا الكود يوضع فى "حدث عند الخطأ" للنموذج Private Sub Form_Error(DataErr As Integer, Response As Integer) Ok = "موافق" MessageBoxH Me.hwnd Select Case DataErr Case 2113 MsgBox "البيانات المدخلة غير صحيحة", vbOKOnly, "تنبية!!" End Select Response = acDataErrContinue End Sub

بعد بحث كثير وطويل ...... بفضل الله اولا واخيرا.......... وجدت هذا الكود للحل لرسالة تظهر عند ادخال حروف فى حقل ارقام او ادخال ارقام و حروف فى حقل تاريخ هذا الكود يوضع فى "حدث عند الخطأ" للنموذج Private Sub Form_Error(DataErr As Integer, Response As Integer) Ok = "موافق" MessageBoxH Me.hwnd Select Case DataErr Case 2113 MsgBox "البيانات المدخلة غير صحيحة", vbOKOnly, "تنبية!!" End Select Response = acDataErrContinue End Sub

السلام عليكم .......... اولا اشكرك استاذى "ابا عمر" واشكر استاذى القدير " أبو خليل" على الاهتمام ......... ولكنى وجدت الحل بفضل الله واريد ان افيد به الجميع اولا الفكرة تعتمد ..... مثلا ترحيل البيانات من من حقل Text35 ..................... عدد الاقساط و"هو حقل فى النموذج يقوم بعمليه حسابية فى النموذج" ونتيجته تتغير بإضافة شهور جديدة "تاريخ اقساط جديدة فى الحقل "dateofmonth11" والمطلوب ان يتم ترحيل هذة القيمة الحسابية الى Noofpay .............. *عدد الاقساط* " وهو حقل فى جدول advancepay المراد ترحيل القيم الحسابية المتغيرة اليه" ... ويتم تحديثها باستمرار الحل وبفضل الله .......كالاتى - انا استخدمت كود "Me.Requery" ووضعته فى حدث بعد التحديث للحقل "dateofmonth11" وهو حقل تاريخ الاقساط والذى اريد ان اعد عدد الشهور المدخله فى هذا الحقل ساعدتنى هذة الدالة فى الحصول على قيمة الحقل Text35 ..................... عدد الاقساط ........ بمعنى ادق تحديث العمليات الحسابية فى النموذج فى حينه ....... بدون ان اغلق النموذج او الانتقال للسجل التالى لكى تظهر القيمة الحسابية فيه ..... - ثم انشأت زراستخدمت فيه كودين ........ ووضعته فى حدث GotFocus الكود الاول ان ينسخ قيمة الحقل Text35 ..................... عدد الاقساط ....الى حقل Noofpay .............. *عدد الاقساط* ..... بشرط ان يكون هناك تاريخ فى حقل "dateofmonth11" اللى هو تاريخ الاقساط الكود الثانى فى حالة تحقق تنفيذ الكود الاول ينتقل مباشرة الى السجل التالى "الشهر التالى ........ وينفذ العملية تلقائيا .... وطبعا العملية تتم تلقائيا حتى اصل لاخر سجل بدون تاريخ فلا يتم النسخ الا اذا ادخلت تاريخ وهناك فائدة اخرى للكود Me.Requery حيث تحدث البيانات والقيم الحسابية فى النموذج بالاضافة تنقلنى الى اول سجل وهذة فرصة جيدة فعند استخدام الزر تتم عمليه التحديث على كل السجلات تبعا للمدخلات الشهرية الجديدة وعند ادخل تاريخ فى حقل "dateofmonth11" يتبعه Me.Requery ثم الزر وتصبح عمليه متتالية الحمد لله وبتوفيق الله تم الحل لماذا طلبت هذة الطريقة حتى اضع المستخدم فى وضع تحجيم واقلل من احتمالية الاخطاء لو ادخل البيانات بيده ........ وايضا يمكننى الاستعلام بتقارير مبنية على جدول advancepay بسهولة ودقة اكثر وشكرا جزيلا لمن ساعدونى وافادونى بالافكار حتى وفقنى الله لحل المشكلة

السلام عليكم ...... اولا اشكرك استاذى "أبا عمر" ولكن عندما ارحل القيم الحسابية الى حقول الجدول advancepay باى معادلات نسخ قيم يتضح لك ان الشهور السابقة يجب عليك تحديث القيم الحسابية حضرتك ادخلت بيانات 5 شهور ارجع لاول شهر ستجد ان القيم الحسابية لم تتغير تبعا لاخر تحديث للقيم الحسابية فى اخر شهر بمعنى عندما تصل للشهر الخامس يظهر لك ان عدد الشهور المدخلة 5 ولكن عندما تعود للشهر اللى قابله ستجد ان عدد الشهور 4 واذا رجعت للشهر الثالث ستجد ان عدد الشهور 3 وهكذا بالرغم ان عدد الشهور المدخلة 5 شهور ......والطبيعى ان تكون عدد الشهور 5 على مدار السجلات وما اقصده ان ترحيل البيانات لا يحدث له تحديث على الشهور السابقة ارجو ان اكون اوضحت المشكلة

السلام عليكم ............. اولا اشكرك على دعوة تغيير اسمى على الموقع ..... وتم تغيره الى "مصطفى القمّاش" بدلا من nemo_cute ثانيا ساحاول ان اجدد الافكار وشكرا لك على محاولة مساعدتى واظننى اثقلت عليك جزاك الله خيرا

اخى ابو خليل حفظك الله ....... اعلم انى قد اثقلت عليك ولكن اوضح مرة اخرى بمثال قم بفتح المثال المرفق .... وافتح نموذج advance1 ستجد كود الموظف 1"" ...... والاسم "كريم" فى النموذج الفرعى advance11 subform كريم اخذ سلفة برقم سلفة "1" وكانت قيمة مبلغ السلفة 5000 جنيها وسيتم سدادها على 10 شهور فقام البرنامج بحساب قيمة القسط الشهر وهو 500 جنيها فى النموذج الفرعى advance22 subform نبدأ فى ادخال شهور السداد ....... لكى تتم العمليات الحسابية المفروض عند ادخال شهر سداد يتم حساب كل القيم الحسابية وهى عدد الاقساط المدفوعة وقيمة القسط واجمالى شهور الاقساط المدفوعة والمتبقى من قيمة السلفة على ان يتم ترحيل هذة القيم الحسابية فى النموذج الى الحقول فى الجدول المشار اليه ولكن عند التنفيذ وادخال شهر بعد شهر يجب تحديث كل الشهور السابقة كل ما ارجوه منك حاول ان تدخل 5 شهور سداد ولا حظ ما يحدث

القيم فى النموذج الفرعى advance22 subform هى نتاج عمليات حسابية فى النموذج وهى تتغير كلما اضفت تاريخ سداد قسط جديد للسلفة وبالتالى عند تغيرها اريد ترحيل هذة التغيرات مرة اخرى للجدول advancepay Text22 ...................... قيمة الاقساط المدفوعة Text35 ..................... عدد الاقساط Text15...................... المبلغ المتبقى من السلف Text26 .................... قيمة القسط الشهرى يتم ترحيلها الى حقول الجدول advancepay وهى : totalpay ............... *قيمة الاقساط المدفوعة* Noofpay .............. *عدد الاقساط* remainingadvance ..................... *المبلغ المتبقى من السلف* monthlypay ..................... *قيمة القسط الشهرى*

احاول التوضيح ........ النموذج ينقسم الى 3 نماذج ..... النموذج الرئيسى .............. وفيه بيانات الموظف الثابته الكود والاسم والوظيفة وهو مستمد من جدول slalary sheet1 النموذج الفرعى "advance11 subform" ............. وفيه بيانات السلف للموظف مثل رقم السلف وتاريخ السلفة والقيمة الشهرية التى تدفع من السلفة ...وهو مستمد من الاستعلام advance11 النموذج الفرعى "advance22 subform" ............. وفيه عدد الشهور المدفوع للسلفة ومرتبط برقم السلفة ..... وفيه ايضا حساب عدد الشهور المدفوعة وحساب القيمة الشهرية وحساب المبلغ الاجمالى للشهور المدفوعة للسلف حسب رقمها وفيه ايضا حساب المبلغ المتبقى من السلفة والمشكلة انه عند ادخال تاريخ سداد لشهر من السلفة فى النموذج الفرعى advance22 subform يجب ان يحسب "بمعنى يقوم بعمليات حسابية" عدد الشهور الشهور المدفوعة للسلفة - القيمة الاجمالية للمدفوع من السلفة - والقيمة المتبقية من السلفة ......... على ان يتم ترحيل هذة القيم الى الحقول فى جدول advancepay المستمد منه الاستعلام الذى بنى عليه النموذج الفرعى advance22 subform ...... ولكن عند ادخال شهر جديد لسداد قسط لا تتغير القيم فى العمليات الحسابية فى النموذج الفرعى advance22 subform الا اذا اغلقت النموذج وفتحته مرة اخرى ..... وايضا لا يتم ترحيل ترحيل القيم الحسابية الى حقول الجدول advancepay المطلوب الترحيل اليها ....... واذا استخدمت دول النسخ يتم تحديث اخر سجل فقط ........ عموما الافضل ان تحاول ان تجرب المثال بنفسك ........ وادخال سلفة ثم ادخال اقساطها وستلاحظ ما قلته سابقا مرفق صورة للتوضيح ونسخة من المثال advance1.rar

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

السلام عليكم اواجه مشكلة صعبة ظللت اسبوعين احاول لمدة 8 ساعات يوميا .........ان احلها ولكنى لم افلح ------------------------------------------------------------------------------------- هذا جزء خاص من برنامجى خاص بالسلف وفكرته تعتمد على ان كل موظف يقوم بعمل سلفه تأخذ رقم advance No مثلا(1) والسلفة التالية اعطيها رقم مثلا (2) ثم فى نموذج فرعى اخر يظهر عدد الشهور التى تم سدادها وهنا اريد عند جمع عدد الشهور المدفوعه لكل سلفة لنفس الموظف ان يتم ترحيلها وكذلك الحال لباقى القيم التالية بمعنى ادق اريد ترحيل قيم الحقول التالية من النموذج الفرعى advance22 subform وهى : Text22 ...................... قيمة الاقساط المدفوعة Text35 ..................... عدد الاقساط Text15...................... المبلغ المتبقى من السلف Text26 .................... قيمة القسط الشهرى يتم ترحيلها الى حقول الجدول advancepay وهى : totalpay ............... *قيمة الاقساط المدفوعة* Noofpay .............. *عدد الاقساط* remainingadvance ..................... *المبلغ المتبقى من السلف* monthlypay ..................... *قيمة القسط الشهرى* ملحوظة هامة جدا جدا جدا ................. للعلم ان قيم النموذج الفرعى advance22 subform الحسابية تتغير بادخال شهر سداد جديد وهنا اريد ان يتم ترحيل البيانات وتحديثها باستمرار عند اضافة شهر سداد جديد حيث تتغير جميع القيم السابقة للحقول فى النموذج الفرعى وبالتالى اريد تحديثها فى حقول الجدول باستمرار """"ارجوا مساعدتى قدر المستطاع لاننى متوقف فى برنامجى على هذا الجزء ......""""" ولسيادتكم جزيل الشكر advance.rar

فى انتظار مساعدة الخبراء ان شاء الله

وجدت حل والحمدلله فى الموقع ولكن فى انتظار اذا كان الحقل تاريخ واريد رسالة تظهر اذا دخلت قيمة غير التاريخ للارقام والحروف فقط http://www.officena.net/ib/index.php?showtopic=36516

السلام عليكم ...... بص انا بالصدفة سألت نفس سؤالك اليوم ووضعته فى المواضيع انا لاقيت حل فى الموقع هنا يلبى طلبك وطلبى ولكن ننتظر رسالة اذا كان الحقل تاريخ ........... اليك الرابط http://www.officena.net/ib/index.php?showtopic=36516