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

شكراً لك أ/ خالد على ردك الكريم على سؤالي الاجابة بسيطه لاكن ليس كل شخص يعرفها

من خلال خصائص زر الامر

عليك السلام ورحمة الله وبركاته تفضل هذا لعله يفي الغرض البطاقة المدرسية للتعديل.xlsm

وعليكم السلام ورحمه الله وبركاته على ما فهمت شوف الصوره فى خصائص الحقل قناع الادخال 9/99/999/99/999 والله اعلى واعلم تقبل تحياتى طبتم واهتديتم

السلام عليكم تعديل آخر بالتنسيقات مع إمكانية طباعة حسب الصفة (خارجي / نصف داخلي) بعد الاختيار من القائمة المنسدلة في الخلية BG1... بن علية حاجي البطاقة المدرسية للتعديل_1.xlsm

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

السلام عليكم اولا من رخصة استاذنا العزيز جعفر ارجو السماح بالمشاركة ثانيا تفضل اخي العزيز ارجو ان يكون طلبك Retirment.rar

السلام عليكم ورحمة الله وبركاته شيت كنترول للمرحلة الابتدائية من الأول وحتى السادس بتعديل درجات التربية الرياضية والصفين الأول والثاني نظام جديد ... رجاءً قراء التعليمات قبل العمل علي الكنترول رابط الشيت حمل من هنا

بارك الله فيك وفي استاذنا الفاضل نعم هو المطلوب الله يبارك فيك كنت احط الكود في النموذج الرئيسي ههههههه تحياتي اليكم يالحبايب

شكرا لك أخ أحمد الفلاحجى ولكن أنا اردت اضافة الصنف بمجرد كتابة اسم الصنف فقط و البرنامج هو يعطي رقم id من عنده استطعت عملها عن طريق INSERT INTO Categories ( IdCategorie, LibCategorie ) SELECT DCount("[IdCategorie]","[Categories]")+1 AS id, [Formulaires]![f_nouvelcategorie]![txtcategorie] AS cat; ولكن أرد طرق أخر لعملها وشكرا جزيلا لك

وعليكم السلام اتفضل اخى هل هذا طلبك testInsert.accdb

شكرا اخي احمد على المساعدة 🙂 اخي صلاح : عندي هذه المكتبة . لما يشتغل البرنامج على الاوفيس 2003 اولا ، تلقى ان الرقم الموجود عندك هو 12 وهو للاوفيس 2003 (وياريت تعمل صورة منه لنا) ، ولكن لما تشغله على الاكسس 2007 ، فيصير رقمه 13 (وياريت تعمل صورة منه لنا) ، ولما تشغله على الاوفيس 2003 مرة اخرى ، سترى ان هناك كلمة MISSING (وياريت تعمل صورة منه لنا) ، فقم بإلغاء الاختيار ، واختار الرقم 12 : Microsoft Access 12.0 Object Library ، احفظ البرنامج ن اخرج منه ، ثم شغله مرة ثانية ، وشوف اذا اشتغل. جعفر

السلام عليكم أو هذا الحل باستعمال الدوال TEXT و MATCH و COUNTIF دون جدول مساعد... بن علية حاجي If formula (2).xlsx

هو المطلوب جزيت خيرا

السلام عليكم استعملت الدالتين VLOOKUP و COUNTIF، بدلا من الدالة IF، بمعية جدول مساعد مع توحيد العبارات مع جدول البيانات (العمود I) والجدول المساعد... ملاحظة: بعد وصول عدد القيم في كل "رقم التسلسلي" Serial Number إلى 1000 قيمة تتداخل الأرقام مثلا لو وصلنا في المستند المحاسبي "قيد يومية" -الذي يبدأ من 01000- إلى الرقم 01999 ثم تكرر مرة أخرى فيصبح تسلسله 02000 (الذي رقم بداية المستند المحاسبي "قبض بنكي") فيحدث التداخل بين المستندين... بن علية حاجي If formula (1).xlsx

الشكر لله سبحانه اخي الكريم

استاذ @jjafferr محبوب الجماهير عندما يتم ذكرك في موضوع فلا اعتراض ولا تعقيب ولا تنبيه ولا ترقيع .. فأنت المعلم الأول بلا منازع .. تحية لك اينما كنت

ولأن الاسم موجود في النموذج الرئيسي ، فيصبح الكود: =DLookUp("[lastofsale_price]","last_sale_price","[type]='" & [Type] & "' And [name]='" & Forms!sale!name & "'") جعفر

لا طبعا ، لا اتفق معاك 🙂 يا اعمل الشغل صح ، ويا اسهر الليل واخليه يشتغل صح 🙂 لوسمحت ، وقبل ان ترفض رأيي ، انزل القاعدة التالية https://www.officena.net/ib/applications/core/interface/file/attachment.php?id=102103 واعمل اي تغيير مثل طلبك ، وجرب طلبك 🙂 قاعدة البيانات اعلاه تحتوي على 189,450 سجل (يعني بعد حوالي 5 سنوات قد تصل عدد سجلاتك الى هذا العدد) ، وشوف الوقت اللي يأخذه البرنامج منك لتنفيذ Loops اعلاه ، يا اخي ، ولا يهمك ، بعد ان تحسب الوقت اعلاه ، احذف نصف السجلات اعلاه ، واحسب الوقت ، طيب ولا تزعل ، الزبون ما بتوصل سجلاته الى 100000 بعد 5 سنوات ، كذلك احذف النصف وجرب على 50000 سجل 🙂 قصدي من هذا المثال ، انه لا يمكن لزبون ان يقبل هذا التأخير في برنامجه ، وبعد كل اغلاق !! جعفر

كل الشكر استاذ حسين واعتذر عن عدم ارفاق ملف

كان عليك ارفاق ملف للعمل عليه جرب دوبل كليك في النطاق الملون بالاصفر test.xlsm

اها اذن المعيار هو: 1. المادة 2. للعميل الفلاني فيصبح الكود A = dlookup("[LastOfsale_Price]","last_sale_price","Type='" & me.Type & "' And [الاسم] = '" & me.الاسم & "'") جعفر

عفوا اخي نبراس ، قصدك الاستاذ Sandanet في هذا الموضوع 🙂 جعفر

اخي العزيز هذا الموضوع تم طرحة سابقا من قبلي والحمد لله توصلنا الى نتيجة جيدة بفضل الاساتذة الاعزاء وبالاخص الاخ جعفر يوجد ملفان الاول وهو start ويعتبر القاعدة الاساسية والثاني هو الملف الذي سوف يقوم بتمرير كلمة المرور الى القاعدة الاساسية وبالتالي سوف تحافظ على ملفاتك شرح مبسط اولا اجلي القاعدة الاساسية تبعك الى الملف المحمل ثانيا قوم بوضع كلمة مرور على القاعدة الاساسية تبعك ومن ثم قم بتحويلها الى صيغة accde ثالثا افتح الملف startdatabase وادخل على النموذج وقم بتغير اسم الملف وكلمة المرور التي تم وضعها سابقا من قبل الاخ جعفر بعد الانتهاء تأكد من العمل صحيح ومن ثمة قم بتحويل الملف الاخر الى accde Free.rar

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

نعم ، حدث تحديث الحقل للسجل الذي يعمل عليه فقط ، الاستعلام اسرع ، لا علاقة بالنموذج في ادخال/تحديث البيانات ، فانت في الكود لا تشير الى اي شيء في النموذج ، وانما عملك مباشرة مع الجدول/الاستعلام ، نعم ، Requery ، سيجعل النموذج يأخذ احدث بيانات الجدول ، ويقوم بأي عمليات حسابية اخرى وقت فتح النموذج ، وإلا ، فلا فائدة منه ، الذهاب الى آخر سجل ثم العودة لأول سجل ، هو فقط لكود Recordset وليس للنموذج ، مافي فرق بين الجدول والاستعلام ، ولكن هذا كله له علاقة في السجل نفسه فقط ، فيجب ان نحدث هذه الحقول في هذا السجل ، ولن يأخذ حدث التحديث هذا اكثر من جزء من الثانية لتحديث هذه الحقول الاربعة ، ثم السؤال الآخر هو ، لماذا Loop مرتين ، فيمكنك دمجهما في Loop واحد 🙂 جعفر

السلام عليكم قمت ببعض التعديلات على الملف (تنسيقات + معادلات + إضافة ورقة خاصة بمعلومات المؤسسة)... كود الطباعة يعمل جيدا... بن علية حاجي البطاقة المدرسية للتعديل.xlsm

بعد أذن اخي احمد بدره الاخ السيد المصري شاهد المرفق Test_1.rar

اشكرك اخي عبد اللطيف ولكن اين توضع الدالة في المرفق مع احترامي

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

بالنسبة للسجل 12 هذا كان طلبك في الموضوع بمجرد دخول الساعة 12 ظهر يبدء يحسب يوم جديد وبالتالي هو اخذ المعدة قبل الساعة 12 مثل نظام الفنادق بالنسبة للسجل 13 شوف اخي محمد مستحيل شخص يستاجر معد الساعة 12.05 ظهرا يوم 19/12ويعيدها الساعة الواحدة صباحا في نفس لانه بيكون دخول يوم جديد اي ان التاريخ يفترض يكون الساعة الواحدة يوم 20/12 هذا الى حصل خطأ في ادخل التاريخ مستحيل يكون تاريخ الاعادة اصغر من تاريخ الاعارة وللتغلب على المشكلة ممكن نلغي موضوع ادخال الوقت ونخليه ياخذ وقت الاعارة والاعادة من خلال الاعارة وتاريخ الاعادة

ووالديك بالرحمة ان شاء الله 🙂 جعفر

أولا أشكرك استاذي الغالي @jjafferr بارك الله فيك على سرعة الاستجابة ...... رحم الله والديك

تفضل 🙂 تعديل في الكود اعلاه ، فيصبح: Select qry_1.A1, qry_1.B1, qry_1.C1 from qry_1 UNION ALL Select qry_2.iName, "" , qry_2.iSection from qry_2 ORDER BY qry_1.A1 . . وطبعا ممكن يكون احد الاستعلامين او كلاهما : استعلام مجاميع ، استعلام جدولي ... جعفر 1156.Union_qry.accdb.zip

ممكن استاذي مثال بسيط لما ذكرت ... اكون لك من الشاكرين

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

وعليكم السلام 🙂 هذا ابسط استعلام 🙂 يكون عندك استعلامين ، كل واحد يعمل بطريقته وبسجلاته ، الشرط الوحيد هو ان يكون عدد الحقول نفسه لجميع الاستعلامات اللي تريد توحدها 🙂 ودمج الاستعلامات يكون عن طريق الامر Union ، والذي به لا تحصل على سجلات متكررة ، بينما الامر Union All ، يعطيك كل السجلات. مثال: الاستعلام qry_1 فيه الحقول A1 و B1 و C1 ، بينما الاستعلام qry_2 فيه الحقلين iNames (وبه بيانات نفس اللي في الحقل A1) و iSections (وبه بيانات نفس اللي في الحقل C1) يعني الحقل B1 لا يوجد له حقل مشابه في qry_2 : استعلام التوحيد يصبح: Select qry_1.A1, qry_2.B1, qry_1.C1 from qry_1 union all Select qry_2.iName, "" , qry_2.iSection from qry_2 Order By qry_2.iName جعفر

مرحبا ابو اشرف استعلام التوحيد يجمع بيانات جدولين كانهم جدول واحد لحقل واحد او عدة حقول بشرط ان انها تكون من نفس النوع SELECT * FROM tbl1 UNION ALL SELECT * FROM tbl2; هنا صيغة الاستعلام لكافة حقول الجدولين مع اضهار البيانات المكررة SELECT txt1 FROM tbl1 UNION ALL SELECT txt1 FROM tbl2; هنا لحقل واحد لكل جدول مع التكرار SELECT * FROM tbl1 UNION SELECT * FROM tbl2; هنا بدون تكرار استعلام توحيد.accdb اعتذر استاذي ابو خليل شاهدت ردك بعد انزال الرد

تفضل من هنا

وعليكم السلام ورحمة الله وبركاته تفضل اخي الكريم Dim db As DAO.Database Set db = CurrentDb Dim tField As DAO.TableDef Dim Fld As DAO.Field Set tField = db.TableDefs("Table1") Set Fld = tField.CreateField("Check1", dbBoolean) tField.Fields.Append Fld Fld.Properties.Append Fld.CreateProperty("DisplayControl", dbInteger, CInt(acCheckBox)) تحياتي

تفضل اخي كود ترحيل الفاتورة.xlsm

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

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

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

تفضل أخي الكريم عند الضغط على زر تسديد الأفساط يفتح التنبيه ثم يفتح نموذج به بيانات الأقساط التي بقي على موعد استحقاقها 7 أيام أو مضى موعد استحقاقها A_معرض روز التقسيط1.rar

المثال علي ما أذكر للأخ هاني و فيه يتم ادخال و تعديل كلمة السر Passwordhany.zip