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

السلام عليكم ورحمة الله تعالى وبركاته أما بعد ... استكمالاً لفكرة سابقة قدمها الاستاذ الخبير @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 تحياتي

عليكم السلام، اهلا بالمعلم. سبق وذكرت سابقاً اني اعتزلت الهندسة العكسية منذ سنوات طويلة. لكن بما انك وجهت لي دعوة فهذا يشرفني. اولا: البرنامج يتصل هنا https://dl.dropboxusercontent.com/s/n702324j1aclxel/active1.txt تظهر البيانات مشفرة 251252255254253252250248256247249256245249249245250248249257292250253245249249245250248249257213210252252253252251249257253252247248249245249249245250248249257292249256245249249245250248249257213210251254253252251249257256248247248249245249249245250248249257292250248245249249245250248249257213210251253254253252251248257252247249256245249249245250248249257292250253245249249245250248249257213210250248250252254257248255248247249256245249249245250248249257292250253245249249245250248249257 بعد فك التشفير 347654208/18-11-2019\25-11-2019 445431954/01-11-2019\18-11-2019 365431980/01-11-2019\20-11-2019 356543094/18-11-2019\25-11-2019 202469070/18-11-2019\25-11-2019 الرقم الاول يمثل رقم العميل / تاريخ اليوم / تايخ انتهاء التفعيل اعجبتني عبارة ( هناك خطأ غير متوقع ؟ ) بالنهاية شكرا للاخ صاحب الموضوع على مجهودة الجميل

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

السلام عليكم 🙂 بما انك تريد تسلسل التاريخ حسب السنة ، فيجب ان نعمل حقل للسنة : . ثم نضيفه الى الاستعلام مصدر بيانات التقرير : . والآن نعمل فرز في التقرير على اساس هذا الحقل ، ويكون اول حقل للفرز ، دون المساس بأي شيء آخر : . والنتيجة : . جعفر القلوب عند بعضها ، سبحان الله ، حتى الحل متشابه 🙂 حياك الله اخوي ابو خليل 🙂 جعفر

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

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

هممم كل اللي عملته انا ، اني وضحت لك ان 1+1=2 رقمي هو 202469070 جعفر

المرفق الذي أرسلته لك كما هو طلبك .. انظر الصورة التالية :

كل الشكر على الرد السريع ضبطت معاي الله يوفقكم ويرزقكم الفردوس الأعلى

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

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

وعليكم السلام 🙂 اجعل الاستعلام مصدر بيانات التقرير ، واعمل معيار في حقل الاقساط المتأخرة: >3 بهذه الطريقة تأتيك البيانات جاهزة من الاستعلام 🙂 جعفر

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

استاذ @أحمد الفلاحجى تم تفعيل برنامجك

احسنت اخي @أحمد الفلاحجى فعلا الملف للاستاذ محمد فؤاد جزاه الله كل خير اعتقد انه كان يشارك في منتديات الفريق العربي للبرمجة

تم رفعه بدون ضغط على الرابط التالي https://www.dropbox.com/s/xln75ppwol1961a/protection_trial.mde?dl=0

جزاك الله خيرا استاذى العزيز @kha9009lid وبالنسبه للملف المرفق فهو للاستاذ محمد فؤاد تركى جزاه الله خيرا فشرح بناء نظام المخازن ومرفق الملف النهائى لهذا الشرح لمن اراده تقبل تحياتى وتمنياتى لك وللجميع بالتوفيق طبتم واهتديتم مرفق الملف النهائي للعمل19.rar

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

تفضل قد تفيد في تصفية النموذج أنظر , Db5.rar

السلام عليكم جرب هذا المثال يفيد التحكم في عدد سجلات التقرير.mdb

لم تذكر شىء عن انواع الحقول او ترفق مثال عموما جرب الكود التالي x = DLookup("[completed]", "[orders]", "[Id] =" & XId And [test code] = [Xtestcode] And [testname] = [Xtestname]) تحياتي

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

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

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

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

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

ما شاء الله لا قوة الا بالله جزاك الله خيرا على هذه الهدية القيمة دمتم بالخيرات تحياتي

بارك الله فيك أخي @ابوآمنة يكون هذا العمل ذخراً لك يوم القيامة .. واحتسب الاجر عند الله

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

أخي الكريم المفترض انت من يضع المثال للتعديل عليه . لكن انظر المثال .... حاول التعديل على النموذج ثم قم بالتحديث ولاحظ الفرق Ka-Update.rar

اعرض الملف إرسال البريد من الأكسس بسم الله الرحمن الرحيم السلام عليكم ورحمة الله وبركاته كل عام أنتم بخير وسعادة ورضا ************** موعدنا اليوم مع ملف يحتاجه كل مهتم ببرمجة الأكسس في إرسال رسائل بريد للعملاء أو المستخدمين ====== مباشرة بدون استخدام برنامج outlook من خلال CDO وكذلك باستخدام outlook --------------------------- بالنسبة لاستخدام cdo يجب إدخال عنوان بريدك في gmail وكلمة مروره في المكان المخصص في الكود مع استعمال جميع المميزات /////////////////////////////////////////////// وبالنسبة لمن يستخدم outlook يجب أن يكون تطبيق اوتلوك مثبت على الجهاز ومفعل مع استعمال جميع المميزات ****************************** يوجد بالملف كود للتأكد من الاتصال بالانترنت من عدمه وكذلك لفتح صندوق حواري اختيار ملفات ********************** الكود يعمل على كل إصدارات الأوفيس دمتم في رعاية الله وحفظه والقادم أفضل إن شاء الله صاحب الملف أ / محمد صالح تمت الاضافه 25 ماي, 2017 الاقسام قسم الأكسيس

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