علي المصري

شكرا لكما على الاهتمام جزاكم الله خيرا الحل بعد تجربة طريق استاذ ابو خليل والاستاذ سليم حاصبيا وجدت الحالي سيكون كالتالي Private Sub A3_BeforeUpdate(Cancel As Integer) Tot.Requery If Test = 1 And [A3] > 40 Then Beep MsgBox "Ïدرجة أكبر من الدرجة المطلوبة & Val([LaaTest1].[Caption]), _ vbInformation + vbMsgBoxRight + vbOKOnly, "AliElmasry" Undo DoCmd.CancelEvent End If If Test = 2 And [A3] > 20 Then Beep MsgBox "Ïدرجة أكبر من الدرجة المطلوبة & Val([LaaTest1].[Caption]), _ vbInformation + vbMsgBoxRight + vbOKOnly, "AAliElmasry Undo DoCmd.CancelEvent End If End Sub   

بعد اذن صاحب الموضوع البرنامج مرفوع على 4shared http://www.4shared.com/rar/y5PI7TCuba/Archiv_Mobile_V_1001.html

شكرا ------ جزاك الله خيرا

منور الموضوع يا استاذ أبو خليل المشكلة اصلا في انه لدي اكثر من شرط فجربت في قاعدة التحقق من الصحة ولم تفلح اما الكود هي الطريقة التي اعطتني ما اريد ما عدا المشكلة المطروحة If Test = 1 and [A1] > 50 Then Beep MsgBox "درجة أكبر من الدرجة المطلوبة ", _ vbInformation + vbMsgBoxRight + vbOKOnly, "AliElmasry" A1 = "" Elseif Test = 2 and [A1] > 25 Then Beep MsgBox "درجة أكبر من الدرجة المطلوبة ", _ vbInformation + vbMsgBoxRight + vbOKOnly, "AliElmasry" A1 = "" end if

الله ينور عليك استاذ أبو خليل

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

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

لدي نموذج في وضع السجلات المتتالية احد العناصر اسمه A1 فكتب الكود التالي للتحقق من ان الدرجة المدخلة لا تزيد عن 50 If [A1] > 50 Then Beep MsgBox "درجة أكبر من الدرجة المطلوبة ", _ vbInformation + vbMsgBoxRight + vbOKOnly, "AliElmasry" A1 = "" end if لاحظ اخر سطر وهو جعل الحقل فارغ بعد ظهور الرسالة ولكن المشكلة ان المؤشر ينتقل إلى السجل التالي ولا يبقى في هذا السجل الذي تم ادخال درجة خطأ به فهل من الممكن جعل المؤشر يظل في نفس السجل بعد رسالة التحذير شكرا

توصلت لفكرة الجدول A1 هو نفسه Absent ولكن تم تغيير اسمه في داخل الاستعلام جاري البحث عن حل للمشكلة

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

جزاك الله خيرا عن هذا العمل

الكثير منا يلجأ لاستخدام التبويب في النماذج ولكن مشكلة هذه التبويبات كلها تكون بنفس لون الخلفية فإليكم الفكرة التالية منقول من احد المواقع الاجنبية ( تم تعريب بواسطتي ) انظر المرفقات Colored Tabs.rar

لكن في الاستعلام مبني اساسا على الجدول A1

بعد اذن الاستاذ ابو خليل جرب التالي تم تغيير المستويات للمعايير Database5.rar

تفضل الشرح في الصورة التالية

هل يوجد جداول أخرى في قاعدة البيانات لاني ارى في الاستعلام جدول A1 و A2

جرب المرفق التالي ووافني بالنتيجة FSaturday.rar

السلام عليكم ورحمة الله وبركاته عند مراجعتي للبرنامج وجدت ان هناك خطأ في كود أحد الأزرار فبحمد الله تم تعديل هذا الخطأ مع إلغاء زرين في الواجهة الرئيسية للبرنامج واضافة التاريخ والوقت للشاشة الرئيسية شكرا لكم Marks final Access2013.rar Marks final Access 2003.rar

اخي شكرا لك على الرد الجميل الذي افرح قلبي ومساعدتك لي جزاك الله خيرا لاعلم لكن طلع معاي هيك معقول عشان بستخدم اوفيسس 2007 error.jpg لكن نفس المطلوب مهما كان طول المدخل يمتد ويتقلص مع النص الثابت مثال لتوضيح ارجو تسليم 5555544444444444444444444444 كذا ارجو تسليم 444444444444444444444444 كذا ارجوا تسليم 4444444 كذا وليس مثل هيك ارجو تسليم 544444444444444444444444 كذا ارجو تسليم 444444444444444444444444 كذا ارجوا تسليم 4444444 كذا اخي الكريم شغل التقرير من خلال النموذج ولا تفتح التقرير مباشرة اما الاستاذ ابو خليل فجزاه الله عني خيرا شكرا

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

تفضل اخي الكريم اتمنى ان يكون هو المطلوب db1.rar

جزاك الله خير وجعله في ميزان حسناتك

تم حل المشكلة المعادلة القديمة =IIf(IsError([FWashQ].[Form]![aa]);" ";[FWashQ].[Form]![aa]) تم تعديلها كالتالي =IIf(IsError([FWashQ].[Form]![aa]);0;[FWashQ].[Form]![aa]) طبعا بالمثل المعادلتين الباقيتين =Nz([Wash1])+Nz([Minbar1])+Nz([Cafe1]) B2 (2).rar

بدون واحدات نمطية نستخدم فقط =[currentRecord] انظر المرفق 2014.rar

تم التعديل ظهور النتيجة في مربع واحد شئون طلبة_2.rar