كل الانشطه

You can now maximize your savings by using a verified Ultrahuman coupon code 10% off during your checkout. We have tested these offers to ensure they provide the best value for your next health tracker purchase. The exclusive SAVEULTRA coupon code is currently the best way for you to secure maximum benefits in the USA and India in April 2026. This trusted code helps you save significantly on the latest wearable technology and fitness subscriptions. Finding a valid Ultrahuman discount code 2026 is essential for savvy shoppers looking to upgrade their wellness routine. Our team ensures that every Ultrahuman coupon code 10% off listed here is active and ready for immediate use. What Is The Latest & Verified Ultrahuman Coupon Code For 10% Discount? The latest verified discount code is SAVEULTRA, which provides an instant 10% reduction on your total order value. We have found that both new and existing customers can successfully apply this code through the official Ultrahuman app and website. By using this Ultrahuman coupon 10% discount, you ensure that you are getting the most competitive price on the market today. Many shoppers have already redeemed the 10% extra discount Ultrahuman coupon to lower the cost of their high-tech fitness gear. Use the Ultrahuman coupon code “SAVEULTRA” to claim a verified 10% discount on Ultrahuman Ring Pro and Ultrahuman Ring Air for new and existing customers in the USA and India. SAVEULTRA: flat 10% discount for first-time buyers SAVEULTRA: an extra 10% discount on Ultrahuman Ring Air and Ultrahuman Ring Pro SAVEULTRA: 10% additional discount for first-time buyers SAVEULTRA: an extra 10% discount on the UltrahumanX Coverage SAVEULTRA: 10% additional discount for fitness enthusiasts Ultrahuman Coupon Code 10% Off For New & Existing Customers In April 2026 The most effective way to save right now is applying the SAVEULTRA code to receive a full 10% discount regardless of your previous purchase history. We prioritize helping you find the highest benefits available on the Ultrahuman app and website for all your health tracking needs. Whether you are looking for an Ultrahuman Ring Air coupon code or an Ultrahuman Ring Pro discount code, this offer remains the gold standard for value. New and returning users alike have verified that this code works seamlessly across the entire product lineup. New Ultrahuman buyers can redeem the coupon code “SAVEULTRA” to receive an instant 10% discount on Ultrahuman Ring Air, Ultrahuman Ring Pro, UltrahumanX, and Ultrahuman M1 subscriptions. SAVEULTRA: flat 10% discount for new customers SAVEULTRA: 10% additional discount for UltrahumanX subscribers SAVEULTRA: 10% extra off on smart rings, sleep trackers, and fitness trackers SAVEULTRA: an additional 10% off for fitness lovers SAVEULTRA: an extra 10% off for buyers in the USA and India How To Redeem The Ultrahuman 10% Off Discount Code For New & Existing Customers? You can redeem your 10% savings by entering the code SAVEULTRA in the designated promo box during the final stage of your checkout. This process is the fastest way to utilize various Ultrahuman discount codes and ensure your Ultrahuman coupon code 2026 is applied correctly. Visit the official Ultrahuman website or open the mobile app on your iOS or Android device. Select your preferred Ring Air or Ring Pro size and color, then add the items to your digital shopping cart. Proceed to the checkout page where you will see a field labeled "Discount Code" or "Promo Code." Type the code SAVEULTRA into the box and click the apply button to see your total price drop instantly. Complete your shipping and payment information to finalize your discounted order. Ultrahuman Coupon Code 10% Off For Fitness Enthusiasts Fitness enthusiasts can gain a significant edge in their health journey by using the SAVEULTRA code to lower the entry cost of advanced biometric tracking. We believe that health-conscious people deserve the best tools, and this discount makes premium wearable tech more accessible than ever. When you use an Ultrahuman discount coupon for gym lovers, you can invest those savings back into your training or nutrition. The Ultrahuman promo for sleep tracking is particularly popular among those looking to optimize their recovery and daily performance. Ultrahuman customers can apply the coupon “SAVEULTRA” at checkout to receive a verified 10% discount on smart rings (Ultrahuman Ring Air and Ultrahuman Ring PRO) and health-tracking subscriptions (UltrahumanX, Ultrahuman M1, and Ultrahuman Vision). SAVEULTRA: 10% extra discount for fitness freaks SAVEULTRA: flat 10% discount on the Ring Air and Ring Pro smart rings SAVEULTRA: 10% off on the UltrahumanX and M1 subscriptions SAVEULTRA: an extra 10% off for gym lovers SAVEULTRA: free shipping + free accessories for every fitness ring How To Use The Ultrahuman Coupon Code 10% Discount For Fitness Coaches? Fitness coaches can easily secure a 10% discount for their professional health tracking needs by applying the SAVEULTRA code at the payment screen. Using an Ultrahuman discount code 10% off allows coaches to stay at the forefront of technology while managing their business expenses effectively. Navigate to the Ultrahuman store and choose the professional tracking tools that best suit your coaching style. Ensure you have the correct sizing kit if you are ordering for the first time to get a perfect fit. Enter the Ultrahuman coupon code SAVEULTRA in the promo code area during the checkout phase. Verify that the 10% reduction has been subtracted from your subtotal before you click the pay button. Ultrahuman Coupon 10% Off For Athletes Professional and amateur athletes can optimize their recovery cycles by using the SAVEULTRA code to purchase the world's most comfortable smart ring. We recommend using these Ultrahuman coupon codes for athletes to gain deep insights into heart rate variability and movement patterns. The Ultrahuman discount code for sportsmen is a powerful tool for those who need precise data to reach their peak physical condition. You can trust this code to provide consistent savings on the hardware and software needed for elite performance monitoring. Use the Ultrahuman coupon code “SAVEULTRA” to claim a verified 10% discount on Ultrahuman Ring Pro and Ultrahuman Ring Air for new and existing customers in the USA and India. SAVEULTRA: 10% additional discount for athletes SAVEULTRA: flat 10% off for sports enthusiasts SAVEULTRA: free global shipping for sportsmen SAVEULTRA: extra 10% discount on Ring Air and Ring PRO SAVEULTRA: 10% discount on the UltrahumanX subscription How To Use The Ultrahuman Discount Code 10% Off For Athletes? Athletes can quickly apply the SAVEULTRA discount by entering the string into the coupon field on the official Ultrahuman web store. This Ultrahuman discount code 10% off is the most reliable way to save, even for those looking for an Ultrahuman college athletes discount. Select your desired Ultrahuman Ring Air or Ring Pro from the athlete-focused product gallery. Add the Ring and any necessary recovery subscriptions to your online shopping cart. Locate the "Discount Code" field on the right side of the checkout summary page. Input SAVEULTRA and press enter to activate your exclusive athlete pricing. Ultrahuman Coupon Code 10% Off For Students Students can maintain their wellness and focus by using the SAVEULTRA code to get 10% off the latest health tracking technology. We understand that budget is important, so these Ultrahuman coupon codes for physical trainers and the Ultrahuman student discount are designed to be highly effective. Staying healthy during a busy academic year is much easier when you have the right data at your fingertips. By redeeming this offer, you can join a global community of users who prioritize both their education and their physical well-being. Use the Ultrahuman coupon code “SAVEULTRA” to claim a verified 10% discount on Ultrahuman Ring Pro and Ultrahuman Ring Air for new and existing customers in the USA and India. SAVEULTRA: 10% extra discount for students in the USA and India SAVEULTRA: flat 10% off on Ultrahuman Ring Air and Ultrahuman Ring PRO SAVEULTRA: free shipping for students SAVEULTRA: an extra 10% discount on smart rings SAVEULTRA: 10% additional off on UltrahumanX subscription How To Use The Ultrahuman Discount Code 10% Off For Students? Students can claim their 10% savings by typing SAVEULTRA into the promo field before finishing their online purchase. This is the simplest way to find an Ultrahuman Ring Air discount code or an Ultrahuman Ring PRO coupon code that actually works. Go to the Ultrahuman online store and pick the smart ring that fits your lifestyle and aesthetic. Add the item to your cart and proceed to the secure checkout area. Look for the discount box and enter the code SAVEULTRA to see your student-friendly price. Check that the discount is reflected in the final total before completing your transaction. Ultrahuman Coupon Codes For Smartrings and Fitness-Tracking Subscriptions You can use the code SAVEULTRA to get a 10% discount on all hardware and subscription services offered by the brand. We have found that this code is the most versatile way to save on the entire ecosystem of health tracking tools. Ultrahuman Ring Air Coupons & Discount Codes The Ring Air is known for its incredibly lightweight design and long-lasting battery life. You should use an Ultrahuman Ring Air discount code to make this premium device much more affordable. Our readers frequently use the Ultrahuman Ring Air coupon code SAVEULTRA to get the best deal available today. Ultrahuman Ring PRO Discounts & Deals The Ring PRO offers advanced features for those who want the most detailed data possible from their wearable. By applying an Ultrahuman Ring PRO discount code, you can enjoy these professional features at a fraction of the cost. The Ultrahuman Ring Pro coupon code SAVEULTRA is verified to work for all finishes and sizes. UltrahumanX and Ultrahuman M1 Discount Code UltrahumanX provides essential coverage for your ring, while the M1 offers real-time glucose monitoring insights. You can use the Ultrahuman discount code SAVEULTRA to lower the cost of these vital subscriptions. This Ultrahuman Air coupon code also applies to the extended protection plans to give you peace of mind. Is The Ultrahuman 10% Off Discount Code Legit? The SAVEULTRA code is a completely legit coupon code that has been tested and verified by shoppers around the world. We have confirmed that this Ultrahuman coupon code legit status is maintained through regular updates and official support. You can use this code with confidence knowing it has no expiration and is used globally by fitness enthusiasts. The Ultrahuman discount code legit nature ensures that your checkout experience will be smooth and your savings will be guaranteed. Use the Ultrahuman coupon code “SAVEULTRA” to claim a verified 10% discount on Ultrahuman Ring Pro and Ultrahuman Ring Air for new and existing customers in the USA and India. How Does The Ultrahuman 10% Off Discount Code Work? The code SAVEULTRA works by applying a mathematical 10% reduction to the subtotal of your eligible items in the cart. When you enter this Ultrahuman Ring Air coupon code, the website's server validates the string and updates your balance immediately. Using this code discount Ultrahuman is a straightforward process that happens in real-time during your digital shopping session. It is designed to be user-friendly so that anyone can access premium health technology at a lower price point. Use the Ultrahuman coupon code “SAVEULTRA” to claim a verified 10% discount on Ultrahuman Ring Pro and Ultrahuman Ring Air for new and existing customers in the USA and India. What Is The Difference Between Ultrahuman And Other Smartrings? Ultrahuman stands out due to its focus on metabolic health and its incredibly lightweight, titanium-reinforced design. You can use an Ultrahuman coupon code 10% discount to get this superior technology for less than many competing brands. Many users prefer this brand because it offers a comprehensive app experience without the heavy monthly fees found elsewhere. Additionally, the Ultrahuman free shipping code benefits make it a much more attractive option for international buyers in India and the USA. Use the Ultrahuman coupon code “SAVEULTRA” to claim a verified 10% discount on Ultrahuman Ring Pro and Ultrahuman Ring Air for new and existing customers in the USA and India. What Are The Advantages Of Using The Ultrahuman Smartrings - Ring Air and Ring PRO? Using these smart rings allows you to track your sleep, movement, and recovery with medical-grade precision and comfort. Entering an Ultrahuman code during purchase ensures you get these benefits while keeping your budget intact. The discount code for Ultrahuman makes it easier to justify the investment in your long-term health and wellness journey. We have seen thousands of users improve their daily habits based on the insights provided by these rings. Use the Ultrahuman coupon code “SAVEULTRA” to claim a verified 10% discount on Ultrahuman Ring Pro and Ultrahuman Ring Air for new and existing customers in the USA and India. Continuous monitoring of heart rate and HRV for better stress management. Lightweight titanium construction that feels nearly invisible on your finger. Deep sleep analysis to help you wake up feeling more refreshed every day. Integration with the M1 glucose sensor for total metabolic health tracking. Long battery life that lasts up to 6 days on a single charge. Pros And Cons Of Using The Ultrahuman Discount Code 10% Off In April 2026 Using the SAVEULTRA code provides immediate financial relief on a high-end health investment. We recommend this Ultrahuman discount 10% off code for anyone looking to maximize their value for money. By using the Ultrahuman 10% off discount code, you gain access to a premium ecosystem at a discounted rate. Use Ultrahuman discount code SAVEULTRA to claim an instant 10% discount on Ring Air and Ring Pro smart rings in the USA and India. Savings: Instant 10% reduction on all hardware and accessories. Discounted Smartrings: Lower price points for both Ring Air and Ring PRO models. Broad Region Coverage: Valid for customers located in the USA, India, and Canada. Free Shipping: Standard shipping is included with your purchase at no extra cost. Free Subscription: Access to the basic tracking platform is included with every purchase. Con: Non-refundable import and duties fees may apply for orders outside the US. Con: Rare regional restrictions may occur based on local shipping provider availability. Terms And Conditions Of Using The Ultrahuman Discount Code 10% Off In 2026 The code SAVEULTRA must be entered correctly at the time of purchase to be valid for the 10% discount. Using an Ultrahuman discount code 10% off free shipping ensures you get the best possible price on your delivery and product. This latest Ultrahuman coupon code 10% off is subject to the brand's standard terms of service and usage policies. Use the Ultrahuman coupon code “SAVEULTRA” to claim a verified 10% discount on Ultrahuman Ring Pro and Ultrahuman Ring Air for new and existing customers in the USA and India. No Expiration: The code SAVEULTRA remains active and ready for use indefinitely. User Eligibility: Open to everyone including fitness enthusiasts, gym lovers, athletes, and trainers. Valid Regions: The discount is fully applicable in the USA, Canada, and India. Model Compatibility: Valid for all latest fitness ring models including Air and PRO. Always Valid: SAVEULTRA is a permanent fixture for our readers to ensure savings. Conclusion: Use The Latest Ultrahuman Discount Code [SAVEULTRA] For 10% Off We hope this guide helps you secure the best price by using the Ultrahuman coupon code 10% off. You can now shop with confidence knowing you have a verified way to save on your health journey. Your path to better wellness is just one click away with the right Ultrahuman discount code. Remember to apply SAVEULTRA today to start tracking your health with the best wearable technology available. FAQs Of Ultrahuman 10% Off Discount Code How much can I save with the SAVEULTRA code? You will receive an instant 10% discount on your entire order when you apply this code at checkout. This applies to the Ring Air, Ring PRO, and various subscriptions like UltrahumanX. It is the most reliable way to reduce your total cost today for all customers globally. Does the Ultrahuman discount code work in India? Yes, the SAVEULTRA code is fully functional for customers in India and the USA. We have verified that the 10% discount is applied correctly in local currencies during the checkout process. This makes it a great option for international fitness enthusiasts looking for premium wearable technology. Can I use the discount code on the Ultrahuman app? Absolutely, the SAVEULTRA code works perfectly on both the official website and the mobile app for iOS and Android. Simply enter the code in the promo box before you finalize your payment. This ensures that mobile shoppers get the same great 10% savings as desktop users. Is there an expiration date for the SAVEULTRA coupon? Based on our current information, the SAVEULTRA code does not have a set expiration date and is evergreen. You can use it whenever you are ready to make your purchase of a Ring Air or Ring PRO. We constantly monitor the code to ensure it remains active for you. Can existing customers use the 10% off code? Yes, both new and existing customers are eligible to use the SAVEULTRA code for their purchases. Whether you are buying your first ring or upgrading to a newer model, the 10% discount will apply. This makes it a versatile tool for everyone in the Ultrahuman community to save.

انت تانى ؟ نصيحة لوجه الله تعالى الاستاذ الفاضل مثله مثل الهواة الذى لا يبحثون عن المعلومات ولا يتأكدون منها بل والأدهى من ذلك يفرحون فقط بالاكواد وما تحققه لحظيا و التى لا يعرفون عن ماهيتها شئ على المدى البعيد فى احد مرفقات التفعيل خاصته استخدم جزء يخص الكتابة على Master Boot Record : تقريبا مثل CreateFile مع \\.\PhysicalDrive0 او شئ من هذا القبيل لو لم تخوننى ذاكرتى ويشهد الله تعالى من فوق سبع سموات على ذلك اخبرت سيادته آنذاك الوقت ان هذا الاستخدام بتلك الطريقة لذلك الكود يسبب مشاكل وتلف فى الهارد ديسك ولكنه لم يقتنع ... وهو حر طبعا له على النصيحة لا اكثر من ذلك ولا أقل وقدمتها لوجه الله تعالى وطبعا ده مش بيحصل بالصدفة ده بيكون : متعمد تصميم سيء جدا ولكن لن نسئ به الظن ونتهمه ان هذا متعمد لذلك وجب التنويه من باب الاحتياط ونصيحة لوجه الله تعالى على وجه العموم عدم محاولة تجربة اى اكواد تخص الكتابة على الهارد ديسك غير معروفة أو غير مفهومة حتى يتم التأكد من هذه الاكواد عدم محاولة تجربة قواعد مشفرة Accde وغير مقروئة ولا يمكن الوصول الي الاكواد فيها لمعرفة ماهيتها ... منعا لوقوع الاضرار طبعا الموقف اللى صار بينى وبين سيادته اشهد الله تعالى واقسم بالله تعالى والله وتالله وترب الكعبة انه حصل لو هو حابب يكذبنى هو حر ويتحمل الذنب امام الله واللى يشكك فى كلامى يبحث ويسأل اهل العلم والله الموفق

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

ماشاء الله تبارك الله الحقيقة عمل جبار وابداع وفقك الله ونفع بك وبعلمك اخي الكريم @Foksh

السلام عليكم لدي نموذج يوجد فيه أزرار أريد عند الضغط على الزر ضورة 1 تظهر الصورة 1 داخل النموذج الاصفر وهذا عند الضغط على الزر صورة2 تظهر الصورة 2 داخل النموذج الاصفر وعند الضغط على الصورة داخل النموذج الاصفر تكبر الصورة صورة قاعدة بيانات.accdb

ماشاء الله تبارك الرحمن الله يقويك ويعطيك العافيه يارب ويحفظك ربي ونفع بك الناس

أخي @بلانك ، بعد السلام عليكم ورحمة الله وبركاته .. الأصل ان ترفق ملفك غير محمي بكلمة مرور لمحرر الأكواد . نظراً لأن العمل لن يكون في المعادلات كونك تستعمل الدائرة Shape . لذا ترفق بنا فيما بعد لتلافي هذا الخطأ أيضاً عليك اختيار عنوان صحيح وذو دلالة للمطلوب . وليس عنواناً مبهماً استفسارياً ، حتى لا يتعرض موضوعك للإغلاق مخالفاً لقواعد المشاركات .. وعليه ومن خلال النظر للملف ودون محاولة مني لكسر حمايته ، جرب الدالة التالية واستدعيها في زر خاص بها :- Sub CountShapesPerRow() Dim ws As Worksheet Dim shp As Shape Dim r As Long Dim countRow(10 To 14) As Integer Dim countRow2(18 To 22) As Integer Set ws = ThisWorkbook.Sheets("Sheet1") For Each shp In ws.Shapes For r = 10 To 14 If Not Intersect(ws.Range("C" & r & ":J" & r), shp.TopLeftCell) Is Nothing Then countRow(r) = countRow(r) + 1 End If Next r For r = 18 To 22 If Not Intersect(ws.Range("C" & r & ":J" & r), shp.TopLeftCell) Is Nothing Then countRow2(r) = countRow2(r) + 1 End If Next r Next shp For r = 10 To 14 ws.Range("M" & r).Value = countRow(r) Next r For r = 18 To 22 ws.Range("M" & r).Value = countRow2(r) Next r End Sub ما لم تفلح معك الفكرة ، اعد رفع الملف بدون حماية محرر الأكواد إذا تكرمت .

الكثير منا حاول استعادة تطبيقات ومشاريع له موجودة على الإنترنت بهدف التعديل والتطوير . وبعد الإستفسار الذي طرحته في هذا الموضوع هنا - ولم أجد حلاً مجانياً سوى مقترحات الإخوة ( مشكورين جميعاً ) - كان هناك العديد من المقترحات حول برامج وأدوات مدفوعة تتطلب اشتراكاً مقابل مبالغ مادية عالية جداً ؛ رغم كفاءتها لمن جربها ونصح بها . لذا كانت خطوتي الأولى بالتوجه لكسر حماية آكسيس عند التعامل مع ملفات Accde\Mde حصراً ، بأنها لا تسمح لنا سوى استعادة الجداول والاستعلامات تقريباً . وهنا تمت منافسة العديد من هذه البرامج والأدوات كخطوة أولى - في الشرق الأوسط - وعربياً ، بأنه لا احتكار بعد اليوم للأجانب في مثل هذه الأدوات . وعليه فقد قمت بإطلاق الإصدار الأول من هذه الأداة بأسلوب بسيط جداً لاستخراج مكونات قاعدة البيانات كاملة ( بدون أكواد الـ VBA ) ، توفيراً للوقت والجهد في البدء من نقطة الصفر . ودون الإطالة ، دعوني أدخل صلب الموضوع :- مميزات الأداة :- 1️⃣ الأداة بعد تجربتها على عدة إصدارات ، أصبحت قادرة على التعامل مع الإصدارات من أكسيس 2000 وحتى آكسيس 365 بفضل الله . 2️⃣ الأداة قادرة على التعرف على تفاصيل قاعدة البيانات الـ Accde بإحصاء عدد مكوناتها ( جداول وتقارير ونماذج ومديولات واستعلامات ) ، وإصدار الأوفيس تقريباً بنسبة 80% من خلال الزر Get Version . 3️⃣ الأداة قادرة على فتح وضع التصميم للنماذج والتقارير في صيغة الـ Accde من خلال الزر Dump Access . 4️⃣ الأداة أيضاً قادرة على استخراج جميع المكونات لقاعدة البيانات Accde بعد كسرها ، من خلال الزر Crack File ، واستيرادها إلى قاعدة بيانات جديدة فارغة خالية من أي حماية او أكواد VBA . 5️⃣ من خلال الزر DNA DB File ، ستصبح الأداة قادرة على تحليل الشيفرة الوراثية ( اسم أطلقته على هذه الوظيفة ) ، وجلب كافة أكواد الـ VBA للمشروع كاملاً متكاملاً كما هو في أصله ، قبل حفظه بصيغة Accde . ( قيد العمل وتستغرق وقتاً لبناء مكتبة خاصة بها مبنية على ملف VBA7.Dll ) . 7️⃣ الأداة تدعم التحديث الهوائي OTA - فكرة نفذتها سابقاً - حال صدور أي تحديثات جديدة . لذا لا حاجة لحذف الملف وتحميل الإصدار الجديد ، وستعمل النسخ المفعلة كما كانت عليه دون تأثر . طريقة العمل على الأداة :- 1️⃣ بعد فتح الأداة ، ستكون المدة التجريبية لها 7 أيام . ومن ثم تفتح لكم الواجهة الرئيسية . ونبدأ بالزر الرئيسي Recovery الموجود أقصى يسار الواجهة في الأعلى . 2️⃣ سيظهر لنا الزر Select DB لاختيار ملف قاعدة البيانات . 3️⃣ يجب إختيار إصدار أوفيس المتوافق مع الملف الذي تم اختياره سابقاً ، من الجزء Select DB File Version ، بشكل يدوي . 4️⃣ لتجربة فتح وضع التصميم ، جرب الوظيفة في الزر Dump Access . وسيتم انشاء المجلد FokshDump على سطح المكتب . وعند انتهاء الأداة من وظيفتها ، اذهب للمجلد وافتح قاعدة البيانات الناتجة وجرب وضع التصميم - واستمتع 😎 . 5️⃣ لتجربة استخراج جميع المكونات ( جداول ، تقارير ، نماذج ، ماكرو ) ، بعد اختيارك لقاعدة البيانات واختيار الإصدار المتوافق معها ، فقط ما عليك سوى النقر على الزر Crack File . وستلاحظ أن المشروع الذي اخترته تم فتحه تلقائياً ويتم معالجته وإعداده لمرحلة الكسر وحذف بصمة مايكروسوفت أوفيس منه لينتقل الى مرحلة الإستيراد الكاملة . لذا اتركه يعمل كما يريد ( ستلاحظ انه يقوم بفتح التقارير والنماذج واغلاقها تلقائياً والتعامل مع الرسائل .... إلخ تلقائياً ) . لذا لا تقاطعه عزيزي المستخدم 😁 . 6️⃣ تستطيع في أي مرحلة النقر على الزر Stop لإيقاف العملية كاملة . واجهة الأداة :- تفعيل الأداة :- 💢 تركت المجال لتجربة الموضوع الذي طرحته سابقاً هنا ، لتجربة التفعيل بشكل كامل على مستخدمين متعددين ، لمن يرغب 😎 . تحميل الأداة :- الأداة متاحة فقط لإصدارات آكسيس 64 بت ، حالياً في المرفقات .. الواجهة مقتبسة من برنامج AccessFIX المدفوع . Accde Dumper.zip

و فى حل كمان بس انا عارف حضرتك مش بتحب الحل ده وهو ان ممكن نعمل كود يعدل اعدادت الويندوز من الريجسترى قبل بدء العمل

احد اكثر مشاكل الخلط بين الفاصلة والفاصلة المنقوطة ، هي عند عمل ملف csv ، وترى انه لا يفتح عند العميل !! الامثلة التالية لعمل هذا الملف بأربعة طرق مختلفة ، وترى نتيجة الطرق في صورة من ملفات الاكسل ادناه: 3 طرق عن طريق الامر #Print بإستعمال: الفاصلة Comma ، الفاصلة المنقوطة Semi Comma ، فاصل النظام عن طريق الدالة fList_Seperator (في الكود اعلاه). ومرة عن طريق الامر #Write والذي لا يحتاج الى فواصل Function make_csv_1() Dim file_path As String Dim i As Integer ' , file_path = CurrentProject.Path & "\csv_COMMA.csv" Open file_path For Output As #1 Print #1, "AscW" & "," & "الحرف" For i = 1575 To 1610 Print #1, i & "," & ChrW(i) Next i Close #1 ' ; file_path = CurrentProject.Path & "\csv_Semi_COMMA.csv" Open file_path For Output As #1 Print #1, "AscW" & ";" & "الحرف" For i = 1575 To 1610 Print #1, i & ";" & ChrW(i) Next i Close #1 ' Line Seperator file_path = CurrentProject.Path & "\csv_Separator.csv" Open file_path For Output As #1 Print #1, "AscW" & fList_Seperator & "الحرف" For i = 1575 To 1610 Print #1, i & fList_Seperator & ChrW(i) Next i Close #1 ' Write file_path = CurrentProject.Path & "\csv_Write.csv" Open file_path For Output As #1 Write #1, "AscW", "الحرف" For i = 1575 To 1610 Write #1, i, ChrW(i) Next i Close #1 End Function . . رجاء الانتباه ان نظام حاسبتي انجليزي وليس عربي ، لذلك فنتائجي قد تختلف عن نتائجك

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

مشاركة مع اساتذتي تفضل استاذ @بلال بلال مرفقك بعد التعديل . ووافني بالرد . البرنامج.rar

تم ارفاق قاعدة بيانات بسيطة للتجربة فى رأس الموضوع على الرغم من الشرح باستفاضة لعمل القاعدة

استاذ ممكن عمل نموذج بارك الله فيك

بالنسبة للرد على هذا السؤال نعم يوجد حل أخر وهو موجود بالتفصيل فى هذا الموضوع

نموذج مثلا باسم : frmPasswordPrompt العناصر داخل النموذج كالتالى مربع نص باسم : txtPassword زر امر للتأكيد باسم : btnOK زر امر للالغاء والاحباط باسم : btnCancel واستخدم الاكواد التالية فى هذا النموذج Private Sub Form_Load() Me.KeyPreview = True Me.txtPassword.Value = "" Me.txtPassword.SetFocus End Sub Private Sub btnOK_Click() PasswordConfirm Nz(Me.txtPassword.Value, "") DoCmd.Close acForm, Me.Name End Sub Private Sub btnCancel_Click() PasswordCancel DoCmd.Close acForm, Me.Name End Sub Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyEscape Then KeyCode = 0 btnCancel_Click End If End Sub قم بانشاء وحدة نمطية عامة اعطها مثلا اسم : basPasswordPrompt الاكواد داخل الوحدة النمطية تكون كالتالى : Option Compare Database Option Explicit Public Enum PasswordStatus psEmpty = 0 psInvalid = 1 psCancelled = 2 psMaxAttemptsExceeded = 3 psUnsupportedAction = 4 psDangerousSQL = 5 End Enum Public Enum ActionType atOpenForm = 0 atOpenQuery = 1 atOpenReport = 2 atPrintReport = 3 atDeleteAllRecords = 4 atExecuteSQL = 5 atRunGlobalFunction = 6 atRunFormMethod = 7 End Enum Private Const MAX_PASSWORD_ATTEMPTS As Long = 3 Private m_PasswordValue As String Private m_PasswordConfirmed As Boolean Private m_PasswordCancelled As Boolean Public Sub ExecuteAction( _ ByVal actionToExecute As ActionType, _ ByVal targetName As String, _ Optional ByVal expectedPassword As String = "", _ Optional ByVal callerForm As Access.Form = Nothing) On Error GoTo ErrorHandler If Len(Trim$(targetName)) = 0 Then Exit Sub Dim i As Long For i = 1 To MAX_PASSWORD_ATTEMPTS PromptPasswordForm If m_PasswordCancelled Then ShowMessage psCancelled Exit Sub End If If Len(m_PasswordValue) = 0 Then ShowMessage psEmpty GoTo NextTry End If If StrComp(m_PasswordValue, expectedPassword, vbBinaryCompare) <> 0 Then ShowMessage psInvalid GoTo NextTry End If ExecuteInternal actionToExecute, targetName, callerForm m_PasswordValue = "" Exit Sub NextTry: Next i ShowMessage psMaxAttemptsExceeded Exit Sub ErrorHandler: DoCmd.SetWarnings True m_PasswordValue = "" MsgBox Err.Number & " - " & Err.Description, vbCritical Debug.Print "ExecuteAction Error " & Err.Number & ": " & Err.Description End Sub Private Sub ExecuteInternal( _ ByVal actionToExecute As ActionType, _ ByVal targetName As String, _ ByVal callerForm As Access.Form) On Error GoTo ErrorHandler Select Case actionToExecute Case atOpenForm DoCmd.OpenForm targetName Case atOpenQuery DoCmd.OpenQuery targetName Case atOpenReport DoCmd.OpenReport targetName, acViewNormal Case atPrintReport DoCmd.OpenReport targetName, acViewNormal Case atDeleteAllRecords If MsgBox("هل أنت متأكد من حذف جميع السجلات؟", _ vbYesNo + vbCritical + vbDefaultButton2) <> vbYes Then Exit Sub End If SafeRunSQL "DELETE FROM [" & targetName & "]" Case atExecuteSQL If IsDangerousSQL(targetName) Then ShowMessage psDangerousSQL Exit Sub End If SafeRunSQL targetName Case atRunGlobalFunction Application.Run targetName Case atRunFormMethod If callerForm Is Nothing Then Exit Sub On Error Resume Next CallByName callerForm, targetName, VbMethod If Err.Number <> 0 Then MsgBox "Method '" & targetName & "' not found in form.", vbCritical Debug.Print "CallByName Error: " & Err.Description Err.Clear End If On Error GoTo ErrorHandler Case Else ShowMessage psUnsupportedAction End Select Exit Sub ErrorHandler: DoCmd.SetWarnings True MsgBox Err.Number & " - " & Err.Description, vbCritical Debug.Print "ExecuteInternal Error " & Err.Number & ": " & Err.Description End Sub Private Sub SafeRunSQL(ByVal sqlText As String) On Error GoTo ErrorHandler DoCmd.SetWarnings False DoCmd.RunSQL sqlText DoCmd.SetWarnings True Exit Sub ErrorHandler: DoCmd.SetWarnings True MsgBox "SQL Error " & Err.Number & vbCrLf & Err.Description, vbCritical Debug.Print "SafeRunSQL Error " & Err.Number & ": " & Err.Description End Sub Private Function IsDangerousSQL(ByVal sqlText As String) As Boolean Dim t As String t = Trim$(LCase$(sqlText)) If InStr(t, "drop ") > 0 Then IsDangerousSQL = True: Exit Function If InStr(t, "alter ") > 0 Then IsDangerousSQL = True: Exit Function If InStr(t, "create ") > 0 Then IsDangerousSQL = True: Exit Function If InStr(t, "truncate ") > 0 Then IsDangerousSQL = True: Exit Function If InStr(t, "--") > 0 Then IsDangerousSQL = True: Exit Function If InStr(t, "/*") > 0 Then IsDangerousSQL = True: Exit Function If InStr(t, "*/") > 0 Then IsDangerousSQL = True: Exit Function If InStr(t, ";") > 0 Then IsDangerousSQL = True: Exit Function If InStr(t, "delete ") > 0 And InStr(t, "where") = 0 Then IsDangerousSQL = True: Exit Function End If If InStr(t, "update ") > 0 And InStr(t, "where") = 0 Then IsDangerousSQL = True: Exit Function End If IsDangerousSQL = False End Function Public Sub PromptPasswordForm() m_PasswordValue = "" m_PasswordConfirmed = False m_PasswordCancelled = False DoCmd.OpenForm "frmPasswordPrompt", WindowMode:=acDialog End Sub Public Sub PasswordConfirm(ByVal passwordValue As String) m_PasswordValue = passwordValue m_PasswordConfirmed = True m_PasswordCancelled = False End Sub Public Sub PasswordCancel() m_PasswordValue = "" m_PasswordConfirmed = False m_PasswordCancelled = True End Sub Public Function GetLastPassword() As String GetLastPassword = m_PasswordValue End Function Public Function WasPasswordCancelled() As Boolean WasPasswordCancelled = m_PasswordCancelled End Function Public Sub ShowMessage(ByVal status As PasswordStatus) Dim sMsg As String Dim nIcon As Long Select Case status Case psEmpty sMsg = "الرجاء إدخال كلمة السر للمتابعة" nIcon = vbExclamation Case psInvalid sMsg = "كلمة سر خاطئة. حاول مرة أخرى" nIcon = vbCritical Case psCancelled sMsg = "تم إلغاء الإجراء" nIcon = vbInformation Case psMaxAttemptsExceeded sMsg = "تم تجاوز عدد المحاولات المسموح بها" nIcon = vbCritical Case psUnsupportedAction sMsg = "إجراء غير مدعوم" nIcon = vbExclamation Case psDangerousSQL sMsg = "تم رفض تنفيذ SQL لأسباب أمنية" nIcon = vbCritical End Select MsgBox sMsg, nIcon + vbMsgBoxRight, "مطالبة كلمة السر" End Sub '======================================================== ' امثلة الاستدعاء والاستخدام '======================================================== ' 1) فتح نموذج ' ExecuteAction atOpenForm, "FormName", "1234" ' ' 2) فتح استعلام ' ExecuteAction atOpenQuery, "QueryName", "1234" ' ' 3) فتح تقرير ' ExecuteAction atOpenReport, "ReportName", "1234" ' ' 4) طباعة تقرير ' ExecuteAction atPrintReport, "ReportName", "1234" ' ' 5) حذف سجلات ' ExecuteAction atDeleteAllRecords, "TableName", "1234" ' ' 6) تنفيذ SQL ' ExecuteAction atExecuteSQL, "UPDATE Table SET Field=1 WHERE ID=5", "1234" ' ' 7) استدعاء دالة عامة ' ExecuteAction atRunGlobalFunction, "MyFunction", "1234" ' ' 8) استدعاء دالة من النموذج الحالي ' ExecuteAction atRunFormMethod, "MyMethod", "1234", Me ' ' 9) فتح نموذج حسب كلمة المرور — في النموذج: ' Private Sub Command0_Click() ' ' Dim sPass As String ' Dim i As Long ' Const MAX_TRIES As Long = 3 ' ' For i = 1 To MAX_TRIES ' ' PromptPasswordForm ' sPass = GetLastPassword() ' ' If WasPasswordCancelled() Then ' MsgBox "تم إلغاء الإجراء", vbInformation + vbMsgBoxRight, "مطالبة كلمة السر" ' Exit Sub ' End If ' ' If Len(sPass) = 0 Then ' MsgBox "الرجاء إدخال كلمة السر للمتابعة", vbExclamation + vbMsgBoxRight, "مطالبة كلمة السر" ' GoTo NextTry ' End If ' ' Select Case sPass ' Case "123": DoCmd.OpenForm "Form1": Exit Sub ' Case "456": DoCmd.OpenForm "Form2": Exit Sub ' Case "789": DoCmd.OpenForm "Form3": Exit Sub ' Case Else ' MsgBox "كلمة سر خاطئة. حاول مرة أخرى", vbCritical + vbMsgBoxRight, "مطالبة كلمة السر" ' End Select ' 'NextTry: ' Next i ' ' MsgBox "تم تجاوز عدد المحاولات المسموح بها", vbCritical + vbMsgBoxRight, "مطالبة كلمة السر" 'End Sub '======================================================== وتستطيع استخدام اى شئ بتمرير و بتطبيق كلمة مرور اولا من خلال احد الاستدعاءات التالية ' 1) فتح نموذج طبعا مع تغيير : FormName باسم النموذج الذى تريد فتحه ExecuteAction atOpenForm, "FormName", "YourPassword" ' 2) فتح استعلام طبعا مع تغيير : QueryName باسم الاستعلام الذى تريد فتحه ExecuteAction atOpenQuery, "QueryName", "YourPassword" ' 3) فتح تقرير طبعا مع تغيير : ReportName باسم التقرير الذى تريد فتحه ExecuteAction atOpenReport, "ReportName", "YourPassword" ' 4) طباعة تقرير طبعا مع تغيير : ReportName باسم التقرير الذى تريد طباعته ExecuteAction atPrintReport, "ReportName", "YourPassword" ' 5) حذف سجلات طبعا مع تغيير : TableName باسم الجدول الذى تريد حذف سجلاته ExecuteAction atDeleteAllRecords, "TableName", "YourPassword" ' 6) تنفيذ SQL اكتبالجملة حسب تصميمك Dim SQLStatement As String SQLStatement = "UPDATE tblSettings SET IsActive=1 WHERE ID=" & Me.txtID.Value ExecuteAction atExecuteSQL, SQLStatement, "1234" ' 7) استدعاء دالة عامة من اى وحدة نمطية عامة ExecuteAction atRunGlobalFunction, "FunctionName", "YourPassword" ' 8) استدعاء أى وظيفة أو إجراء داخل النموذج الحالى ExecuteAction atRunFormMethod, "MethodName", "YourPassword", Me طبعا تغير كلم : YourPassword بكلمة المرور التى تريدها وكلمة المرور ليست ثابتة تستطيع تغييرها دائما مع الاستدعاءات المختلفة على سبيل المثال لو اردت فتح كل نموذج ولكل نموذج كلمة مرور خاصة به هو ExecuteAction atOpenForm, "frmA", "000" ExecuteAction atOpenForm, "frmB", "111" ExecuteAction atOpenForm, "frmC", "222" وأخيرا لو اردت فتح احد النماذج المتعددة ولكن كل نموذج حسب تمرير كلمة مرور خاصة به استخدم الكود التالى Private Sub Command0_Click() Dim sPass As String Dim i As Long Const MAX_TRIES As Long = 3 For i = 1 To MAX_TRIES PromptPasswordForm sPass = GetLastPassword() If WasPasswordCancelled() Then MsgBox "تم إلغاء الإجراء", vbInformation + vbMsgBoxRight, "مطالبة كلمة السر" Exit Sub End If If Len(sPass) = 0 Then MsgBox "الرجاء إدخال كلمة السر للمتابعة", vbExclamation + vbMsgBoxRight, "مطالبة كلمة السر" GoTo NextTry End If Select Case sPass Case "123": DoCmd.OpenForm "Form1": Exit Sub Case "456": DoCmd.OpenForm "Form2": Exit Sub Case "789": DoCmd.OpenForm "Form3": Exit Sub Case Else MsgBox "كلمة سر خاطئة. حاول مرة أخرى", vbCritical + vbMsgBoxRight, "مطالبة كلمة السر" End Select NextTry: Next i MsgBox "تم تجاوز عدد المحاولات المسموح بها", vbCritical + vbMsgBoxRight, "مطالبة كلمة السر" End Sub فعندما يتم فتح نموذج المطالبة بكلمة مرور لو تم استخدام كلمة المرور : 123 يتم فتح النموذج : Form1 لو تم استخدام كلمة المرور : 456 يتم فتح النموذج : Form2 لو تم استخدام كلمة المرور : 789 يتم فتح النموذج : Form3 بديل InputBox.accdb

المطلوب : معادلات لتقسيم العدد في الخلية N9 , الخلية N17 على الاسبوع كما هو مبين بحيث بعض الايام ليس بها حصص والاخر به حصص لجميع ايام الاسبوع الاستمارة ك.xlsm

المهم انت عندك .. ده كفاية وانت من جواك عارف ومتيقن انى لو عاوز اعمل زيها بفضل الله سبحانه وتعالى هقدر 😉 ... برضو ده عندى كفاية 😛

عندك زيها 😉 😛

انت بتفكرني بـ " أذاكر وأنجح " 😂 انت لو قرأت الموضوع كويس كان عرفت انه الملف اللي انت محتاجه موجود في أول مشاركة 😉

الكود الافضل فى الوحدة النمطية تتم كتابته بالشكل التالى Option Compare Database Option Explicit #If VBA7 Then Private Declare PtrSafe Function CallNextHookEx Lib "user32" _ (ByVal hHook As LongPtr, ByVal nCode As Long, _ ByVal wParam As LongPtr, ByVal lParam As LongPtr) As LongPtr Private Declare PtrSafe Function GetModuleHandle Lib "kernel32" Alias "GetModuleHandleA" _ (ByVal lpModuleName As String) As LongPtr Private Declare PtrSafe Function SetWindowsHookEx Lib "user32" Alias "SetWindowsHookExA" _ (ByVal idHook As Long, ByVal lpfn As LongPtr, _ ByVal hMod As LongPtr, ByVal dwThreadId As Long) As LongPtr Private Declare PtrSafe Function UnhookWindowsHookEx Lib "user32" _ (ByVal hHook As LongPtr) As Long Private Declare PtrSafe Function GetClassName Lib "user32" Alias "GetClassNameA" _ (ByVal hWnd As LongPtr, ByVal lpClassName As String, _ ByVal nMaxCount As Long) As Long Private Declare PtrSafe Function EnumChildWindows Lib "user32" _ (ByVal hWndParent As LongPtr, ByVal lpEnumFunc As LongPtr, _ ByVal lParam As LongPtr) As Long Private Declare PtrSafe Function SendMessage Lib "user32" Alias "SendMessageA" _ (ByVal hWnd As LongPtr, ByVal wMsg As Long, _ ByVal wParam As LongPtr, ByVal lParam As LongPtr) As LongPtr Private Declare PtrSafe Function GetCurrentThreadId Lib "kernel32" () As Long Private m_hHook As LongPtr #Else Private Declare Function CallNextHookEx Lib "user32" _ (ByVal hHook As Long, ByVal nCode As Long, _ ByVal wParam As Long, ByVal lParam As Long) As Long Private Declare Function GetModuleHandle Lib "kernel32" Alias "GetModuleHandleA" _ (ByVal lpModuleName As String) As Long Private Declare Function SetWindowsHookEx Lib "user32" Alias "SetWindowsHookExA" _ (ByVal idHook As Long, ByVal lpfn As Long, _ ByVal hMod As Long, ByVal dwThreadId As Long) As Long Private Declare Function UnhookWindowsHookEx Lib "user32" _ (ByVal hHook As Long) As Long Private Declare Function GetClassName Lib "user32" Alias "GetClassNameA" _ (ByVal hWnd As Long, ByVal lpClassName As String, _ ByVal nMaxCount As Long) As Long Private Declare Function EnumChildWindows Lib "user32" _ (ByVal hWndParent As Long, ByVal lpEnumFunc As Long, _ ByVal lParam As Long) As Long Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" _ (ByVal hWnd As Long, ByVal wMsg As Long, _ ByVal wParam As Long, ByVal lParam As Long) As Long Private Declare Function GetCurrentThreadId Lib "kernel32" () As Long Private m_hHook As Long #End If Private Const WH_CBT As Long = 5 Private Const HCBT_ACTIVATE As Long = 5 Private Const HC_ACTION As Long = 0 Private Const EM_SETPASSWORDCHAR As Long = &HCC Private Const EM_GETPASSWORDCHAR As Long = &HD2 Private Const PASSWORD_CHAR As Long = 42 Private Const DIALOG_CLASS As String = "#32770" Private Const EDIT_CLASS As String = "Edit" #If VBA7 Then Public Function EnumChildProc(ByVal hWnd As LongPtr, ByVal lParam As LongPtr) As Long Dim sClass As String Dim nChars As Long Dim verifyChar As LongPtr #Else Public Function EnumChildProc(ByVal hWnd As Long, ByVal lParam As Long) As Long Dim sClass As String Dim nChars As Long Dim verifyChar As Long #End If sClass = String$(256, vbNullChar) nChars = GetClassName(hWnd, sClass, 255) If nChars <= 0 Then EnumChildProc = 1 Exit Function End If If Left$(sClass, nChars) <> EDIT_CLASS Then EnumChildProc = 1 Exit Function End If SendMessage hWnd, EM_SETPASSWORDCHAR, PASSWORD_CHAR, 0 verifyChar = SendMessage(hWnd, EM_GETPASSWORDCHAR, 0, 0) If verifyChar = PASSWORD_CHAR Then EnumChildProc = 0 Else EnumChildProc = 1 End If End Function #If VBA7 Then Public Function HookCallback(ByVal nCode As Long, ByVal wParam As LongPtr, ByVal lParam As LongPtr) As LongPtr #Else Public Function HookCallback(ByVal nCode As Long, ByVal wParam As Long, ByVal lParam As Long) As Long #End If Dim sClassName As String Dim nChars As Long If nCode < HC_ACTION Then HookCallback = CallNextHookEx(m_hHook, nCode, wParam, lParam) Exit Function End If If nCode = HCBT_ACTIVATE Then sClassName = String$(256, vbNullChar) nChars = GetClassName(wParam, sClassName, 255) If nChars > 0 Then If Left$(sClassName, nChars) = DIALOG_CLASS Then EnumChildWindows wParam, AddressOf EnumChildProc, 0 End If End If End If HookCallback = CallNextHookEx(m_hHook, nCode, wParam, lParam) End Function Public Function SecureInputBox( _ ByVal Prompt As String, _ Optional ByVal Title As String = "", _ Optional ByRef WasCancelled As Boolean = False, _ Optional ByVal XPos As Long = -1, _ Optional ByVal YPos As Long = -1) As String Dim sResult As String Dim threadID As Long #If VBA7 Then Dim hMod As LongPtr #Else Dim hMod As Long #End If If Len(Trim$(Prompt)) = 0 Then err.Raise vbObjectError + 1001, "SecureInputBox", "Prompt cannot be empty." End If On Error GoTo SafeExit threadID = GetCurrentThreadId() hMod = GetModuleHandle(vbNullString) m_hHook = SetWindowsHookEx(WH_CBT, AddressOf HookCallback, hMod, threadID) If m_hHook = 0 Then err.Raise vbObjectError + 1002, "SecureInputBox", "Failed to install Windows hook." End If If XPos >= 0 And YPos >= 0 Then sResult = InputBox(Prompt, Title, "", XPos, YPos) Else sResult = InputBox(Prompt, Title, "") End If WasCancelled = (StrPtr(sResult) = 0) SecureInputBox = sResult SafeExit: If m_hHook <> 0 Then UnhookWindowsHookEx m_hHook m_hHook = 0 End If If err.Number <> 0 Then Dim errNum As Long, errDesc As String errNum = err.Number errDesc = err.Description err.Clear err.Raise errNum, "SecureInputBox", errDesc End If End Function Public Sub ZeroString(ByRef sValue As String) If Len(sValue) > 0 Then sValue = String$(Len(sValue), vbNullChar) End If End Sub فى زر الامر يتم الاستدعاء بالشكل التالى Dim strPWord As String Dim strTitle As String Dim isCancel As Boolean strTitle = "سبحان الله وبحمده سبحان الله العظيم" strPrompt = "كلمة المرور مطلوبة للمتابعة." strPWord = SecureInputBox(strPrompt, strTitle, isCancel) If isCancel Then Exit Sub If strPWord = "1001" Then DoCmd.OpenForm "frmPassStars", acNormal Else MsgBox "الرقم السري الذي أدخلته غير صحيح - من فضلك أدخل الرمز الصحيح", vbExclamation, str_Title End If ZeroString strPWord

خلينا نرد الرقم &H1324 مش ثابت بيشتغل في أغلب الحالات لكن ممكن يفشل حسب إصدار الاوفيس او الويندوز دا غير ان لو حصل Error قبل : UnhookWindowsHookEx hHook الهـوك هيفضل شغال فى زر الامر تم استخدام : Cancel = True Cancel بيستخدم فقط في Events فيها معامل : Cancel مثلا زى : Form_BeforeUpdate(Cancel As Integer) يعنى من الاخر السطر ده : Cancel = True مالوش أي تأثير والمفروض ينحذف كمان استخدام : DoCmd.SetWarnings False مالوش أى لزوم هنا لانه بيستخدم مع الاستعلامات لمنع الرسائل الافتراضية فقط والرد الشافى فى النقطة دى المعامل الثالث (Default) هو النص الافتراضي داخل مربع الإدخال فيه احتمالين للمشكلة مع 32 بت الاول : الهوك بيشتغل لحظة إنشاء النافذة وجود نص افتراضي (Default) يخلي الكنترول يتعمل له تهيئة بطريقة مختلفة النتيجة: الـ Password masking (*) ما يتطبقش أو يحصل خلل الثانى : اختلاف داخلي في الـ : InputBox (32 بت مقابل 64 بت) الـ Edit control ID (&H1324) بيتأثر بوجود Default Text مع النواة 32 او مع احد الاصدارات والنتيجة : EM_SETPASSWORDCHAR ممكن تروح لعنصر غلط أو تفشل طيب السؤال الان هل الحل ده صح و جذرى: InputBoxDK("Password required to proceed.", str_Title) من حيث الصحة : جزئيا صح ولكن مش جذرى ومش احترافى ومش الأصح طيب إيه الحل الصح : strAdminPWord = InputBoxDK("Password required to proceed.", str_Title, "") وبعد ان قمنا بالتفنيد والرد المناسب واللى ماله علاقة اساسا بالمشكلة مناط السؤال المشكلة الحقيقية تكمن فى خلل بقاعدة البيانات المرفقه نفسها لو عملت قاعدة جديدة وقمت باستيراد العناصر ( النماذج والوحدة النمطية العامة ) تقريبا سوف تنحل مشكلتك والسبب فى الصورة التالية من قاعدتك أكود لعناصر شبحية تم حذفها ولكن مازالت عالقة بالقاعدة

اه هو فعلا خبرة مفيش كلام وكلنا وانا تتمنى نستفيد من الخبرة دى

حلوة الافكار مفيش كلام بس معلش الانترنت بعافية كان نفسي والله بس يا خسارة وبرضو حلوة الثقة مفيش كلام

وحقا عمل جميل ورائع ونتمنى نتمنى منك عندما ينتهي البرنامج ياريت ترفعه مفتوح المصدر لكي نستفيد من خبراتك