أبوبسمله

السلام عليكم مشاركه مع اخى واستاذى @Moosak جزاه الله عنا كل خير 💐 جرب المرفق اخى @أبو حوده واخبرنا بالنتيجه Private Sub أمر317_Click() x = DLookup("id_father", "Tbl_Son", "N_id_son=" & Me.Text3) Debug.Print x Me.List3.RowSource = "SELECT Tbl_Main.id, Tbl_Son.son, Tbl_Son.N_id_son, Tbl_Son.Date_B " & _ "FROM Tbl_Main INNER JOIN Tbl_Son ON Tbl_Main.id = Tbl_Son.id_father " & _ "WHERE Tbl_Main.id=" & x Me.List3.Requery End Sub بالتوفيق تجارب(1).accdb

نعم صحيح هو نابغه وذو خلق ومتواضع هو وجميع اخوانى واساتذتى واتشرف بل هو وسام ع راسى وصدرى ان اناديكم اخوانى وابائى واقبل ايديكم ورؤسكم وهنبعد عن الكود بقى من خصائص النموذج تبويب بيانات السماح بالتحرير لا 🌹

يسعدنى ويشرفنى منادتكم لى باخ وابن لكم ربنا يغفر لنا اجمعين ان شاء الله اللهم آمين نسال العفو بحبنا لبعض فالله وان يديمها علينا نعمه هههههههههه انا نسيت احسب سطرين البدايه والنهايه ههههههههههههه ربنا يجازيكم عنا كل خير استاذى ومعلمى ووالدى الحبيب خالد تقبلوا تحيات ابنكم الصغير احمد 💐🌹

لازم يفوز طبعا استاذى مش تعليمكم فهذه بركاتكم وتعليمكم لنا جزاكم الله عنا كل خير طبعا يحيا المسنون ونقبل ايديهم ورؤسهم والحمد لله انضممت لهم 😀 اضحك الله سنك مهندسنا العزيز بس ممكن نختصرها عادى لو حبيت 5 فى مديول ونستدعيهم فى سطر واحد فى 3 نماذج وبقوا 8 اسطر ههههههههههههه جزاكم الله عنا كل خير

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

من زمان وانا احس حالى مسن وتاكدت اليوم ههههههههههههههههه الحمد لله انا شباب وانا بتعلم منكم ومعكم تسلملى ولكل كل التحيه والاحترام والتقدير من ابنكم لصغير احمد اللهم آمين واياكم ولكن لم افعل شىء بالتوفيق

السلام عليكم مشاركه مع اخى واستاذى الغالى جزاه الله عنا كل خير Private Sub Form_Current() If Not Me.NewRecord Then Me.AllowEdits = False Else Me.AllowEdits = True End If End Sub

جزاك الله خيرا اخى ومعلمى العزيز الحمد لله اصبحت معكم ع قائمه المسنين 😀 فقمت بعمل نفس الاجابه ولكن وردنى اتصال وانشغلت به ولما عدت وجدتك وضعت الحل 💐 ربنا يبارك فيك وفى عمرك وادامكم الله واسعد اوقاتكم

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

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

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

السلام عليكم اخى الفاضل @alsihran قم بمراجعه الموضوع التالى لاخى واستاذى د حسنين @SEMO.Pa3x جزاه الله خيرا هو جميع واخوانى واساتذتى بالتوفيق

الشكر لله ثم لاخواننا واساتذتنا جزاهم الله عنا كل خير بالنسبه للنقطه دى بسيطه يا د محمد انسخ الرقم اللى يظهر امامك بالشاشه تمام ادخل ع محرر الاكواد اضغط كنترول + G لاظهار شاشه immediate قم بوضع الكود التالى بها ?ToGetAprv("هنا ضع الرقم الذى قمت بنسخه من الشاشه") اضغط انتر سيظهر لك رقم التفعيل انسخه وارجع للشاشه لوضع كود التفعيل بعد وضعه وقبوله سيتم الاغلاق وفتح الشاشه الرئيسيه وبس يا ابوشادى يمكنك تصميم نموذج وتمرير له البيانات واستخراج البيانات فى النموذج مباشره بدل المحرر بكل بساطه ويسر بالتوفيق

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

انسى بالتوفيق اخى

وفيك بارك الله مازلت تلقبنى مهندس الله يجبر بخاطرك اخى موسى ما انا الا طالب علم اتعلم معكم حاصل ع دبلوم فلا يناسبنى لقب مهندس وانما اخ وبس بل انا المسرور بمشاركتكم تجاربكم والتعلم منها بالتوفيق اخى موسى

الشكر لله ثم لاخواننا واساتذتنا جزاهم الله عنا كل خير نعم يمكن اطلع عالمرفق بعد التعديل تم استخدام فنكشن بداخل النموذج واستدعائها فى حدث بعد التحديث لحقل المرحله املىء الحقول بالقيم ثم اخترالمرحله Function strUPDate(strTxt As String) strSql = "SELECT Tmasrofat.[المصروفات الاساسية], Tmasrofat.الكتب, Tmasrofat.الزي, [بيانات الطلاب].المرحلة " & _ "FROM [بيانات الطلاب] LEFT JOIN Tmasrofat ON [بيانات الطلاب].[كود الطالب] = Tmasrofat.[كود الطالب] " & _ "WHERE [بيانات الطلاب].المرحلة='" & strTxt & "'" Set rs = CurrentDb.OpenRecordset(strSql) If rs.RecordCount <> 0 Then rs.MoveFirst While Not rs.EOF ' strNew = Me.Text129.Value Me.Dirty = False rs.Edit rs.Fields("المصروفات الاساسية") = Me.Text125 rs.Fields("الكتب") = Me.Text127 rs.Fields("الزي") = Me.Text129 rs.Update rs.MoveNext Wend End If rs.Close End Function بالتوفيق school_1.accdb

وعليكم السلام واياكم اخى الحمدلله انك وجدت ما تبحث عنه اتفضل اطلع ع الرابط التالى من اعداد مهندسنا العزيز محمد طاهر جزاه الله عنا كل خير https://officena.net/Tips/Access-Mask.htm والتالى لميكروسوفت https://support.microsoft.com/ar-sa/office/التحكّم-في-تنسيقات-إدخال-البيانات-بواسطة-أقنعة-الإدخال-e125997a-7791-49e5-8672-4a47832de8da بالتوفيق

وعليكم السلام ورحمه الله وبركاته مشاركه مع اخى ومهندسنا العزيز @Eng.Qassim جزاه الله كل خير 💐 اولا يجب الابتعاد عن تسميه الكائنات كالجداول والنماذج وغيرها وكذلك عن تسميه الحقول بالعربى واستخدام خاصيه التسميه التوضيحيه واكتب فيها بالعربى واذا كان الاسم مكون اسمين لا تستخدم مسافات بينهم يفضل الابتداء بحرف كابتل او علامه _ للفصل بينهم بالنسبه لتصميم النموذج ليس من المنطقى وضع حقول للقيم لكل مرحله قمت بالتعديل واستخدام استعلام التحديث وتشغيله فى حدث بعد التحديث لحقل المرحله اكتب القيم المناسبه لكل مرحله ثم قم باختيار المرحله لتحديثها ارجو ان يكون التعديل مناسب لك بالتوفيق اخوانى school.accdb

اللهم آمين واياكم اخى واستاذى ووالدى الحبيب اللهم بارك لاخوانى فيما زرعوه واجعل حصادهم مبارك يارب العالمين وجازهم عنا كل خير ياكريم اسال الله لكم ولوالديكم ولكل من تحبون وكل اخوانى واساتذتى بان يبارك فيكم ويغفر لكم ولاهليكم وان يرزقكم شربه هنيئه من يد سيدنا محمد صلى الله عليه وسلم وان يرزقكم الفردوس الاعلى 💐

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

السلام عليكم اهلا اخى ومهندسنا العزيز كل الادوات الموجوده لدى للاطلاع والافاده فى الحدود مع المحافظه ع حقوق الاخرين والحمد لله معنا اخواننا ينبهوننا اذا تجاوزنا الحد وذلك للمحافظه على حقوق الاخرين ونحمد الله اننا نتعلم منهم كل حسن وطيب وجزاهم الله عنا كل خير بارك الله فيك مهندسنا العزيز وجزاك الله كل خير الحمدلله بالتوفيق

السلام عليكم مشاركه مع اخوانى واساتذتى جزاهم الله عنا كل خير استخدم القناع التالى 00/00/"202"0;0;_ بالتوفيق Database1.accdb

السلام عليكم مشاركه مع اخى ومهندسنا العزيز @Eng.Qassim جزاه الله عنا كل خير 💐 قاعد البيانات المرفقه هى عباره عن واجه وغير مرفق قاعده البيانات الخلفيه التى تتصل معها قاعده البانات المرفقه مغلقه accde ومحول الامتداد لها accdb فيجب عليك مراجعه قاعده البيانات قبل التحويل وتعديل الكود الاخير الذى اضفته وقام بتعطيلها بالتوفيق

اتفضل دبل كليك على حاله الصرف وسيتم اتاحه التعديل ثم عند الخروج سيتم تفعيل الوضع غير ممكن التعديل بالتوفيق TestLOck -2.accdb