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

وهذي مساهمتي في الموضوع التقارير والبيانات.accdb التقارير والبيانات.zip

السلام عليكم ورحمة الله تم التعديل على ملف السجل الأصلي بفصل وقت الدخول ووقت الخروج (كلٌّ في صف) لكل عامل... أرجو أن تفي الغرض المطلوب... شيت 1.XLS

بسم الله الرحمن الرحيم السلام عليكم ورحمة الله وبركاته.. اقدم لكم اداة من برمجتي المتواضعة لتحويل اكواد الـ SQL الى VBA قبل كل شي، الاداة حصراً للمبرمجين الذين يستخدمون الكود في الادراج والتعديل والحذف وليس للأشخاص الذين يستخدمون الواجهة الرسومية للأكسس الخالية من الكود ماهي فائدة الأداة ولماذا استخدمها؟ حسناً، لو كان لدينا جدول اسمة tbl_movementes يقوم بتسجيل جميع الحركات التي تحدث ( اضافة , تعديل , حذف ) وهذا الجدول احتاجه في كثير من النماذج، فهل من المعقول ان اقوم بكتابة عبارة INSERT INTO في كل نموذج ؟ اكيد لا، سأقوم بكتابة Sub واقوم بإستدعاءه كل مرة اريد ان اضيف بها بيانات الى الجدول واختصاراً للوقت الطويل والأخطاء التي ربما ستحدث اثناء عملية التحويل، قمت بكتابة اداة تقوم بهذا الغرض الاداة وضيفتها فقط ( Insert , Update ) صورة الاداة: لنطبق على عملية اضافة بيانات جديد: 1- قم بفتح 2- ثم قم بأختيار الجدول الذي تريده، وقم بإدراج جميع الحقول، كما في الصورة 3- من النافذة العليا اختر النافذة تصميم وقم بتعديل نوع الاستعلام الى استعلام إلحاق وثم بإختيار نفس الجدول لكي يقوم بألحاق البيانات به. الآن لنرى النتيجة 3- الان قم بعرض اكواد الـ SQL 4- قم بنسخ جميع الاكواد كما في الصورة الاتية 5- الان قم بفتح الاداة، واختر النوع Insert، ثم الصق اكواد الـ SQL في مربع النص SQL 6- قبل عملية التحويل قم بإلغاء الأعمدة التي لا ترغب بها من القائمة على اليمين ( Column Remove ) مثلا سأقوم بألغاء العمود IsDeleted وذلك بالضغط على اسم العمود رسالة تخبرك بتأكيد عملية حذف العمود 7- اضغط على الزر Convert 8- تم تحويل الكود ونسخه، الان قم بلصقه في الأكسس واستخدمه الاستخدام النتيجة، تم ادراج البيانات بالجدول لنطبق على عملية تعديل البيانات: نفس الخطوات القديمة فقط من الاداة اختر نوع الاستعلام Update من المعروف ان عملية تعديل البيانات تتطلب معيار للتعديل WHERE COLUMN NAME = Number لذلك عندما نقوم بإنشاء الاستعلام نقوم بوضع عمود المعيار اخر عمود في الاستعلام هكذا من لديه ملاحظات أو اضافات تعطى للبرمج حصراً أحرم تعديل البرنامج بأحد ادوات الهندسة العكسية او نسبه لأي شخص تمت البرمجة حصرياً لمنتدى أوفسينا، اهداء الى معلمي العزيز @jjafferr تحياتي للجميع. SQL-VBA.rar

وعليكم السلام ورحمة الله وبركاته بالاضافة الى اخونا @الحلبي وله الشكر استخدم الكود التالي If Me.NewRecord Then Me.odb_Date = Date End If بدلاً من Me.odb_Date = Date If Me.odb_Date <> Date Then MsgBox "غير مقبول" End If odbBalanceAmir.rar تحياتي

تفضل اخر الكريم التقارير والبيانات.rar تحياتي

هل هذا ما تريده odbBalanceAmir.rar

اهلاً عزيزي.. انا لم اقل انه بأمكانك الحاق البيانات بجدول ثاني.. كنت اتكلم عن ادراج البيانات لكل جدول على حدة على شكل Sub لتقوم بإستدعاءه

تفضل التعديل الترقيات - بعد التعديل.zip

السلام عليكم ورحمة الله ما تطلبه هنا ليس بالأمر الهين إلا إذا كانت البيانات عمودية لاستعمال خاصية "التبديل" "Convert" أو باستعمال كود VBA... قمت في الملف المرفق ببعض التعديلات على المعادلات (طويلة قليلا) حتى تجلب وقتي الدخول والخروج في ملفك (بالنسبة للخلايا التي تحوي أكثر من توقيتين فإن المعادلات تجلب التوقيت الأول -وقت الدخول- والتوقيت الأخير -وقت خروج-)... وليس لي فكرة أخرى. شيت 1.xlsx

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

عليكم السلام استاذ abouelhassan لاتوجد اي مشكلة عندك, الفرق هو انه عملنا ترتيب تصاعدي للجدول القديم اعتمادا على رقم الصفحة وهذا غير موجود في الجدول الجديد 22f22-1.rar

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

تم تغيير السطر التالي فقط For n=6 to 55 ولكن المشكلة هو نسخت الكود من الاكسل المعدل ( الذي عملته انت ونسميه A مثلا) ووضعته في اكسل ثاني بنفس شكل الاكسل A بالضبط ولكن اكتشفت انه يرسل نص الرسالة الذي في الاكسل A مدري ليش؟ اتمنى فهمت علي

تفضل أخى الفاضل ... أخر تحديث للبرنامج يونيو 2021 930566647_.rar

امين يارب ... واياكم

يمكنك استعمال المعادلة التالية في الخلية I6 =IF(B6<>"",TEXT(B6,"mmmm"),"") ويمكنك سحبها لأسفل بالتوفيق

عند نقل الكود للملف اكسل اخر نفس الاكسل المعدل اعلاه ، اكتشفت انه يأخذ نص الرسالة للاكسل المعدل وانا لا اريد النصوص في الاكسل المعدل بل اريد نصوص الملف الاكسل الاخر .. ولكن يأخذ نصوص المعدل ,, فما الحل؟

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

إن كان فهمي للمطلوب صحيحا جرب هذه المعادلة في الخلية C5 =SUMIFS($I$3:$I$5,$H$3:$H$5,B5,$G$3:$G$5,$B$2)+N3-I6 بالتوفيق

نسبة نجاح تحويل ملفات pdf إلى اللغة العربية لا تتجاوز 60 بالمائة ويمكنك استعمال التدقيق الاملائي مع التصحيح اليدوي وربنا يعينك

أخي الكريم هذه آلية ميزة الضبط justify تقوم بإضافة مسافات بين الكلمات بحيث تجعل نهايات السطور واحدة بدلا من انتهاء سطر عند عمود كذا والآخر بعده أو قبله. ولحذف هذه المسافات قم بإلغاء تشغيل ميزة الضبط justify

تفضل التعديل الترقيات.rar

تفضل التعديل اخي الكريم سيتم ترقية من تم تحديده فقط الترقيات.zip

السلام عليكم أخي ابا زاهر تفضل كافة الطلبات اصبحت جاهزة نسخ احتياطي - تصفية النسخ الاحتياطية ( بين اعادة التسمية و الحذف ) - و اخيراً ... الاسترداد و التنقل بين النسخ أو القاعدة الاصلية دعوة بظهر الغيب ، تنفع أخاك .... و الله من وراء القصد .... .... NA_B&R Final.rar و ندعو لابنك ان يفرج الله عنك و عنه اللهم رب الناس، أذهب الباس، واشفه وأنت الشافي؛ لا شفاء إلا شفاؤك، شفاء لا يغادر سقماً اللهم رب الناس، أذهب الباس، واشفه وأنت الشافي؛ لا شفاء إلا شفاؤك، شفاء لا يغادر سقماً اللهم رب الناس، أذهب الباس، واشفه وأنت الشافي؛ لا شفاء إلا شفاؤك، شفاء لا يغادر سقماً

السلام عليكم و رحمة الله تعالى و بركاته أخي الأستاذ محمد صالح و جزاكم الله كل الخير على هذه المعلومة القيمة و لكن أنا كنت أود أن أقول عندما لا يكون تاريخ مكتوب في الخلية b6 يعطيني اسم الشهر للتاريخ المكتوب في الخلية السابقة b5 و في حالة عدم وجود التاريخ في كلتا الخليتين يعطيني فراغ و ليس يناير . و لكن مع المعلومة التي أعطيتها لي و جدت الحل بإذن الله تعالى الله يعطيكم العافية و أدخلكم الله الجنة إن شاء الله . =IF(B6<>"",TEXT(B6,"mmmm"),IF(B5<>"",TEXT(B5,"mmmm"),"")