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

شكرا استاذ ابو خليل وان كان الحقل ضمن نموذج واريد ان ازيد التنسيق الشرطى عن 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

السلام عليكم شباب .......... تواجهنى مشكلة وهى انى اريد رسالة تظهر عند ادخال قيمة معينة فى حقل وهذا الحقل لا يقبلها بمعنى اوضح فى حقل الاسم ...... يجب ان تكون حروف فقط ولو ادخلت اى شئ غير الحروف تظهر رسالة تطلب منى ان ادخل حروف وكذلك الحال فى حقل الرقم" Number class" يجب ان تكون ارقام فقط وتظهر رسالة تطلب ادخال ارقام فقط وكذلك الحال بالنسبة لحقل التاريخ "join date" تظهر رسالة تخبرنى اننى يجب ان ادخل تاريخ فقط اذا ادخلت حروف او غيرها اليكم المرفقات school.rar

الحمدلله وجدت الحل بعد ايام وبعد محاولات كثيرة بفضل الله......... وشكرا لمن حاول ان يساعدنى فأنا اعلم ان التأخر فى الرد والحل ربما لكثرة الاستفسارات من الاخوة الاعضاء ...... ولكن عموما اليكم الحل ...... المشكلة كانت ان لدى حقل اسمه "status1" يحتوى على سجلات مختلفة البيانات مثل اجازة وتاخير وعارضة واعتيادى ..... والمطلوب هو فرز وتوزيع هذة البيانات فى تقرير خاص واليكم الحل اردت ان انشره حتى يستفيد باقى الاعضاء بالفكرة salary220 UP.rar

شكرا على المتابعة / استاذ ابو خليل .........

الحمدلله وجدت الحل استاذ /ابو خليل وشكرا كثيرا على الاهتمام حاولت البحث ووجدت انه يجب ان انسخ الملف AniGIF.ocx فى مسارين فبالاضافة لمسار system32 كان لابد من نسخ الملف فى هذا المسار C:\Windows\SysWOW64\ شكرا على الاهتمام تحياتى

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

64 bit

السلام عليكم يا شباب انا عارف انى صدعتكم كثير هذة الايام :) واتمنى ان اكون عضو خفيف بالبحث عن طريقة ادخال صور متحركة لنموذج اكسيس وجدت الاداة المرفقة ولكن هناك مشكلة حيث اننى اعمل نظام ويندوز 7 ببرنامج اكسيس 2003 حيث ان الملف AniGIF.ocx بعد نقله فى المسار المخصص فى system32 لا يقبل الريجيسترى ويعطنى رسالة "فشل" وبالتالى لا اجدها فى قائمةActive x control فهل المشكلة بسبب ويندوز 7 ام ماذا ؟؟؟ الصور المتحركة.rar

شكرا استاذ/ أبو خليل ........ فهمتها الان وسوف استفيد بها فى برنامجى إن شاء الله جزاك الله خيرا على المعلومة والشرح تحياتى

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

فى النموذج المرفق منك بعد التعديل اريد اضافة بسيطة وهى اولا انا قد وضعت هذا الكود لكى يظهر رسالة عندما لا يوجد بيانات فى التقرير ....... وضعتها فى حدث On No Data هذا هو الكود Ok = "موافق" MessageBoxH Me.hwnd MsgBox "لا توجد بيانات متاحة", , "عفواً" Cancel = -1 لاحظ المثال بعد فتح نموذج "presence" ثم استعلام عن عام 2003 لاتظهر بيانات وبعد الضغط على "تقرير استعلام" شاهد ماذا يحدث المشكلة الاولى هى عند الضغط على زر موافق فى "رسالة لا توجد بيانات" تظهر الرسالة مرة اخرى واضطر الى ان اضغط موافق مرة ثانية والمشكلة الثانية اريد ان اضيف امر عدم عرض التقرير ولكن برسالة غير الناتجة عن الكود (Cancel = -1 ) حيث تظهر الرسالة بالانجليزية وهى رسالة الاكسس واريد ان تظهر الرسالة باللغة العربية كحالة الكود السابق بعبارة مثلا "عدم فتح التقرير لعدم وجود بيانات" بحيث تظهر محل رسالة ال camcel الناتجة من الاكسس اسف للاطالة فى التوضيح لطلبى ولك منى كل التحية الملف المرفق معدل بعد اخر تعديل مرسل منك salary2015.rar