ابو عارف

تفضل document1.accdb

وعليكم السلام تفضل

السلام عليكم و رحمة الله و بركاته اخي الكريم ترتيب تاريخ صحيح كما قال الاستاذ kha9009lid حاليا الا اذا كتبت تاريخ اقدم مما تم كتابته مسبقا مثلا في سجل الاول كتبت 12/12/2019 و في سجل الثاني كتبت 12/11/2018 لهذا جعلت مصدر النموذج منشئ استعلام و بنسبة بحث برقم تليفون اليك التعديل اذا كتبت اسم او جزء من الاسم يظهر نتائج على حسب الاسم و اذا كتبت رقم تليفون في نفس خانة يرجع نتايج على حسب رقم تلفون بتوفيق Database18.rar

وعليكم السلام و رحمة الله و بركاته تفضل اخي Database8.rar

السلام عليكم اخي اليك التعديل حسب فكرتي بشرط القيد يساوي منقول لان لا يوجد خيار ناجح حلقة تكرارية.rar

السلام عليكم و رحمة الله و بركاته هذا صحيح ولكن يبدو استاذ جعفر لم ينتبه الى تنسيق حقل درجات (نص) في جدول، يجب تغيره الى رقم مثلا لو مؤظف حصل على 100 درجه اكيد سيختفي من من حصل على 90 أو اكثر في عامين متتاليين لان 100 في تنسيق نص أقل من 90 و بنسبة طلب الاخير اليك المثال في المرفق حسب فهمي 1091.1.accdb

السلام عليكم و رحمة الله و بركاته اليك المثال ب اضافة تنقل بين عناصر القائمة ب ازرار الاسهم test.accdb من اجل تحديث مصدر الصف الكومبو ، مع كتابة كل الحرف ينتقل التركيز الى Txt ثم تحدث مصدر صف القائمة ثم ينتقل الي القائمة مرة اخرى و هكذا لان لايمكن تحديث مصدر الصف و داخله تركيز بتوفيق،،،

السلام عليكم و رحمة الله تفضل اخي علي ان شاء الله يكون حسب المطلوب يمكن تعديل علبه اخفاء "يشمل: 0 " في حالة عدم وجود سجلات مكررة H_R.zip

عليكم السلام استاذ علي،حسب معوماتي امامك خيارين لتغلب على تلك المشكلة 1: فتح جدول TBL1 في وضع تصميم ثم تغير خاصية مفهرس لـ ID الى نعم تكرار مقبول او الى لا. 2: نغير تنسيق حقل ID في جدول TBL1 الى ترقيم تلقائي ثم تغير متغير UpdtQry الى: UpdtQry = "INSERT INTO TBL1(firstname,[date],tell) SELECT TBL.firstname,TBL.[date],TBL.tell FROM TBL;" بتوفيق،

نعم ممكن ان شاء الله تفضل Random.accdb

و عليكم السلام تفضل اليك التعديل Random.accdb

المشكلة كانت مي ماكرو للزر Z1 من قائمة وضع بيانات كانت قيمة مختارة (اضافة) حين عدم رغبة مستخدم فتح نموذج للاضافة جديدة فقط يجب تركها فارغا و كذالك الكود: DoCmd.OpenForm "09_Marry_T" يفتح نموذج بشكل عادي او جعله فتح نموذج بشكل خاص كما كان في الماكرو:

ممكن تفضل 01 (1).rar

وعليكم السلام و رحمة الله و بركاته اخي عبدالله غير كود حدث عند تحميل النموذج على: Dim Pt As String Pt = Dir(SelectImage(1, jpg)) Me.Picture = IIf(Pt = "", "", SelectImage(1, jpg)) بتوفيق،،،

اخي saladen تم تعديل المثال بالكود و حسب ما فهمت من السؤال طلب المساعدة.accdb

بعد اذن الاخي و الاستاذ فارس بني هلال عدلت مثال على معايير تالي عند فراغ حقل picFile2 او سجل جديد ، لا يظهر شئ عند وجود مسار في حقل picFile2 و الصورة محذوفة او تغير اسم الصورة ، يظهر صورة (صورة غير موجودة) و غير ذالك يظهر الصورة كما في مسار حقل picFile2 Photo.zip

سيفتح الفورم حسب المطلوب (عرض + اضافة)

وعليكم السلام الحمد لله على حصولك الحل

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

تفضل اخي تم تعديل على الكود من البداية حتى يتعامل مع قيم الفارغة اختر تنسيق ملف من قائمة منسدلة ثم اضغط على الزر و تابع مكان حفظ الملف ولكن قبل كل شيء قم باضافة مكتبة: هذا قي اوفيس 2010 abx.accdb

شكر لله حاضر ، على قدر مستطاع ان شاء الله تقصد مكان حفظ الملف مكان غير مسار قاعدة ؟

نعم ممكن ان شاء الله اليك المثال ، بعد ضغط على زر الثالث ستجد ملف اكسل او csv اذا حبيت بتنسق آخر ، غير csv الى xls او txt او doc في سطر التالي Outfile = CurrentProject.Path & "\LostRecords.csv" abx.accdb

الحمد لله على نجاح تجربة و بارك الله فيك ايضا. للاستفسار ، هل عرفت اين كانت مشكلة !! على ما اعتقد سبب المشكله لا علاقة لها باصدارات اوفيس لان الملف اساسا بتنسيق 2007 المشكلة ربما كانت في تسميات ازرار الجديدة ، و سبب الحل هو مع اعادة تنصيب اوفيس 2007 ربما اخترت لغة نظام المحلي System local عربيه و حلت المشكلة ، حبذا لو جربت المثال السابق مرة اخرى على اوفيس 2007 دون نسخ اكواد. و لك مني اجمل تحيات.

حسب تجربتي عمود واحد بستوعب على حدود خمسة ملايين سجل تقريبا نظرا لعدد تسلسلات مفقودة بالملايين عدلت على المثال تسلسلات مفقودة مسلسلة من الى و المنفردة نفس رقم المفقود اضغط على زر "احسب" فقط abx.accdb

و جزاك بمثله تفضل اخي TEST_1.mdb