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

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

السلام عليكم امتداداً لتطويرات برنامج الخليل المحاسبي يسرني أهدي لكم الإصدار الثاني مع تعديلات وإضافات جميلة كما أشكر أستاذي الفاضل @sandanet لقد استفدت من طريقته في الحماية حسب مشاركته القيمة : اترك لكم البرنامج . وآملاً أن اتلقى ملاحظاتكم القيمة بعد استخدام البرنامج . تقبلوا فائق المحبة والتقدير BuySal20_V14.accdb BuySal20_V14.accdb.mdb.zip

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

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

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

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

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

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

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

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

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

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

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

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

برنامج رائع كروعة صاحبة زادك الله من علمه ورحم والديك

وعليكم السلام ,لماذا لا تستخدم خاصية البحث بالمنتدى-تفضل لك ما طلبت : تحويل ملف الاكسيل الى تنفيذى ثم تنصيب الملف بالصور

المشكلة بسبب تحديث للاوفيس

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

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

السلام عليكم جرب المرفق Cy_Scan_Ali.xlsm

وعليكم السلام -تفضل اغلاق ملف اكسل بعد 5 دقائق بكود بدون تدخل من المستخدم وهذا كود اخر يمكنك استخدامه بوضعه فى حدث ThisWorkbook ____لإغلاق ملف الإكسيل بعد 50 ثانية كمدة خمول Dim xTime As String Dim xWB As Workbook Private Sub Workbook_Open() On Error Resume Next xTime = Application.InputBox("Please specify the idle time:", "KuTool For Excel", "00:00:50", , , , , 2) Set xWB = ActiveWorkbook If xTime = "" Then Exit Sub Reset End Sub Private Sub Workbook_SheetActivate(ByVal Sh As Object) On Error Resume Next If xTime = "" Then Exit Sub Reset End Sub Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) On Error Resume Next If xTime = "" Then Exit Sub Reset End Sub Sub Reset() Static xCloseTime If xCloseTime <> 0 Then ActiveWorkbook.Application.OnTime xCloseTime, "SaveWork1", , False End If xCloseTime = Now + TimeValue(xTime) ActiveWorkbook.Application.OnTime xCloseTime, "SaveWork1", , True End Sub ثم اضافة هذا الكود بمديول عادى Sub SaveWork1() Application.DisplayAlerts = False ActiveWorkbook.Save ActiveWorkbook.Close Application.DisplayAlerts = True End Sub وهذا ملف للعمل مسجل عليه هذه الأكواد حفظ وإغلاق ملف إكسيل تلقائيا بعد وقت خمول معين.xlsm

السلام عليكم الهدف من استعمال العلامتين -- في الدالة SUMPRODUCT (التي تعمد على الأرقام) هو لتحويل مصفوفة من TRUE و FALSE إلى مصفوفة من 1 و 0 حتى تقوم الدالة بعملها المزدوج (الضرب والجمع)... وإضافة العلامتين -- هي نفسها *1 (أي الضرب في 1)... والله أعلى وأعلم... ملاحظة: تم تجسيد الحل والشرح في الملف المرفق... بن علية حاجي test.xlsx

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

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

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

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

ولا زلنا في انتظار بشرى الغد 🙂 جعفر

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

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

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

بارك الله فيك وزادك الله من فضله

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