فارس بني هلال

السلام عليكم هذا اقصى ما استطيع فعله .. لابد من التعديل .. علك تهتدي الى فكرة افضل .. كما في مثال الرابط .. والله ولي التوفيق ds 1.accdb مع تمنياتي لك بالموفقية والنجاح

تفضل اخي عملت لك خلية واحدة (القير) تستطيع ان تطبق الفكرة على باقي الحقول ملاحظة لا يوجد داعي لكل هذه الجداول تستطيع ان تختصرها تقرير.accdb

تفضل بارك الله فيك اكتب الكود التالي عند فتح النموذج الفرعي If Me.OrderBy = "التاريخ" Then Me.OrderBy = "التاريخ" Else Me.OrderBy = "التاريخ" End If Me.OrderByOn = True وهذا مثال فرز السجلات للفورم.accdb مع تمنياتي لك بالنجاح

السلام عليكم تفضل اخي مع بعض التعديل طبعا استفدت من الموقع اعلاه او بالحقيقة نسخت الاكواد ds.accdb مع تمنياتي لك بالموفقية والنجاح

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

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

تفضل اخي لون خلية.accdb

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

هذه فكرة اخرى EN.accdb

صديقي العزيز بعد اذن اخي ابو عارف الحقل الجديد في الجدول absent اجعله محسوب بدالة IIF كما في التالي IIf([shaher]="سبتمبر",1,IIf([shaher]="اكتوبر",2,IIf([shaher]="نوفمبر",3,IIf([shaher]="ديسمبر",4,IIf([shaher] ="يناير",5,IIf([shaher]="فبراير",6,IIf([shaher]="مارس",7,IIf([shaher]="ابريل",8,IIf([shaher]="مايو",9,Null))))))))) كما في المرفق الغياب_(1).accdb مع تمنياتي لك بالموفقية

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

تفضل اخي AA2010.accdb

السلام عليكم هل هذا هو المطلوب اختر اسم الدولة فيتغير الى اللون الاحمر filter vba 2.accdb

اسف هذا هو التعديل الصحيح توزيع الاسم.accdb

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

صديقي العزيز تعقيب اولاً : التقرير يستمد من الجدول فأذا اردت طباعة السجل التالي ارجع الى النموذج واختر التالي تعقيب ثانياً : ترتيب التقرير تركته لك لاني عملته على عجاله (اي كلام) لكوني كنت في العمل رتب التقرير كما يحلو لك تعقب ثالثاً : اذا اردت طباعة كل السجلات انسخ نفس الاستعلام وازل الشرط منه ( كما فعلت انت قبل التعديل ) ثم صمم عليه تقرير لتظهر لك كافة السجلات مع تمنياتي لك بالموفقية

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

صباح الخير صديقي تفضل الغياب.accdb

السلام عليكم اعتقد هذا جزء من المطلوب سيارات.accdb

السلام عليكم صديقي العزيز ضع هذا الكود في اي حدث مثلا في الحالي او قبل التحديث او عند التحميل ... سوف يذهب بك الى اخر سجل في النموذج DoCmd.GoToRecord , , acLast نصيحة 1 - ان تترك هذا (modules) لانه بطيئ جدا لعدة اسباب يطول شرحها هنا واستعن بالمرفق السابق فهو افضل بكثير 2- الغي المفتاح الاساسي من الجدول اذا احببت ان تستمر في هذا (modules) مع تمنياتي لك بالتوفيق

السلام عليكم صديقي العزيز احب ان اوضح لك الفكرة (ماذا كتب في داخل الكود البرمجي) انشاء ملف (FOLDER) في المسار الذي تقع به القاعدة و سمي هذا الملف (Image) اضف الى هذا الملف الصورة (طبعا التي تختارها انت) في هذا المسار فاذا قمت حظرتك بنقل الملف (Image) الى مسار اخر فانه لا يجد هذا المسار . واذا اضفت صورة سوف يقوم بشاء ملف جديد وطبعا سوف يكون فارغ ولا تظهر الصور القديمة وكذلك الحال مع نقل القاعدة من مكان الى اخر . ارجو ان تكون قد وضحت لك الفكرة اذن ما هو الحل اولا يجب ان تفهم انه لا يوجد امكانية في الاكسس حول عملية البحث وتصحيح المسار ( بمعنى كلما انقل القاعدة الى صحح المسار للصور حيث يوجد الملف (Image) ) لانه ثابت في الكود البرمجي افضل حل هو فصل المسار عن مكان القاعدة كأن يكون (D) او (G) او ما تشاء وهنا لا تختلف الفكرة عن المثال الرسل سابقا بمعنى انشاء ملف في (D) وسميه (Image) وهنا كلما تنقل القاعده سوف يذهب الى (D) والى الملف (Image) ارجو ان تكون قد اتضحت لك الفكرة مع تمنياتي لك بالتوفيق

السلام عليكم ارجو ان يساعدك هذا المرفق على العموم كود حفظ مسار الصورة Me.Image10.Picture = Trim(.selecteditems(1)) Me.PicFile = Trim(.selecteditems(1)) صوره.accdb

السلام عليكم صديقي العزيز ارسل مرفق (مثال) للتعديل .. افضل

مش مشكله ابداً ولا حاجه ان شاء الله بس افرغ من عملي سوف اعدل لمرفق مع وافر تحياتي

تفضل اخي نموذجك بعد التعديل TEST.mdb