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

قم بانشاء برنامج لاي غرض كان في تنفيذ الاوامر مثل اضافة حذف فتح نموذج انشاء الاستعلام تجنب استخدام المعالجات المضمنة في اكسس واستخدم اكواد vba واذا صعب عليك الامر ابحث في الموقع وان لم تجد ضع استفسارك ثم طبق الاجابة على برنامجك تابع استفسارات وطلبات الاعضاء حتى لو لم تمتلك الاجابة ابحث عنها ثم قم بالتعديل وشارك بما حصلت عليه تابع ردود الاعضاء ذوي الخبرة واحتفظ بالاكواد التي يضعوها وحاول تصنيفها وتسميتها باسماء تدل على محتواها للرجوع لها عند الحاجة دائما حاول التعديل على الاكواد فغالبا الكود يمكن مع بعض التعديل الاستفادة منه لاغراض متعددة توجد في اليتيوب عدد من القنوات التي تقدم دروس متميزة للعديد الاساتذة مثل قناة عبد الفتاح كيرة وعبد العاطي حمدان وهاني مجدي وغيرهم ممن لا تحضرني اسمائهم لا تستعجل التعلم مع الوقت ستجد ان لديك رصيد من المعرفة والخبرة يؤهلك للرد بل والابتكار أخي لن تنال العلم إلا بستة ..... سأنبيك عن تفصيلها ببيان ذكاء وحرص واجتهاد و بلغـة ..... و صحبة أستاذ وطول زمـان اخي واستاذي @essam rabea الف شكر على الرابط الذي وضعته

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

فورم اختيار الصف وترحيل الى شيت اخر الفيديو

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

أ.Access2020 راجع هذا الرابط عسى أن يفيد

صباح الثورة من بيروت/صيدا/النبطية/صور /طرابلس .....ومن كل شبر من أرض لبنان الحبيب اليوم الثاني عشر جرب هذا الملف example.xlsx

أ.ramyooooo أنشئ المسار التالى D:\My Apps\Data وضع به db001.mdb و db002.mdb وجرب المرفق عسى أن يكون المطلوب بالتوفيق ESTest.mdb

وعليكم السلام ورحمة الله وبركاته تفضل 1111112.xlsx

تحية خاصة لك استاذي الفاضل @ابا جودى على توضيحك بخصوص مسألة الماك أدرس فأنا بالحقيقة لم أجربه سابقاً ولايسعني تجربته الآن لان الموضوع يحتاج الى فورمات لنظام التشغيل لكي تتم عملية اختباره على ارض الواقع .. أما بالنسبة لعملية تمديد الفترة التجريبية فالفكرة بحد ذاتها أجدها غير مجدية فلنفرض ان المستخدم قام بتجربة البرنامج لمدة شهر مثلاً فهو بالتأكيد سيكون قد اخذ كفايته في تجربة البرنامج وبالتالي لابد له من شراءه .. لكن لنفرض ان المستخدم قد عمل على البرنامج يوم واحد فقط ولسبب ما اضطر الى ترك البرنامج لمدة شهر فهنا سنجد ان الفترة التجريبية قد انقضت بالفعل في حين انه لم يأخذ كفايته من تجربة البرنامج في هذه الحالة لابد من تمديد الفترة التجريبية له وهذا أمر غير عملي على الإطلاق لان المبرمج غير معني بظروف جميع المستخدمين فهنالك من سيستخدم البرنامج يوم واحد وهناك من يستخدمه يومان وما الى ذلك فليس من المنطقي ان يقوم المبرمج بتجديد المدة التجريبية لكل واحد على حسب ظروفه أليس كذلك؟ ولكي نعالج هذه المسألة بشكل افضل خصوصا لمن يستخدم البرنامج على فترات متباعدة فاني ارى ان يتم احتساب الفترة التجريبية بالساعات يعني مثلا نضع المدة 5 ساعات او 10 ساعات ويبدأ العد التنازلي للوقت في كل مرة يتم فتح البرنامج والعمل عليه الى ان يصبح صفراً عندها تنتهي المدة التجريبية للبرنامج ... بهذه الطريقة تضمن حق كل مستخدم في استعمال المدة التجريبية بالكامل بغض النظر عن ظروفه. نعم اخي اقصد اسم المعالج لان اسم المعالج مثلا corei7-4500u وهذا لايتغير على الاطلاق بينما رقم المعالج يتغير بعد الفورمات طبعا يتم استخلاص الارقام من اسم المعالج وجمعها مع بعض ومن ثم ادخالها في معادلة خاصة لتوليد سيريال التفعيل عن طريق اسم المعالج فأنت تضمن على الأقل ان المستخدم لن يصادف مشكلة عندما يغير نظام تشغيله أما بالنسبة لتشابه الاجهزة في المعالجات فهو امر ليس سيء كما تظنه لان المعالجات قد تتشابه في كونها corei7 مثلا لكن الرقم الذي بعدها 4500 تجده مختلف في الغالب من معالج الى اخر وبالتالي فسوف يتغير سيريال التفعيل .. ولو افترضنا ان هنالك اكثر من معالج يحمل بنفس الارقام بالضبط اي تشابه 100% في كل شيء فما هي نسبة حصول اصحاب تلك المعالجات على سيريال التفعيل من الشخص الذي قام بشراء البرنامج؟؟ ستجد ان الاحتمالية ضعيفة في حال تم التأكيد على فعالية الماك فيمكننا حينها بدمج المعالج مع الماك مع بعض وبذلك تضمن نسبة حماية عالية جدا تحياتي

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

فى البداية اوجه الشكر لكم وانوه ان هذا الموضوع هو تكملة للموضوع التالى الخاص بتحويل الاكسس الى سيكوال انشاء السيرفر وتحويل اكسس الى سيكوال اى انـــــه لابد من تثبيت السيرفر اولا فقط على الجهاز الذى سيكون عليه قاعدة البيانات وتحويل قاعدة البيانات من اكسس الى سيكوال لكى يتم الاتصال بشكل فعلى هنا يعنى هنثبت سيكوال فقط على جهاز السيرفر مش كل الاجهزةة كلانا يعرف كيفية مشاركة الاكسس على الشبكة المحلية فقط هنعمل مشاركة للمجلد الذى يحتوى على قاعدة البيانات وبكدا اى مستخدم على الشبكة المحلية يقدر يستخدم قاعدة بيانات اكسس الموضوع يختلف كثير مع سيكوال تعالو لنقسم الموضوع الى جزئين الاتصال عن طريق الشيكة المحلية الاتصال عن طريق الانترنت 1 - فتح بورت فى الويندوز 1 - فتح بورت فى الويندوز 2 - فتح بورت فى السيرفر 2 - فتح بورت فى السيرفر 3- تثبيت الاى بى للويندوز 3 - فتح بورت فى الراوتر 4 - الحصول على اى بى ثابت اولا الاتصال عن طريق الشبكة المحلية ------------------------------------------------ بعد نثبيت السيرفر وتحويل الاكسس الى سيكوال اى تصدير الجداول من اكسس الى قاعدة بيانات سيكوال هناك امور مشتركة بين الاتصالين وهو فتح بورت فى الويندوز وفتح بورت فى السيرفر اذا نبدأ فى شرح كيفية فتح بورت فى الويندوز عن طريق Windows Firewal كدا فتحنا بورت لسيكوال سيرفر فى النظام طبعا لو عندك برامج حماية غير windows Defender يجب ان تسمح له بفتح البورت ------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- والان فتح بورت فى السيرفر كدا فتحنا بورت فى السيرفر نيجى بقى للاتصال من جهاز اخر غير جهاز السيرفر تابع معى اولا يجب معرفة اى بى جهاز الذى عليه السيرفر عن طريق Cmd ثم ipconfig هيظهر الاى بى فى IPv4 Adress اما الثانية فدا عنوان الراوتر طبها الاى بى الخاص بجهاز السيرفر هو 192.168.1.3 وهذا الذى سوف نتصل به من الكمبيوتر الاخر الذى على نفس الشيكة المحلية هنفتح ODBC زى ما عملنا فى الموضوع السابق والخطوة الاهم هى التالية هنكتب اسم قاعدة البيانات اسم السيرفر سيكون كاالتالى الاى بى الخاص بالسيرفر , بورت السيرفر ( 1433 ) كوما وليس نقطة (192.168.1.3,1433 ) وتكمل خطواتك عادى زى الموضوع السابق بقى وبكدا يبقى اتصلنا بجهاز السيرفر ونستطيع نعمل ارتباط لجداول قاعدة البيانات من سيكوال الى اكسس حاجة اخيرة الاى بى الخاص بجهاز السيرفر بيتغير كل شوية ممكن نثبته عن طريق الخطوات التالية هنجيب الاى بى من cmd كدا احنا ثبتنا الاى بى الخاص بالجهاز اللى عليه السيرفر علشان تقدر تدخل بيه من على اى جهاز ------------------------------------------------------- المرحلة الثانية الاتصال بالسيرفر من على النت اى ليس شرطا وجودالمتصل على نفس الشبكة المحلية هى هى نفس الخطوات فقط هنضيف خطوة زيادة الا وهى الحصول على Static IP وفتح بورت فى الراواتر بالنسبة للاى بى الثابت دى خدمة بتقدمها الشركة اللى انت متعاقد معاها على خط الانترنت فى مصر تكلفة الاى بى الثابت عشرة جنيه شهريا من We بتطلبه من الشركة وهى بتثبتلك اى بى عمتا لو عاوز تعرف الاى بى بتاعك تابع الاتى مع العلم ان الاى بى بتغير كل ما تعمل ريستارت للراوتر هتبحث فى جوجل كدا ويطلعلك الاى بى كدا ودا اللى هنقدر ندخل بيه على السيرفر من اى مكان شرط توافر انترنت طبعا مش هتقدر تتصل على السيرفر بالاى بى دا اللى لما تفتح بورت فى الراوتر اللى متصل عليه السرفر تابع معايا انا عندى راوتر تى داتا وهشرح عليه تقريبا هى نفس الخطوات فى كل الروترات فتح بروت فى الراوتر طبعا هتعرف عنوان الراوتر بتاعك من هنا والاى بى اللى هنستخدمه هندخل على المتصفح ونكتب فى عنوان الراوتر وندخل عليه طبعا الاسم وكلمة السر بيبقى موجودين على ضهر الراوتر بعد كدا نفس الخطوات بالظبط كدا يبقى فتحنا البورت فاضل اللاتصال طبعا هتفتح ODBC ذى ما ذكرنا قبل كدا وهتدخل البيانات زى كدا الاى بى , 1433 وتابع بقية الخطوات زى الموضوع السابق علشان تقدر تحضر قاعدة بيانات سكوال على جهازك وتتصل عليه طبعا الشغل اللى مطلوب على جهاز السيرفر الحصول على الى Static IP فى حالة الاتصال عن بعد فتح بورت فى الرواتر فى حالة الاتصال عن بعد تثبيت اى بى الجهاز فتح بورت فى الويندوز فتح بورت فى السيرفر بعد ما تعمل كل دا انت ما عليك الا انك تتصل على السيرفر كما ذكرت دون الحاجة الى تثبيت سيكوال سيرفر على جهازك شكرا لكم كان مفروض فى مرفق بتدخله بيانات السيرفر زى اى بى اسم قاعدة البيانات سيكوال اسم المستخدم لو فى وكلمة السر للسيرفر وهو هينشأ الاتصال اوتامتيك طبعا بعد ما تظبط جهاز السيرفر زى ما قلنا وفى نفس المرفق خيار اخر وهو هتدخل البيانات السابقة اضافة الى اسم جدول موجود على سيكول وهو هيربطهولك تلقائى فى قاعدة اكسس بس الوقت اتاخر اوى وانا بسقط من النوم الصراحة ان شاء الله نقوم بتصميمه غدا السلام عليكم ورحمة الله وبركاته اخوكم السيد جمال 🥰

فورم التنقل عبر الصفحات وترحيل البيانات بطريقة بسيطة الفيديو

السلام عليكم جرب هذا التعديل 2009(3).xlsm

See this file faltara.xls

السلام عليكم هذه المعادلة تعطي خطأ في حالة ما إذا كانت قيمة C4 نصية بسبب الإشارة "-" التي أمامها (الإشارة - مثلها مثل الإشارة +) والأصح أن تكون الجزئية (SUM(D4,-C4,B4 بالشكل: (SUM(D4,B4)-SUM(C4 ... والله أعلم.

حيث ان دالة Sum تحستب الفراغ او النص بقيمة صفر بينما عملية الجمع العادية (+) لا تعمل بوجود فراغات أو نصوص لذلك المعادلة الصحيحة =IF(D4<C4,"لا يستحق",SUM(D4,-C4,B4))

ههههه قصدك تهكير الشبكة ^_*

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

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

استخدم النموذج frm_rpt_SubSt في معاينة التقرير 🙂 جعفر1117.برنامج متابعة غياب طلاب الفراغات.mdb.zip

-------------------- السلام عليكم قرأت في أحدى المنتديات موضوع مثير بالنسبة لي وهو طريقة تغيير الـ MAC Address . في أثناء دراستي لـ عالم الشبكات تكلم المحاضر عن MAC Address بإنه لا يمكن تغييره لأن هناك منظمات مسئولة عنه . وهو مكون من 12 بين رقم وحرف ( 6 خانات ) أي بمعنى من النظام الست عشري Hexadecimal . الثلاث الخانات الأولية تعطي من قبل المنظمة المسئولة عن MAC Address اعتقد هي منظمة ICNN أو IANA أو نسيتها . أما الثلاث الخانات الأخرى فيتم تكوينهم من قبل الشركة الصانعة لـ NIC . وصاحب الموضوع قام بذكر الطريقة وهي كتالي : من My Network Places نختار خصائص . بالزر الأيمن على Local Area Connection نختار خصائص . نضغط على مفتاح Configure , من تبويب Advanced نختار Network Address . في مربع Value نضع عنوان MAC من عندنا بحيث يكون من نظام ست عشري Hexadecimal . السؤال : هل التغيير لـ MAC يتسبب في مشاكل في الجهاز قبل ما أجرب الطريقة في جهازي ؟ ---------الإجابة----------- هذا العنوان الفيزيائي لا يمكن تغييره ابداً ابداً ولكن يمكن الاحتيال على الاجهزه التي تقرا هذا الماك ادريس هناك برامج تزييف الماك عملها هو اعطاء رقم وهمي للاجهزه في الشبكه التي تريد قرائه هذا الرقم ولكن ان تغير الرقم نهائيا لا يوجد ابداً لا يتسبب في اي مشكله الا اذا كنت عامل تشفير للدخول على الشبكه عن طريق ماك ادريس فلتر فستواجه مشكله في الدخول على الشبكه أنا اتفق معاك واملك معلومات عن الـ MAC وأيضاً لدي المصادر العلمية ( كتب شركة مايكروسوفت الأصلية وكتب أخرى ) تقول أن الـ MAC لا يمكن تغييره من قبل الأفراد لأن هناك منظمة مسئولة عنه كلما قلت سابقاً . لكن خلال بحثي في المواقع المتخصصة في IT , وأيضاً المنتديات العالمية وجدت الطريقة اللي ذكرتها أعلاه وطريقة أخرى من خلال الـ Dos أو Registry . وأيضاً حصلت على برنامج يقوم بهذه المهمة يدعى SMAC . اتمنى من يملك معلومات عن MAC Address أن لا يبخل علينا في شأن التغيير . هذا أحدى المواقع http://www.nthelp.com/NT6/change_mac_w2k.htm في آخر الرابط يوجد موقع لـ SMAC . القول الفصل الماك ادريس لا يمكن تغغيره ابدا اعيدها مره اخره تغيير الماك ادريس من خلال الرجيستري كما تقول او عن طريق اي برنامج هو كما قلت انا هناك برامج تزييف الماك عملها هو اعطاء رقم وهمي للاجهزه في الشبكه التي تريد قرائه هذا الرقم ولكن ان تغير الرقم نهائيا لا يوجد ابداً يعني انك تزور الماك ادريس في الكمبيوتر ولكن لا يمكن ان تغيير الرقم ليصبح ثابت التغيير في حال ركبته في اي جهاز اخر وانا استخدم احد برامج تزييف الماك ادريس واستخدمها لانه مرات احاول العب في الشبكه , لمن يحس مدير الشبكه يقوم بحجب الماك ادريس وليس الاي بي ولكن انا كل ماعلي هو تشغيل البرنامج وتغيير الماك ادريس وبس ويفضل القديم محجوب وهو الاصل

أستاذي العزيز @ابا جودى نعم يبدو انه من الممكن تغيير الماك ببساطة كما في الصورة الموضحة وهذا رابط يتكلم عن طريقة تغيير الماك https://www.groovypost.com/howto/change-mac-address-windows-10-why/ ارجو الاطلاع

السلام عليكم ورحمه الله وبركاته الاستاذ ابو عبدالله تقبل تحياتى ما المشكله نحن اخوانك قبل كل شىء وما قاله الاستاذ خالد انه قد قدم المساعده بنفس ما قام به الاستاذ جعفر والتاكيد على انك لا تريد استعمال المديولات لاسباب بالعمل وانك تريد طريقه اخرى بالاستعلامات وقد نوه لك الاستاذ جعفر بانها ستكون متعبه ولكن وفر جزء وافى من البيانات حتى ولو وهميه مثل مالديك فى مثال على الاكسيس حتى يتم البحث عن افضل الحلول وتوفيرها لك وبالفعل اؤكد لك ما قاله الاستاذ جعفر والاستاذ خالد بانها ستكون متعبه ومرهقه فلقد حاولت كما رائيت وشوف طول الداله قد ايه فى العمود 3 فمابالك بباقى الاعمده ان شاء الله عندما تضع مثال لما لديك من بيانات سيقوم اساتذتنا بوضع افضل وايسر الحلول لك فى استعلام وجزاك الله خيرا استاذ @kha9009lid واستاذ @jjafferr وجميع اساتذتنا ونسال الله ان يكتب لكم بكل حرف حسنه وما انا الا طالب لديكم استذتى الكرام واحاول لاتعلم منكم ومعكم SELECT tbl1.id, tbl1.tx, 1-Mid([tx],1,InStr([tx],"&")-1) AS Data, 2-Mid([tx],InStr([tx],"&")+1,InStr(Right([tx],Len([tx])-InStr([tx],"&")),"&")-1) AS Data1, 3-Mid(Right([tx],Len([tx])-InStr([tx],"&")),InStr(Right([tx],Len([tx])-InStr([tx],"&")),"&")+1,InStr(Right(Right([tx],Len([tx])-InStr([tx],"&")),Len(Right([tx],Len([tx])-InStr([tx],"&")))-InStr(Right([Tx],Len([Tx])-InStr([tx],"&")),"&")),"&")-1) AS Data3 FROM tbl1; تقبلوا تحياتى وتمنياتى لكم بالتوفيق والنجاح طبتم واهتديتم

أعتذر عن مشاركتى لمجرد المشاركة بالتوفيق

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

ارجوا ان يكون المطلوب sa-كشف حساب.accdb

جرب المعادلة =SUMIF('2'!A4:A7,C3,INDIRECT("'" & E2))

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

وعليكم السلام 🙂 المنتدى مليء بمثل هذه المواضيع ، فما عليك إلا ان تبحث 🙂 مثلا و جعفر

وهل تستعمل البرنامج بإخفاء الخلفية الاكسس؟

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

روابط اليوتيوب يظهر الفيديو خاص غير متاح

اخي الكريم الأمر ليس كما تفضلت به في شرحك لطريقة الحماية والفترة التجريبية .. دعني اوضح لك بعض الامور التي اختبرتها سابقاً 1- رقم الماك للجهاز لست متأكداً ما إذا كان ثابتأ ام لا بعد الفورمات او قد يتغير بفعل فاعل او بتأثير برنامج خارجي او ماشابه لكن يمكنك اختباره وفي حال كان ثابتاً فإننا يمكن ان نستخدمه في عملية الحماية أما باقي ارقام الجهاز فهي تتغير بعد الفورمات لذلك حالياً اعتبر ان قراءة اسم المعالج هو الانسب من وجهة نظري فهو لايتغير وبذلك فإن المستخدم مهما قام بتغيير نظام التشغيل فسوف يعمل سيريال التفعيل معه بدون مشاكل فلن يضطر الى الاتصال بك اما من ناحية نسخ البرنامج الى جهاز آخر فإذا صدف ان الجهاز الاخر لديه نفس المعالج وصاحبه قد تحصل على سيريال تفعيل البرنامج من الشخص الاول الذي اشترى البرنامج فبالتأكيد سوف يعمل معه البرنامج لكن هذا الامر نادر الحدوث نوعاً ما. 2- حماية البرنامج ليس لها علاقة بالفترة التجريبية : حماية البرنامج هي عملية منع البرنامج من الانتقال من شخص اشترى حقوق البرنامج الى آخر لايملك اي حقوق وهنا لدينا خيارين الاول هو غلق البرنامج بوجه الشخص الاخر ومنعه من استخدامه الى ان يشتري سيريال التفعيل او الخيار الثاني هو السماح للبرنامج بالعمل لكن بمدة معينة فقط (ديمو) وبعد ذلك يغلق البرنامج نهائياً الى ان يتم شراء سيريال التفعيل وهذا ما تنتهجه كبرى الشركات البرمجية في العالم فالهدف الاساسي هو نشر البرنامج لكي يتم الاطلاع عليه من قبل اكبر عدد من المستخدمين لكن فقط الذين يشترون سيريال التفعيل هم الذين يملكون الحق بالعمل عليه بشكل دائم 3- هناك توجه اخر وهو عند شراء سيريال تفعيل البرنامج فانك سوف تمكن له بعض المزايا المتقدمة داخل البرنامج اما للذين لايملكون سيريال التفعيل فيعملون على البرنامج بمزايا محدودة فقط وهو امر مرغوب فيه بشدة حيث انك لن تحتاج لجعل البرنامج يعمل بفترة تجريبية ولن تقلق من ان يتم التلاعب بتاريخ الجهاز لغرض زيادة الفترة التجريبية وما الى ذلك من مشاكل الفترات التجريبية الكثيرة . ارجو ان تكون الفكرة واضحة

أستاذ @sandanet كود ممتاز بارك الله بك. هل يمكن تعديل الكود ليعمل الكود على إخفاء الاستعلامات و الوحدات النمطية و الماكرو؟

جرب الملف المرفق .. ميزة الطريقة الموجودة في المرفق هي عند اخفاء الجداول فلايمكن اظهارها من خلال خيارات العرض في قاعدة البيانات "إظهار الكائنات المخفية" كما لايمكن استيراد الجداول ايضاً example1.accdb

ممكن هذا الماكرو لمختلف الحلات دون التقيد بعدد الحروف حيث يبدأ البحث Option Explicit Sub Extract_Date_Please() Dim i%: i = 1 Range("C1").CurrentRegion.ClearContents Do Until Range("A" & i) = vbNullString Call SPLIT_ME _ (Range("a" & i), "\D+-\d+-\d+\s+?\d+:\d+", i, 3) i = i + 1 Loop End Sub '+++++++++++++++++++++++++++++++ Sub SPLIT_ME(c As Range, pttrn As String, k%, m%) With CreateObject("VBscript.RegExp") .Global = True: .MultiLine = True .IgnoreCase = False: .Pattern = pttrn If Not .Test(c.Value) Then Exit Sub Cells(k, m) = .Execute(c.Value)(0) m = m + 1 End With End Sub مثال للتوضيح في الملف المرفق Extract_dates.xlsm

السلام عليكم وبالامكان الاستعانه بدالة معرفة كالتالي Function Ali_Splt(F, Optional S As String = " ") Dim x, c x = Split(Mid(F, 7, Len(F)), S) For i = LBound(x) To UBound(x) If i <= 1 Then c = c & S & x(i) Next i If Len(F) > 0 Then Ali_Splt = c End Function

أ.اسلام سيد مش عارف انا فهمت صح ولا غلط جرب المويول 'للإخفاء Public Function ESHideTables() Dim dbs As dao.Database Dim tbl As dao.TableDef Dim qry As dao.QueryDef Dim str As String On Error Resume Next Set db = CurrentDb() For Each tbl In db.TableDefs Application.SetHiddenAttribute acTable, tbl.Name, True Next tbl End Function والموديول الثانى 'للإظهار Public Function ESShowTables() Dim dbs As dao.Database Dim tbl As dao.TableDef Dim qry As dao.QueryDef Dim str As String On Error Resume Next Set db = CurrentDb() For Each tbl In db.TableDefs Application.SetHiddenAttribute acTable, tbl.Name,Fales Next tbl End Function وقم بإستاعائهم عن طريق Call ESHideTables للإخفاء أو Call ESShowTables للإظهار أرجو أن أكون وفقت بالتوفيق

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

السلام عليكم جرب المرفق المكملون مع الدرجة Ali_1.xlsm

وللتوضيح للفكرة أكثر هنا تفاصيل أنشاء الحماية بالماك ادرس: عمل الحماية على وجهين التجريبية والرئيسية النهائية في نفس الملف او في ملفين منفصلين ============================= أولاً: الرئيسية: - تشفير الرمز الماك ادرس في الجدول ، وعند عرضة للتسجيل يضهر مكون من 14 رقما - المقدرة على تعديل الكود كمثال ضرب رمز الماك في 3 او 4 او اي رقم او رقمين ، السبب حتى يمكن عدم تفعيل الرمز السابق في النسخ الجديدة ثانياً:التجريبية : نفس مميزات الرئيسة مضاف له التالي: - عمل رمز متغير لا يمكن ادخالة في اي جهاز اخر ولمدة محدودة كمثال 7 ايام او 30 ويكون مكون من 12 رقماً - هذا الرمز لا يصلح لتفعيل مدى الحياة - بعد انتهاء فترة التجريب واراد العميل فترة اخرى للتجربة امكانية انشاء رمز اخر له - وضع رسالة قبل الدخول انه سوف تنتهي فترة التجريب ويوضع تاريخ وعدد الايام - في الشاشة الرئيسية كلمة نسخة تجريبية ونص متبقي لك 3 ايام سوف تنهي فترة التجريب تاريخ: .... لون الايام والتاريخ بالون الاحمر والنص بالازرق

تفضل اخي الكريم وللعلم الكود هو من احد المواقع الاجنبية Excel e whatapp.xls

الأستاذ k24s أين الضغط على الإعجاب ,طالما أعجبك الحل واعتقد ان هذا اقل ما يقدم لمن كان سبباً فى حل مشكلتك والتفريج عنك ؟!!!!!!!!!!!!

السلام عليكم جرب هذا التعديل على الكود Private Sub CommandButton1_Click() Dim origSht As Worksheet Dim destSht As Worksheet Set origSht = Worksheets("sheet 2") sheetsname = InputBox("Enter the sheet name!" & vbNewLine & vbNewLine & "Example:- the sales", "Attention") If sheetsname = "" Then MsgBox "again please", , "Attention" Exit Sub End If If sheetsname = (Sheets(Sheets.Count).Name) Then MsgBox "This Name already Exists", , "Attention" Exit Sub End If Sheets.Add(After:=Sheets(Sheets.Count)).Name = sheetsname Set destSht = ActiveSheet origSht.Cells.Copy Destination:=destSht.Cells Dim cr As ChartObject With destSht For Each cr In destSht.ChartObjects If cr.Index = 1 Then .ChartObjects(cr.Name).Chart.SetSourceData Source:=.Range("C27,O27:P27") If cr.Index = 2 Then .ChartObjects(cr.Name).Chart.SetSourceData Source:=.Range("C28,O28:P28") Next cr End With End Sub

بسم الله والصلاة على اشرف خلق الله سيدنا محمد صلى الله عليه وسلم السادة الكرام مشرفين وأعضاء كل الشكر والتقدير لكل من ساهم في انجاز هذا البرنامج برنامج النور هو برنامج محاسبة فقط دون مواد ومستودعات وإن شاء الله إن أحياني الله سيكون هناك برنامج محاسبة ومستودعات ====== *البرنامج أسلوب جديد في تنزيل البيانات وخاصة ميزة استخدام البرنامج بالكيبورد فقط 95% دون استخدام الماوس(هدية للمحاسبين الذين يحبون استخدام الكيبورد فقط) وكذلك ميزة البحث عن اسم حساب في فورم بحث وليس قائمة منسدلة كومبوبكس *في البرنامج فواتير شراء – بيع - مرتجع شراء – مرتجع بيع – حسم ممنوح – حسم مكتسب – قيد يدوي – سند قبض.دفع *كما يوجد كشف حساب مع إمكانية تعديل أي فاتورة أو قيد وأنت ضمن فورم كشف حساب مع إمكانية معاينة الكشف أو طباعته بما في ذلك ترويسة وشعار الشركة *كما يوجد كشف بجميع الحسابات مع الأرصدة (ميزان مراجعة). ومن خلال هذا الكشف يمكنك تعديل اسم حساب أو رقم هاتفه أو عنوانه أسال الله العظيم أن يكون فيه النفع لكل المسلمين كلمة المرور 1 واجهة البرنامج لتعديل أي فاتورة او دفعة او اي قيد حدد السطر الذي يحتوي على رقم القيد ثم اضغط على تعديل البرنامج في المرفقات برنامج النور للمحاسبة.rar

أعتقد ان هذا كل ما تريد واتمنى ان لا تحتاج شيء اخر برنامج قوائم الفصول.xlsm

يجب علي ماكرو المسح في صفجة بيانات الطلا ب ان لا ينفذ الا على هذه الصفخة بالذات لذلك تداركاً للخطأ يجل علينا وضع سطر في الكود If ActiveSheet.Name <> "بيانات الطلاب" Then Exit Sub ليصيح الكود هكذا Sub ClearConstantsOnly() 'كود مسح البيانات و الحفاظ على المعادلات If ActiveSheet.Name <> "بيانات الطلاب" Then Exit Sub prompt = "هل حقا تريد مسح كل البيانات!؟" Command_buttons = vbYesNo + VbMsgBoxRt1Reading Title = "تحذير. انتبه !!!!" project = MsgBox(prompt, Command_buttons, Title) If project = vbYes Then On Error Resume Next Range("c17:g516").SpecialCells(xlCellTypeConstants).ClearContents Range("A1").Select End If End Sub

كود اخر بواسطة Loop انتبه الى الملاحظات في اسفل الكود بواسطة هذه المعادلات لا تتأثر الخلايا في حال زيادة صفوف او حذف صفوف (قبل الصف 12)من الورقة أو اذا تم حذف اي اسم من لائحة الفصل لا يتأثر الترقيم في كلا العامودين اذا كنت قد فهمت الكود اليك هذا المهمة تنزيل كود اخر بحيث: 1-يعمل على المتغير I بواسطة Loop (من 1 الى 10) * عدد الفصول 2-يعمل على المتغير K بواسطة Loop (من 17 الى اخر صف في الورقة Main) * هذا الخاصية موجودة في الكود المرفق 3- يقوم بترقيم التلاميد بدون معادلات في العامودين I & C في كل ورقة من ورقات الصفوف Option Explicit Sub tanslate_data_salim_loop() Dim My_Sh As Worksheet Dim lr1, i, k, m, col, y As Integer Dim my_rg, cel As Range Application.ScreenUpdating = False Application.Calculation = xlCalculationManual lr1 = Main.Cells(Rows.Count, "c").End(3).Row Set my_rg = Main.Range("c17:g" & lr1) For i = 1 To 10 m = 0 Set My_Sh = Sheets(i & "") My_Sh.Range("d12:g36").ClearContents My_Sh.Range("i12:l36").ClearContents k = 17 Do Until k = lr1 + 1 'يمكنك استعمال هذا السطر ' Do While k <= lr1 'او هذا السطر Select Case m Case Is < 25 col = m + 12 y = 4 Case Else col = m - 13 y = 9 End Select If Main.Cells(k, "g") = i Then My_Sh.Cells(col, y).Resize(1, 4).Value = Main.Cells(k, 3).Resize(1, 4).Value m = m + 1 End If k = k + 1 Loop Next Application.ScreenUpdating = True Application.Calculation = xlCalculationAutomatic End Sub ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ' ملاحظات ' بالنسبة للمعادلات في صفحات الصفوف 'الافضل كتابة هذه المعادلة في الخلية 'C12: '=IF(D12="","",MAX($C$11:C11)+1) 'ثم اسحب نزولاً 'و هذه المعادلة في الخلية 'I12: '=IF(I12="","",MAX(C:C)+ROWS($A$1:A1)) 'ثم اسحب نزول '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

هههه ميغلاش عليكم غالي استادنا ابراهم المرفق موجود