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

السلام عليكم ورحمة الله تعالى وبركاته أما بعد ... استكمالاً لفكرة سابقة قدمها الاستاذ الخبير @SEMO.Pa3x "حسنين حرزالدين" على الرابط التالي جعل قاعدة البيانات تعمل بوجود الانترنت ( تفعيل عن بعد ) ومن ثم فكرة الاستاذ الخبير @Elsayed Bn Gemy "السيد جمال السيد" على الرابط التالي التحكم فى قفل وفتح قاعدة البيانات اونلاين ومن ثم فكرة الاستاذ القدير @صالح حمادي على الرابط التالي https://www.officena.net/ib/topic/97710-التحكم-فى-قفل-وفتح-قاعدة-البيانات-اونلاين/?do=findComment&comment=596125 وبعدها اقترحت المساهمة بتطوير فكرة الاستاذ السيد والاستاذ صالح وبمساعدة الاساتذة الكبار وعلى رأسهم الاستاذ الجليل المبدع دائماً " الاستاذ جعفر " @jjafferr الذي له الفضل الكبير علي من بعد الله والاستاذ "Abu Elkaram" @AlwaZeeR مع الاخذ بالاعتبار ماتقدم به الاستاذ حسنين في هذه المشاركة https://www.officena.net/ib/topic/97710-التحكم-فى-قفل-وفتح-قاعدة-البيانات-اونلاين/?do=findComment&comment=596463 وبالقليل من المجهود الذاتي توصلت الى الطريقة التالية في تفعيل البرنامج عن طريق الانترنت وحماية البرنامج من النسخ وها أنا اضع ملف مقفل للتجربة قبل وضع الملفات مفتوحة . أتمنى من الاساتذة تجربته وابداء الملاحظات لتطوير البرنامج والشكر موصول لكل من ساهم ولو بالقليل في انجاح هذا البرنامج تحياتي https://www.dropbox.com/s/066y7hbt7zna87b/protection_trial.zip?dl=0 protection_trial.zip

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

آمل التوضيح أخي جمال أين تريد إضافة العملة في أي نموذج أو تقرير ؟ حياك الله أخي أحمد ما هي الرسالة التي تظهر لك حين العمل على اوفيس 2003 آمل إرسالها للنظر في نوع الرسالة أو الخطأ . اتبع الخطوات التالية كما هي موضحة في الصورة المتحركة : بالسلامة

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

السلام عليكم 🙂 شكرا على هذه التحفة ، المكملة لبقية التحف والتي ذكرت روابطها في او مشاركة 🙂 بهذه الطريقة ، فعلا اصبح المنتدى يزخر بما لذ وطاب 🙂 الآن اخونا @SEMO.Pa3x بيشتغل عليها ويدلو بدلوه فيها 🙂 جعفر

جرب الملف تحياتي جدول1.xlsx

كبداية المشروع لا يتعدى مبيعات مشتريات مخزون على عجالة اقترح جدول للموردين رقم المورد اسم المؤسسة المندوب ارقام الاتصال الخ اذا كان الدفع نقدي نكتفي بحقل المبلغ المدفوع في فاتورة شراء والا فنحتاج جدول للسداد جدول للاصناف رقم الصنف الصنف المورد الكمية سعر الشراء سعر البيع الوحدة (حبة او كرتون او .... الخ) وممكن عمله عن طريق جدولين للمشاريع الصغيرة جدول واحد يكفي جدول راس الفاتورة شراء رقم الفاتورة تاريخها المورد نوع الفاتورة نقدي او اجل السعر الاجمالي جدول اطراف شراء رقم الصنف الصنف المورد الكمية سعر الشراء الكمية المتبقية في المخزن قبل الشراء الحالي لغرض تحديث الكمية في جدول الاصناف بعد كل عملية شراء جدول راس الفاتورة بيع مشابهه لرقم 3 مع اضافة حقل لعدد الاصناف وحقل لعدد البنود جدول اطراف الفاتورة بيع مشابه ل 4 مع اضافة حقل للخصم حقل للضريبة حقل للكمية المتبقية من الصنف بعد البيع لغرض تحديث الكمية المتبقية في جدول الاصناف جدول موزعين جدول السداد للموزعين ( الكهربائيين ) الجداول من4 الى 6 يمكن اختصارها الى جدولين مع تحديد نوع الفاتورة شراء او بيع بالنسبة للموزعين ( الكهربائيين ) انت يهمك مشترياتهم منك وسدادهم للمبالغ وما اعتقد يهمك لمن يبيع هذة كبداية وفي الموقع العديد من الامثلة وفي المرفقات ملف نصي لا اعرف من كتبه جزاه الله كل خير يشرح انشاء مشروع مشابه ربما يفيدكم الاطلاع مع اعتذاري لكوني كتبت الرد بشكل سريع علما بانه في عملية انشاء قواعد البيانات ربما يستغرق وقت التخطيط والتحليل والاستشارة وقت يفوق المدة المطلوبة لبناء القاعدة Warehouses_and_Saling_system.rar

استاذي @kha9009lid لكونك خبير في الاكسس فهذا يعني انك ملم اكثر منا في شتى جوانب الاكسس لذلك مهما كان اهتمامك حول أي موضوع بالمننتدى فتفاعلك سيكون بالتأكيد مفيد لنا تحياتي لك

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

جرب الملف التالي TEST_3.xlsx

Application.DisplayAlerts = False ActiveWorkbook.Save ActiveWorkbook.Close Application.DisplayAlerts = True End Sub هاذا الموديل يقوم بإغلاق الملف وحفظة اذا لم ترغب بحفظة احذف السطر ActiveWorkbook.Save

جرب هذه الداله بعد اذن أ/ سليم Boook1.xlsx

جرب هذا الملف Boook1.xlsx

يمكن حلها بثلاث طرق خذف التحديث وسبق ان اشار استاذ @jjafferr لرقم التحديث حسب الاصدار جعل مصدر استعلام التحديث من استعلام اخر وليس من الجدول مباشرة عن طريق اضافة عبارة للاستعلام (SELECT * FROM اسم الجدول) او الانتظار لحين اصدار مايكروسوفت تحديث لحل المشكلة

السلام عليكم, هذا جدول يوضح لكم تنسيقات الارقام في الاكسس كالعملة وغيرها. ارجو ان يفيدكم. انواع التنسيقات "5" التنسيق لعدد موجب "-5" التنسيق لعدد سالب "0.5" التنسيق لعدد عشري "0" التنسيق الخاص بالصفر Zero-length string ("") 5 -5 0.5 0 0 5 -5 1 0 0.00 5.00 -5.00 0.50 0.00 #,##0 5 -5 1 0 $#,##0;($#,##0) $5 ($5) $1 $0 $#,##0.00;($#,##0.00) $5.00 ($5.00) $0.50 $0.00 0% 500% -500% 50% 0% 0.00% 500.00% -500.00% 50.00% 0.00% 0.00E+00 5.00E+00 -5.00E+00 5.00E-01 0.00E+00 0.00E-00 5.00E00 -5.00E00 5.00E-01 0.00E00 "$#,##0;;\Z\e\r\o" $5 $-5 $1 Zero بالتوفيق للجميع

هذه رسالة تنبيه لانك تقوم بتشغيل استعلام تحديث اضغط yes ليستمر بالعمل تحياتي

السلام عليكم الاخ الكريم / S0bhy بارك الله فيك الملف المرفق منك لم اتمكن من فك الضغط الخاص به ولكن اليك المرفق اظن به ما تريد ... شاهد المرفق واشعرنا بالنتائج ( قم بالوقوق علي الصف الذي تريد نسخه بمعادلاته وتنسيقاته في اي خليه فيه ثم اضغط علي الزر الاحمر الموجود بالملف ستظهر لك نافذة تتطلب منك عدد الصفوف المراد اضافتها قم بوضع العدد الذي تريد اضافته ثم اضغط موافق ستتم الاضافة ) تقبل خالص تحياتي نسخ واضافة الصفوف المطلوبه بمعادلاتها وتنسيقاته.xls

السلام عليكم الاخ الكريم / اياد م .. بارك الله فيك تقبل خالص تحياتي اليك نفس الملف الخاص بالقدير الصديق العزيز / يحياوي .. جزاه الله خيرا ولكن بتعديل بسيط ليعمل كما تريد ( اغلاق الملف فقط بعد المدة التي تحددها في بنفسك في الكود من خمول الملف ) واليك الملف التالي قم بتجربته واخبارنا بالنتائج تقبل خالص تحياتي غلف الملف بعد مدة من ترك ملف غير نشط.xls

وعليكم السلام ورحمة الله وبركاته استخدم الوحدة النمطية التالية Function strHijri(dtGregorian As Date) As String ' returns a date in Hijri format for a given western date VBA.Calendar = vbCalHijri strHijri = Day(dtGregorian) & "/" _ & Month(dtGregorian) & "/" _ & Year(dtGregorian) VBA.Calendar = vbCalGreg End Function ثم استخدم التالي في اي مكان في البرنامج =strHijri([اسم حقل التاريخ]) TEST - Copy.accdb تحياتي

وهذا حل ايضا Prog444.rar

شكرا لك 🙂 وكله تمام 🙂 جعفر

اخي الكريم اريد ان اضيف اكثر من عمله مثلا دولار وريال ؟ لكن لا اعرف من اين اضيف العملات ممكن افاده باقرب وقت وفقك الله

بالتمام هل يتم التحقق من التاريخ من عندك ام من على جهازى قمت بتغيير الجهاز الى 26 /11/2019 وفتح برضه ؟؟؟

جرب الملف عسى ان يكون طلبك عمل كارنيه لكل طالب.rar

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

السلام عليكم ورحمة الله وبركاته يعطيك الف عافية أستاذ sandanet عمل جميل عملت على جميع النسخ لدي 2007/2010/2016/365 32 بت النسخة غير مفعلة

فرز تنازلي Prog3334.mdb

أنظر أخي .... لم افعل النسخة ظهرت هذه ؟؟؟؟

جزاك الله خيرا استاذ الفاضل سلمت يداك تحياتي

السلام عليكم 🙂 شكرا اخي كاسر ، فلقد تذكرت اني مررت بمثل هذه المشكلة ، ودخت الى ان عرفت المشكلة 🙂 لما تستخدم الاكسس 2007 فما فوق ، فالاكسس يحمي الكمبيوتر ولا يسمح لك ان تفتح اي برنامج ، اذا اردت فتح البرنامج في مجلد "غير موثوق به" ، لذا ، اذا فتحت البرنامج في مجلد غير موثوق به ، سيظهر لك هذا الخط الاصفر ، وبه زر "تمكين المحتوى" : . لذا عليك بضغط الزر ، وسيعمل الكود في برنامجك بطريقة عادية. ولكن ، وحتى لا تحصل على هذه الرسائل دائما ، يجب عليك ان تعمل مجلد/مجلدات موثوق بها : ويجب ان تتأكد من انك سمحت للاكسس ان يعطيك الخط الاصفر : بعد هذا ، المفروض ان برنامجك يشتغل عدل 🙂 ولكن ، هناك مشكلة يقوم بها الكثير من المبرمجين ، وهذه المشكلة في جعل النموذج: منبثق = نعم ، شكلي او مشروط = نعم ، ويجعل النموذج ينفتح على حجم الشاشة (docmd.maximize) : . فلما ينفتح البرنامج ، سيكون الخط الاصفر خلف النموذج ، فلن تراه ، وعليه لن يعمل البرنامج !! جعفر

السلام عليكم -فقط يمكنك استخدام هذه المعادلة =IF(B1*11.5%>316.25,316.25,B1*11.5%)

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

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

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

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

جرب المرفق TEST - Copy.accdb

أخي الكريم سأجيبك على سؤالك الخاص بموضوع المشاركة فقط باقي الأسئله ممكن تفتح موضوع لكل سؤال بخصوص صيغة الملف accdb هذه الصيغة يكون فيها البرنامج او قاعدة البيانات مفتوحة المصدر أي أنك تستطيع التعديل على جميع الكائنات نماذج تقارير اكواد vba أما صيغة ملف accde هذه الصيغة يكون فيها البرنامج او قاعدة البيانات مغلقة ولا يمكنك التعديل على النماذج التقارير اكواد vba ويمكنك في كلا الصيغتين التعديل والاطلاع على الجداول الاستعلامات وحدات ماكرو الجداول يمكنك اخفائها ( لا أنصح به ) يسبب مشاكل وبالخصوص الجداول المرتبطه ويمكنك تشفيرها ( لا أنصح به ) خوفا من تلف البيانات وفي أفضل الحالات سيكون عمل البرنامج بطيئ عندما تكثر السجلات بسبب معالجة تشفير وفك تشفير البيانات لذا تم عمل هذه الطريقة طريقتي في حماية قاعدة البيانات من تفعيل الشفت وحماية الاستعلامات و وحدات المايكرو وكلمة السر للقاعدة الخلفية ::بالتوفيق:: إذا كنت ترى هذه المشاركة مفيدة فلاتنسى التقييم

جزاك الله خيراً 🌺 سوف اقوم بالتجربة واوافيك بالنتيجة تحياتي

يختلف تصميم كل موقع في تسمية الحقول وهذا مثال لاستاذنا جعفر يشرح الطريقة تحياتي

للفرز التنازلي في حدث عند الفتح Reports("ReQ_Ameera2").GroupLevel(0).SortOrder = True

جرب هذا التقارير.mdb

اظن في هذه الحالة تحويل نتيجة حالة الشرط "الشرط المطلوب تحققه" اذا True يرجع القيمة 1 بدلا عن True واذا False يرجع القيمة 0 بدلا عن False واذا لم اصيب اتمنى اساتذه المعادلات التصويب

السلام عليكم ورحمة الله أحببت أن أشارك معكم في بخصوص هذا الموضوع بطريقة مختلفة بعض الشيء.. أرجو أن تجدوا فيها شيئا جديدا :: تنبيهات --- يتم رسم التقرير برمجيا.. --- عدد السجلات في رأس التقرير ثابتة من ناحية التصميم، متغيرة من ناحية البيانات.. - يتم تفيير البيانات في هذا المقطع وفقا لكميات البيانات.. - تستطيع كمية البيانات في هذا المقطع زيادة عدد صفحات التقرير تناسبا مع مصدر بيانات التقرير.ز - عدد السجلات المعروضة في هذا المقطع (10) سجلات لكل صفحة --- مصدر البيانات الأساسي هو الاستعلام (QRY_MATERIAL) --- يعاد بناء هذا الاستعلام كاستعلام (توحيد) بناءً على الفرضيتين التاليتين: -- التوحيد من أجل تكملة العشرة.. -- يتم إخفاء السجلات الوهمية بفحص معطيات الحقل الوهمي (TEST) - تزيد قيمة هذا الحقل كلما زادت الاستعلامات الوهمية (...،0،1،2) - البيانات الحقيقة تأخذ القيمة (0) --- إذا كانت بيانات مقطع الرأس أكبر من بيانات مصدر البيانات الأساسي -- يزيد عدد الاستعلامات الوهممية بواقع استعلام لكل (10) سجلات لزيادة عدد الصفحات -- يتم احتساب عدد الاستعلامات وتضمينها برمجيا بواسطة الإجراء (UNION_SQL) أرجو ألا تبخلوا بالنقد والتعليق😁 MATRIX REPORT.accdb

الله يعطيك العافية استاذ حسنين اسمح لى انزل مثال بسيط لا ستخدامها في منشئ التعبير في المثال المرفق حددنا طبيعة عمل الموظف بالاختيار مابين 1 الى 5 ch.accdb

عذرا استاذى انا طالب عالم ويحق لى ان اسأل كما اشاء وواجب عليك ان تتحمل طلاب العلم

كلمة المرور:123 لم اهتم بذكرها لأنها متعارف عليها لدى المبرمجين . والبرنامج مفتوح المصدر وقد ذكرتها في الاصدار الأول . أما كلمة المرور الخاصة بالتعديل على الفواتير السابقة هي : 123456 أيضا واضحة في الكود ولم أقم بالتشفير . وبالتوفيق وشكرا لك معلمنا ابا جودى قد شرفت مشاركتنا فلك منا كل الاحترام والتقدير والمحبة .

ابوآمنة تحياتي لك ولفريق العمل تقدم واختصار ملحوظين

يعطيك ألف عافية عالبرنامج

ماشاء الله برنامج متعوب عليه ... بارك الله فيك

السلام عليكم ورحمة الله أخي الكريم، من الأحسن وضع نموذج في ملف لتسهل العمل عليها... إليك الملف الملف أين استعملت التنسيق الشرطي على الخلايا وكود صغير يوضع في ThisWorksheet... موفق إن شاء الله تلوين الصف والعمود.rar