AlwaZeeR

وعليكم السلام ورحمة الله وبركاته حياك الله اخوي ابو نادر اذا تم حفظ السجل فيجب ان نقوم بحذفه لانه اصبح سجلا. اما اذا لم يتم حفظه فيمكننا عمل زر امر تراجع : Me.undo ويجب ان يكون الزر في نفس النموذج. ارفق مثالاً بسيطا وسوف يتم المطلوب ان شاء الله :: تحياتي

DoCmd.GoToRecord acForm, "FrmName", acLast Forms!frmName.textName.SetFocus Me.Parent.Controls("CntrlName").SetFocus واذا لم تنجح ارفق مثالاً ووضح فيه المطلوب وسوف تصل لمبتغاك :: تحياتي

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

وعليكم السلام ورحمة الله وبركاته تفضل اخي العزيز صالح مثال كان عندي قديماً فيه ما تحتاج جرب ووافني بالنتيجة :: تحياتي MyReb.rar

تفضل اخي الكريم مثال لما طلبت جرب ووافني بالنتيجة :: تحياتي waz-edit.rar

وعليكم السلام ورحمة الله وبركاته قمت بتعديل على مرفقك جرب ووافني بالنتيجة :: تحياتي waz-asasi.rar

السلام عليكم ورحمة الله وبركاته تفضل اخي الكريم جرب ووافني بالنتيجة :: تحياتي waz-CenterHorus2.rar

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

اخي الكريم ،،، ارفق مثالاً اخي الكريم لان فهم السؤال كل الاجابة وليس ثلثيها :: تحياتي

وعليكم السلام ورحمة الله وبركاته تفضل اخي الكريم ومعذرة لتاخري لانشغالي :: تحياتي waz-1122.rar

العفو اخي الكريم ،،، وما تم عمله على حسب ما فهمت من سؤالك :) قم بتحويل الحقل (ImgFK) الى حقل نص الموجود في جدول tblImages وقم بربطه بالحقل (istimaracode) الموجود في جدول vipistimara يجب ان تكون قيمة Imgfk هي نفس قيمة حقل istimaracode ادرج في التقرير حقل نوع صورة واجعل مصدره (= imagepath) :: تحياتي

جربت الكود عندي واشتغل 100% لا تستخدمه في حدث On load جرب المرفق ولاحظ الصور فيه :: تحياتي waz-Fram12 (2).rar

السلام عليكم ورحمة الله وبركاته الكود بسيط : يتم التركيز فيه على الساعات فقط بالرمز (h) بما انك تستخدم نظام 24 قم بازالة pm و am وسوف يعمل بدونهما ليصبح هكذا: If (DatePart("h", Me.Text23) >= 8 And DatePart("h", Me.Text23) <= 16) Then Me.Frame12.Value = 1 ElseIf (DatePart("h", Me.Text23) >= 16 And DatePart("h", Me.Text23) <= 24) Then Me.Frame12.Value = 2 Else Me.Frame12.Value = 3 End If اذا تم وضع الكود في حدث on load يتم تغيير المعلومة السابقة حال مررت عليها سواء بفتح السجل او التنقل بين السجلات :: تحياتي

وعليكم السلام ورحمة الله وبركاته تفضل :: تحياتي waz-school.rar

وعليكم السلام ورحمة الله وبركاته تفضل اخي الكريم لم افهم ماذا تقصد بكيفية ربط صور البطاقات المسلمة بالتقرير!!! يرجى التوضيح اكثر :: تحياتي waz-1122.rar

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

وعليكم السلام ورحمة الله وبركاته تفضل هذه المشاركة مشابهه لما طلبت قم بالتعديل حسب حاجتك او ارفق مثااااااالا للتعديل عليه :: تحياتي اضغط هنا

وعليكم السلام ورحمة الله وبركاته تفضل اخي الكريم جرب ووافني بالنتيجة :: تحياتي Waz-Fram12.rar

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

حقول الربط التابعة بالكود ربط النموذج الرئيسي بالفرعي بواسطة حقل مشترك يجب اضافة الكود في حدث في الحالي وتاكد من اسم الحقول المربوطة واسم النموذج الفرعي داخل النموذج الرئيسي ارفق مثالك اذا لم تستطع :: تحياتي

جرب اخي محمد (Parameter) 2003.rar

تفضل اخي الكريم تم تعديل تسجيل الغياب مجمع برنامج شئون الطلاب.rar

دعني اسال انا وانت تجيب: - هل جربت الكود الذي وضعته لك؟ وافني بالنتيجة - لكل نوع طعام ثلاثة اسعار سوف توزع على معايير : ذكر، أنثى هذه فهمناها معيارين يا ابيض يا اسود :) - الآن دور العمر: كم معيار؟ *** ذهبت انا وزوجتي وابني وبنتي الى المطعم الخاص بك انا ذكر، وزوجتي أنثى، وابني ذكر عمره 10 اعوام، وابنتي انثى عمرها سبعة اعوام طلبنا سمك الهامر: كيف تحسب الأسعار؟؟؟ وما قيمة الفاتورة التي سندفعها؟ اذا كان الجدول sprt فيه ثلاثة اسعار فقط؟؟؟ السعر الاول: 20 والسعر الثاني 30 والسعر الثالث 40 *** احسب قيمة فاتورتي وسوف نصل الى حل :: تحياتي

اخي محمد فهم السؤال ثلثي الإجابة ،،، دائماً ما أكررها ما فهمناه من شرحك انه في حال كان الجنس ذكر يكون السعر مثلاً 5 وفي حال كان انثى يكون السعر 4 وعندما اضفت اقل من عشرين يكون السعر 3 هنا سقط عامل الجنس وبناء على ما تقدم تحتاج الى ثلاثة حقول للاسعار فهنا يجب ان تلاحظ ان كل معيار له سعر ولو كان لديك عشرة معايير مثلاً فسوف تحتاج الى عشرة حقول اسعار :: عموماً انا طبقت لك على ثلاثة اسعار : في حال كان العمر اكبر من عشرين يعتمد السعر على الجنس واذا كان اقل يعتمد على العمر ويهمل الجنس واضف حقلاً ثالث في جدول sprt وسمه price3 اضف الكود التالي في حدث بعد التحديث لحقل food Select Case Forms!cust!age Case Is >= 20 If Forms!cust!sex = "Male" Then Me.price = DLookup("[price1]", "sprt", "fid=" & food.Column(1) & "") Else Me.price = DLookup("[price2]", "sprt", "fid=" & food.Column(1) & "") End If Case Else Me.price = DLookup("[price3]", "sprt", "fid=" & food.Column(1) & "") End Select ثم وافنا بالنتيجة ... :: تحياتي

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