ابو جودي

اولا فى وضع التصميم اختر مربع النص الخاص بالتأشير ثم بعد ذلك اذهب الى conditional formatting >>---> التنسيق الشرطى وغير ما بدك بس لا تحكى السر لحد

مش راح اقول لك سر 🤣🙃🤐

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

السلام عليكم ورحمة الله تعالى وبركاته اساتذتى الكرام تحية طيبة عطرة وبعد هل هناك فارق فى اسلوب ادراج بيانات من نموذج غير منضم الى الجدول فى الطرق الاتية الطريقة الاول من خلال RunSQL وبناء الاستعلام بالكود طبعا الطريقة الثانية من خلال DAO.Recordset وايهما اسرع فى حالة استخدام شبكة محلية وتقسيم قاعدة البيانات الى خلفية وامامية ؟ وهل هناك حالات تقتضى استخدام طريقة محددة

اولا لا شكر على واجب ثانيا ارجوك بدون القاب لازم تركز فى التفاصيل

طيب بص النموذج frmMain فى التصميم لاحظ وحود نربع تص باسم SelectedRec يجب ان يكون موجود فى النموذج tester كذلك وقم تبطبيق باقى الاوامر فى الاحداث

ممكن مرفق حضرتك علشان افهم المشكله فى ايه واقول لحضرتك

ممكن توصح اكتر حضرتك عاوز تعمل ايه

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

اعد رفع المرفق مرة أخرى

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

الحمد لله الذى هدانا وما كنا لنهتدى لولا ان هدانا الله عزوجل طيب اتفضل طلبك جاهز هدية متواضعة : مربع اختيار غير منضم فى نموذج مستمر ☺ - قسم الأكسيس Access - أوفيسنا (officena.net)

بسم الله الرحمن الرحيم السلام عليكم ورحمة الله تعالى وبركاته اولا واخرا وقبل كل شئ سبحانك لا علم لنا الا ما علمتنا يارب لك الحمد كما ينبغى لجلال وجهك ولعظيم سلطانك الحمد لله الذى هدانا وما كنا لنهتدى لولا أن هدانا الله عزوجل أحبابى واخوانى الكرام أضع بين اياديكم تلك الهدية البسيطة المتواضعة راجيا من الله عزوجل تنال اعجابكم ورضاكم MultiSelectInContinuousForms (V2).mdb

طيب ابشر .. انتظر بمخمخ لك فى فكرة ممكن تنفع ان شاء الله

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

فى مشكلة فى المرفق ولاحظ كلمة Unavailable

طيب شوف الفكرة دى tester.accdb

ماشى كنت لسه بارفع الحل

رائع ما شاء الله تسلم ايدك ولكن ان سمخ وقتكم الثمين برفع المرفق حتى اتعلم منكم استاذى القدير

التطبيق call Sub Routine.mdb

على كل جرب الاتى Form_SubformName.MySubroutine

أى طريقة افضل هذه Dim dt As Date Do While dt < Format(Date, "DD/MM/YYYY") If dt = (Date) - 1 Then Exit Sub DoCmd.GoToRecord , , acNewRec dt = Nz(DMax("dater1", "table1"), Format(Date, "DD/MM/YYYY")) dater1 = dt + 1 Loop أم تلك Dim db As DAO.Database Dim rs As DAO.Recordset Set db = CurrentDb Set rs = db.OpenRecordset("table1") Dim dt As Date Do While dt < Format(Date, "DD/MM/YYYY") If dt = (Date) - 1 Then Exit Sub dt = Nz(DMax("dater1", "table1"), Format(Date, "DD/MM/YYYY")) rs.AddNew rs("dater1") = dt + 1 rs.Update Loop rs.Close Set rs = Nothing

ممكن مرفق

من خلال me.Parent http://access.mvps.org/access/forms/frm0031.htm

1- اعمل ضغط واصلاح 2- اضغط القاعدة باى برنامج ضغط ملفات 3- ارفع على اى موقع رفع ملفات وهات الرابط