ابو جودي

وطربقة استاذنا الجليل واخونا الحبيب استاذ @Shivan Rekany افضل من طريقتى واعتذر كنت اتمنى عمل اعجاب ولكن يخبرنى انى استخدمت عدد 10 اعجاب اليوم ولا يسمح لى الموقع بذلك ولكن بأفعلها على طريقتى الشخصية وحضرتك بالصحة والخير والسعادة ان شاء الله انت عايز لو مافى اى قيم مختلفة فى شيت الاكسل يخبرك برساله بذلك وان كان هناك اختلاف يخبرك بعدد السجلات فقط المختلفة والتى سيتم استيرادها ؟!

جزاكم الله خيرا واحسن اليكم كما تحسنون دائما الى كل رواد المنتدى

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

ان شاء الله يعجبك الفكرة Access Import 02 .rar اعتذر عن التأخير فى وضع الملف بعد التعديل كنت اصلى العصر عذرا وعفوا استاذ @Shivan Rekany انا كنت فاتح المنتدى على المشاركة ورفع المرفق لكن هممت الى الصلاة ولما عدت وقمت بحفظ المشاركة لم انتبه الى انكم وضعتم الحل اسأل الله تعالى ان يعجلكم دائما وابدا سباقون للخيرات

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

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

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

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

اسأل الله تعالى ان تجد ما تريده ان شاء الله واعتذر للمرة الثانية عن عدم الاهتمام بالتنسيق والشكل العام Database51- with report.rar

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

جزااااااااااااااااااااااااكم الله خيرا اللهم اغفر لكم ولوالديكم وللمسلمين

اعتذر استاذى الجليل ومعلمى القدير لاثقالى على كاهلكم ولكن لا حيلة لى فى قلى تفكيرى وتركيزى ده اقتباس مشاركة حضرتك ما يحيرنى اننى لم اجد اسم الجدول ' Import the data from each worksheet into the table For lngCount = colWorksheets.Count To 1 Step -1 If DCount("[Name]", "MSysObjects", "[Name] = '" & colWorksheets(lngCount) & "'") = 1 Then CurrentDb.TableDefs.Delete colWorksheets(lngCount) DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9, _ strTable, strPathFile, blnHasFieldNames, colWorksheets(lngCount) & "$" Next lngCount وحضرتك حالا ذكرت بعد هذا الامر تمرر اسم الجدول فهي تحذف جدول واحد انا بصراحة مش قادر افهم واستوعب الموضوع جيدا

اليك هذا المرفق بايد عربية وبنفس النتيجة وانظر الى الاكواد المستخدمه الدعاء للاستاذ الجليل والمعلم القدير @رمهان FindAsUType - بايد عربيه رمهانية -.rar

جزاكم الله خيرا لكن CurrentDb.TableDefs.Delete هل تحذف كل جداول القاعدة ؟! ولو لا كيف تحذف هذا الجدول فقط دون غيره

على العموم انا انتهت من تطبيق اعادة الترقيم مرة اخرى بع اغلاق القاعدة وفتحها تجد الترقيم تم اعادته برمجيا Access Import_ up 2.rar

قمت ببعض التعديلات على المرفق - لا يكرر السجل ان كان موجود - ازالة المسار بعد الاستيراد - رسالة تفيد بنجاح العملية وهذه الافكار التى وضعتها فى المرفق لعدم حذف العمود الخاص بالتسلسل من شيت الاكسل فلربما موضوع الفتح والحذف قد يسبب ازعاج او قد يسبب حذف او تغيير فى بيانات بالخطأ ولكن حل استاذى الجليل ومعلمى القدير @رمهان تمام ولا يوجد به اى مشكله فكما اوضحت المشكله هى استكمال الترقيم التلقائى بعد حذ سجلات من الجدول ولو ان هذا الجدول غير مرتبط باى جداول اخرى ممكن اضيف لاحى الكريم @النهر العطشان وحده نمطية لتعيد ترقيم الحقل مرة اخرى فلا يحدث اى فقد فى التسلسل مرة اخرى حتى بعد الحذف

جمع كل اكواد الموديول HALABI _ up1 .rar

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

وايه رايكم لو الكود صار هيك اعتقد حذف الجدول اسهل واسرع من حذف السجلات بداخله فلو عدد السجلات كبير؟! وبعد اذن استاذ @رمهان ايه الفرق بين حذف الجدول بهذه الطريقة وبالطريقة تبع حضرتك ' Import the data from each worksheet into the table For lngCount = colWorksheets.Count To 1 Step -1 If DCount("[Name]", "MSysObjects", "[Name] = '" & strTable & "'") = 1 Then DoCmd.DeleteObject acTable, "test" DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9, _ strTable, strPathFile, blnHasFieldNames, colWorksheets(lngCount) & "$" Next lngCount

بعد اذن استاذى الجليل ومعلمى القدير الاستاذ @رمهان الاختلاف هنا بسب حذف السجلات من قبل وهذه هى النتيجة الطبيعية للترقيم التلقائى Access Import_ up.rar

شكرا انت الاجمل

اعتقد لا علاقة للكود بدقة الشاشة وانما ابعاد وحجم النموذج

تم التعديل Archive 11111.rar

up لازلت انتظر الرد هل يمكن وضع التركيز على عنصر محدد بعد توسعة كل السجلات ؟؟!! ؟؟؟؟؟؟؟

ملاءمة عناصر النموذج حسب حجم النموذج ☺.rar