أبوبسمله

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

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

السلام عليكم مشاركه مع اخى واستاذى الغالى جزاه الله عنا كل خير 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

اعكس العمليه If Me.chek = True Then Me.AccountsType.Enabled = True Me.Registration_Date.Enabled = True Me.Pay.Enabled = False Me.Pay.Locked = True Me.Account.Enabled = True Me.Customer_ID.Enabled = True Me.Registration_Text.Enabled = True Me.Registration_document_Number.Enabled = True Me.Debit.Enabled = True Me.Creditor.Enabled = True Me.Balance.Enabled = True Else Me.AccountsType.Enabled = False Me.Registration_Date.Enabled = False Me.Pay.Enabled = True Me.Pay.Locked = False Me.Account.Enabled = False Me.Customer_ID.Enabled = False Me.Registration_Text.Enabled = False Me.Registration_document_Number.Enabled = False Me.Debit.Enabled = False Me.Creditor.Enabled = False Me.Balance.Enabled = False End If بس ليه كتابه المزيد من الاسطر احنا بنحاول نقلل عدد الاسطر بمعنى انا عندى الجزء ده من الكود مكرر فى حدثين Me.AllowAdditions = True Me.AllowEdits = True Me.AllowDeletions = True فممكن نعمله فى اجراء فرعى ونستدعى الاجراء ده وشكرا كالتالى Sub Allow() Me.AllowAdditions = True Me.AllowEdits = True Me.AllowDeletions = True End Sub واستدعيه فالحدثين كالتالى If Me.chek = True Then Call Allow Else Me.AllowAdditions = False Me.AllowEdits = False Me.AllowDeletions = False End If Private Sub نص119_DblClick(Cancel As Integer) Call Allow End Sub بالتوفيق

الشكر لله ثم لاخواننا واساتذتنا جزاهم الله عنا كل خير والشكر موصل لاخى ومهندسنا العزيز @Eng.Qassim 🌹 تقبلوا تحياتى وبالتوفيق

السلام عليكم اخى @abouelhassan و اخى @Eng.Qassim مشاركه بسيطه معكم بعيد عن الاستثناء وبصراحه لانى مخى كان متوقف اليومين اللى فاتو 😀 فكره بسيطه عند الضغط دبل كليك على الحقل pay سيتم تفعيل الحقل للصف الذى ضغطت فيه ويمكنك الكتابه وعند الخروج سيتم تفعيل الاحداث مره اخرى وسيتم الوقوف على اول سجل وستجد انه ملون اصفر ولا يمكن التعديل عليه لعدم حدوث اخطاء لعلها تروق لك اخى ابو الحسن فالوقت الحالى بالتوفيق TestLOck -1.accdb

صحيح وتصدق ان اخى محمد لطفى وضعها مظبوطه بناء على الصوره الاولى ولم ينتبه الاستاذ رجب بانه قام بتغيير اسم الحقل 😀