أبوبسمله

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

العفو اخى الفاضل كلنا اخوه نساعد يعضنا بعضا ونتعلم من بعض شوف التعديل ده تقبل تحياتى وتمنياتى لك وللجميع بالتوفيق طبتم واهتديتم الجمع في الاستعلام وإظهار النسبة والتقدير1.rar

السلام عليكم ورحمه الله وبركاته جزاكم الله خيرا اساتذتى @kha9009lid و @essam rabea ومشاركه لاخوانى واساتذتى ارفق ملف بحث وطباعه فكرته مشابهه لنفس الموضوع للاستفاده منه وجزاه الله خيرا صاحب المثال ومن عدل عليه تقبلوا تحياتى وتمنياتى لكم وللجميع بالتوفيق طبتم واهتديتم بحث.rar

اخى الفاضل على قد ما فهمت ومشاركه اخوانى واساتذتى فى الحلول حاجه على قد ما فهمت من شرحك تقبل تحياتى وتمنياتى لك بالتوفيق طبتم واهتديتم الجمع في الاستعلام وإظهار النسبة والتقدير.rar

الشكر لله بالتوفيق ان شاء الله اخى

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

مرفق الملف بعد التعديل TAQWEA_1.rar

اخى الفاضل جرب تعدله Set Rs = db.OpenRecordset("SELECT studentTable.*FROM studentTable;") يجب ازاله المسافه student Table لتصبح studentTable وفى اسم الجدول كمان يعنى الجدول والكود ان شاء الله يشتغل والله اعلى واعلم تقبل تحياتى طبتم واهتديتم

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

جزاك الله خيرا اخى @Ali Mohamed Ali

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

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

اخى الفاضل عدل الكود ليصبح كالتالى Private Sub Command2_Click() 'Me.Tasjil.SetFocus 'DoCmd.GoToRecord , , acNewRec Dim db As DAO.Database Dim Rs As DAO.Recordset Dim Rss As DAO.Recordset Set db = CurrentDb Set Rs = db.OpenRecordset("SELECT Tasjil.*FROM Tasjil;") Rs.AddNew Rs("StuName") = Me.ZStuName.Column(1) Rs("Teacher") = Me.ZTeacher.Column(1) Rs("Sub") = Me.ZSub.Column(1) Rs("Hessah") = Me.ZHessah.Column(1) Rs.Update Rs.Close Me.XStuName.Requery Me.Requery End Sub ان شاء الله يظبط معك تقبل تحياتى طبتم واهتديتم

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

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

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

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

ومرفق مثال اخى واستاذى ابو ياسين وبه 55296 سجل فى انتظارك بعد التجربه SumPages_Mr_AboYasin.rar

اخى وضاح كم عدد السجلات بجدولك ؟ مرفق المثال به 36864 سجل والامور تمام به وعندك استعلام الحاق ممكن تضيف البيانات اكتر وتجرب عليه فى انتظارك وانتظار اخى واستاذى @ابو ياسين المشولي ومن يحب ان يشاركنا لنفهم ونتعلم SumPage_130.accdb

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

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

جزاك الله كل خير اخى واستاذى ابو ياسين نحن بانتظار مشاركتكم حتى نتعلم منكم ونستفاد اخى ابو ياسين حقل ما قبله فى الصفحه الاولى المفروض يكون 0 وحقل الحالى تمام 3865 حقل الكلى المفروض يكون 3865 هذا بالنسبه للصفحه الاولى الصفحه الثانيه ما قبله المفروض يكون 3865 والحالى 698 تمام الكلى مظبوط 4563 واين حقل bb مش لاقيه خالص بشوفه فالخصائص ولكن لا اجد اى حقول فى انتظار تعديلكم ومشاركتكم للاستفاده والتعلم اخى واستاذى تقبل تحياتى وجزاك الله كل خير طبتم واهتديتم

اتفضل اخى تم استخدام حقل Tarkam فالتقرير ومخفى لظبط العمليه يظهر ان المشكله فى رقم الصنف مرفق الملف بعد التعديل ومعه ملف اكسيل والاتنين متطابقين تقبل تحياتى وتمنياتى لك وللجميع بالتوفيق طبتم واهتديتم مجموع كل 120_صفحه.accdb q3.xls

اخى الفاضل ادخل قسم الدلفى على الرابط التالى حتى تجد ما تبحث عنه لان سؤالك على تطبيق اكسيس يعتمد على الدلفى https://www.officena.net/ib/forum/186-delphi/ تقبل تحياتى وتمنياتى لك وللجميع بالتوفيق طبتم واهتديتم

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