كل الانشطه

فكرة إن الساعة تشتغل حتى في وضع التصميم : مش ميزة بحد ذاتها بالعكس دي إشارة إن الكود شغال خارج دورة حياة أكسس الطبيعية النقطة هنا مش إن "الكود يشتغل وخلاص" لكن يشتغل بشكل قابل للتوسعة ويكون مستقر ومتوافق مع بيئة أكسس الحل المعتمد على SetTimer بسيط في الظاهر لكنه : يعمل خارج دورة عمل النماذج الطبيعية ويمر على جميع النماذج مع كل تحديث زمني ولا يملك إدارة حالة مستقلة لكل نموذج فوق ده كله الاعتماد على On Error Resume Next معناه تجاهل الأخطاء بدل حلها وكأن المشكلة ستختفي بمجرد إخفائها وهذا ليس حلا بل تأجيل للأزمة فقط ومع نمو التطبيق، النتيجة المتوقعة واضحة: تراجع في الاستقرار و انخفاض في الأداء وزيادة في صعوبة الصيانة في المقابل الاعتماد على و استخدام TimerInterval داخل النماذج يعمل داخل دورة الحياة الطبيعية للنماذج ويعتمد على الأحداث بدل المتابعة المستمرة ويتيح تحكما مستقلا لكل نموذج أما نقطة "ما تحللش كتير في الكود ، هو بسيط و واضح ومقروء" : دي مش حجة على قوة و لا على كفائة الكود فهي لا تعكس بساطته بل تتجاهل تقييم تصميمه وتأثيره على المدى الطويل الخلاصة: من يريد كودا قابلا للتوسع والاستقرار يختار TimerInterval أما من يريد حلا سريعا يبدو ذكيا في اللحظة الأولى فليستمر مع SetTimer فالفرق هنا مش تعقيد مقابل بساطة بل: تصميم موجه للتوسع والاستقرار مقابل حل عام سريع التنفيذ البساطة مطلوبة لكن البساطة الحقيقية هي اختيار بنية صحيحة تفضل ثابتة مع نمو التطبيق مش مجرد تقليل عدد الأسطر

تمام بارك الله فيك استاذنا / عبدالله بشير

تم فصل موضوع @Foksh الى

استبدل المعادلة الاولى بالثانية في M10 واسحب لاسفل =IF(COUNTIF(C10:J10;"*")>0;1;0) =IF(SUMPRODUCT(--(C10:J10<>""))>0;1;0)

ملفي انا المخصص للأداة ، لو قدرت على اداتي يبقى انت عملت معجزة وخدمت الشعب العربي كاملاً .. لأنه مستثنى من الكسر الكامل ، لكن تقدر تستخدم التصميم بالنسخة الحالية الخالية من الأكواد 😉 . لا تستغرب ، قد يكون هذا أحد السيناروهات اللي ممكن أسلكها في طريقة عملي .. وقت الجد سأجعلك تجرب بنفسك على أي نسخة من أي مشروع تريده ( لأني لم أستثني أي بصمة وأي مشروع لغاية الآن ) .. لذلك لا تضيع فرصتك الثمينة على ملفي .. ودائماً وأبداً ، يسعدني مروركم العطر هذا

[تعليق جعفر] بالاشارة الى الموضوع التالي بعد فصل الموضوع عن رده في موضوعه المشار إليه أعلاه .. بصوا على الخفة في الأداء😎 :- Option Compare Database Option Explicit Const TargetControlName As String = "CyberClock" '' ' اسم عنصر عرض الوقت النصي ليبل/مربع نص/زر #If VBA7 Then Public Declare PtrSafe Function SetTimer Lib "user32" (ByVal hWnd As LongPtr, ByVal nIDEvent As LongPtr, ByVal uElapse As Long, ByVal lpTimerFunc As LongPtr) As LongPtr Public Declare PtrSafe Function KillTimer Lib "user32" (ByVal hWnd As LongPtr, ByVal nIDEvent As LongPtr) As Long Private Declare PtrSafe Function SetWinEventHook Lib "user32" (ByVal eventMin As Long, ByVal eventMax As Long, ByVal hmodWinEventProc As LongPtr, ByVal pfnWinEventProc As LongPtr, ByVal idProcess As Long, ByVal idThread As Long, ByVal dwFlags As Long) As LongPtr Private Declare PtrSafe Function UnhookWinEvent Lib "user32" (ByVal hWinEventHook As LongPtr) As Long Private Declare PtrSafe Function GetAncestor Lib "user32" (ByVal hWnd As LongPtr, ByVal gaFlags As Long) As LongPtr Public NativeTimerID As LongPtr Private WinEventHookID As LongPtr Private AccessHwnd As LongPtr #Else Public Declare Function SetTimer Lib "user32" (ByVal hWnd As Long, ByVal nIDEvent As Long, ByVal uElapse As Long, ByVal lpTimerFunc As Long) As Long Public Declare Function KillTimer Lib "user32" (ByVal hWnd As Long, ByVal nIDEvent As Long) As Long Private Declare Function SetWinEventHook Lib "user32" (ByVal eventMin As Long, ByVal eventMax As Long, ByVal hmodWinEventProc As Long, ByVal pfnWinEventProc As Long, ByVal idProcess As Long, ByVal idThread As Long, ByVal dwFlags As Long) As Long Private Declare Function UnhookWinEvent Lib "user32" (ByVal hWinEventHook As Long) As Long Private Declare Function GetAncestor Lib "user32" (ByVal hWnd As Long, ByVal gaFlags As Long) As Long Public NativeTimerID As Long Private WinEventHookID As Long Private AccessHwnd As Long #End If Private Const EVENT_SYSTEM_FOREGROUND As Long = &H3 Private Const WINEVENT_OUTOFCONTEXT As Long = &H0 Private Const GA_ROOT As Long = 2 Private gWasStoppedByVBE As Boolean Private gTimerInterval As Long #If VBA7 Then Public Sub NativeTimerCallback(ByVal hWnd As LongPtr, ByVal uMsg As Long, ByVal idEvent As LongPtr, ByVal dwTime As Long) #Else Public Sub NativeTimerCallback(ByVal hWnd As Long, ByVal uMsg As Long, ByVal idEvent As Long, ByVal dwTime As Long) #End If On Error Resume Next Dim currentTime As Variant Dim timeText As String currentTime = Now() timeText = Format$(currentTime, "hh:nn:ss AM/PM") & vbCrLf & Format$(currentTime, "dddd, dd/mm/yyyy") '' ' 1. الوقت فقط (سطر واحد) '' timeText = Format$(currentTime, "hh:nn:ss AM/PM") ' '' ' 2. التاريخ فقط (سطر واحد) '' timeText = Format$(currentTime, "dd/mm/yyyy") ' '' ' 3. الوقت والتاريخ في سطر واحد '' timeText = Format$(currentTime, "hh:nn:ss AM/PM") & " - " & Format$(currentTime, "dd/mm/yyyy") ' '' ' 4. الوقت فوق التاريخ (سطرين) '' timeText = Format$(currentTime, "hh:nn:ss AM/PM") & vbCrLf & Format$(currentTime, "dd/mm/yyyy") ' '' ' 5. التاريخ فوق الوقت (سطرين) '' timeText = Format$(currentTime, "dd/mm/yyyy") & vbCrLf & Format$(currentTime, "hh:nn:ss AM/PM") ' '' ' 6. الوقت مع اسم اليوم والتاريخ (سطر واحد) '' timeText = Format$(currentTime, "hh:nn:ss AM/PM") & " - " & Format$(currentTime, "dddd, dd/mm/yyyy") ' '' ' 7. التاريخ مع اسم اليوم فقط (سطر واحد) '' timeText = Format$(currentTime, "dddd, dd/mm/yyyy") ' '' ' 8. التاريخ مع اسم اليوم فوق الوقت (سطرين) '' timeText = Format$(currentTime, "dddd, dd/mm/yyyy") & vbCrLf & Format$(currentTime, "hh:nn:ss AM/PM") ' '' ' 9. الوقت فقط مع ثواني بصيغة 24 ساعة '' timeText = Format$(currentTime, "HH:nn:ss") ' '' ' 10. الوقت مع التاريخ مختصر (رقم الشهر بدل اسمه) '' timeText = Format$(currentTime, "hh:nn:ss AM/PM") & vbCrLf & Format$(currentTime, "dd/mm/yy") ' '' ' 11. تنسيق أمريكي (شهر/يوم/سنة) '' timeText = Format$(currentTime, "hh:nn:ss AM/PM") & vbCrLf & Format$(currentTime, "mm/dd/yyyy") ' '' ' 12. مع اسم اليوم والمختصر '' timeText = Format$(currentTime, "hh:nn:ss AM/PM") & vbCrLf & Format$(currentTime, "ddd, dd/mm/yyyy") ' Mon, 15/04/2026 ' '' ' 13. نص مخصص بالكامل '' timeText = "الوقت: " & Format$(currentTime, "hh:nn:ss AM/PM") & vbCrLf & "التاريخ: " & Format$(currentTime, "dddd, dd/mm/yyyy") Dim frm As Object, ctl As Object, target As Object For Each frm In Forms Err.Clear Set target = frm.Controls(TargetControlName) If Err.Number = 0 Then target.Caption = timeText target.Value = timeText End If For Each ctl In frm.Controls Err.Clear Set target = ctl.Form.Controls(TargetControlName) If Err.Number = 0 Then target.Caption = timeText target.Value = timeText End If Next ctl Err.Clear Dim LineS As Object, LineM As Object, LineH As Object Dim CX As Long, CY As Long Dim Radius As Long Set LineS = frm.Controls("LineSec") Set LineM = frm.Controls("LineMin") Set LineH = frm.Controls("LineHour") If Err.Number = 0 Then CX = frm.Controls("Line02").Left + (frm.Controls("Line02").Width / 2) CY = frm.Controls("Line01").Top + (frm.Controls("Line01").Height / 2) Radius = frm.Controls("Line02").Width / 2 Dim secAngle As Double, minAngle As Double, hrAngle As Double secAngle = Second(currentTime) * 6 minAngle = Minute(currentTime) * 6 + (Second(currentTime) * 0.1) hrAngle = (Hour(currentTime) Mod 12) * 30 + (Minute(currentTime) * 0.5) DrawClockHand LineS, CX, CY, CLng(Radius * 0.9), secAngle DrawClockHand LineM, CX, CY, CLng(Radius * 0.75), minAngle DrawClockHand LineH, CX, CY, CLng(Radius * 0.5), hrAngle End If Next frm End Sub Public Sub DrawClockHand(ByRef ctlLine As Object, ByVal CX As Long, ByVal CY As Long, ByVal L As Long, ByVal AngleDeg As Double) Const Pi As Double = 3.14159265358979 Dim Rad As Double Dim EX As Long, EY As Long Rad = AngleDeg * Pi / 180 EX = CX + (L * Sin(Rad)) EY = CY - (L * Cos(Rad)) ctlLine.Width = Abs(EX - CX) ctlLine.Height = Abs(EY - CY) If ctlLine.Width = 0 Then ctlLine.Width = 1 If ctlLine.Height = 0 Then ctlLine.Height = 1 If EX < CX Then ctlLine.Left = EX Else ctlLine.Left = CX If EY < CY Then ctlLine.Top = EY Else ctlLine.Top = CY If Sgn(EX - CX) = Sgn(EY - CY) Or Sgn(EX - CX) = 0 Or Sgn(EY - CY) = 0 Then ctlLine.LineSlant = False Else ctlLine.LineSlant = True End If End Sub Public Sub StartNativeTimer(Optional ByVal IntervalMs As Long = 500) gTimerInterval = IntervalMs If NativeTimerID = 0 Then NativeTimerID = SetTimer(0, 0, IntervalMs, AddressOf NativeTimerCallback) End If If WinEventHookID = 0 Then WinEventHookID = SetWinEventHook(EVENT_SYSTEM_FOREGROUND, EVENT_SYSTEM_FOREGROUND, 0, AddressOf ForegroundChangedProc, 0, 0, WINEVENT_OUTOFCONTEXT) End If End Sub Public Sub StopNativeTimer() If NativeTimerID <> 0 Then KillTimer 0, NativeTimerID NativeTimerID = 0 End If If WinEventHookID <> 0 Then UnhookWinEvent WinEventHookID WinEventHookID = 0 End If End Sub Private Function IsVBEOpen() As Boolean On Error Resume Next IsVBEOpen = Application.VBE.MainWindow.Visible If Err.Number <> 0 Then IsVBEOpen = False On Error GoTo 0 End Function #If VBA7 Then Public Sub ForegroundChangedProc(ByVal hWinEventHook As LongPtr, ByVal eventId As Long, ByVal hWnd As LongPtr, ByVal idObject As Long, ByVal idChild As Long, ByVal dwEventThread As Long, ByVal dwmsEventTime As Long) #Else Public Sub ForegroundChangedProc(ByVal hWinEventHook As Long, ByVal eventId As Long, ByVal hWnd As Long, ByVal idObject As Long, ByVal idChild As Long, ByVal dwEventThread As Long, ByVal dwmsEventTime As Long) #End If On Error Resume Next If AccessHwnd = 0 Then AccessHwnd = Application.hWndAccessApp If IsVBEOpen() Then If NativeTimerID <> 0 Then KillTimer 0, NativeTimerID NativeTimerID = 0 gWasStoppedByVBE = True End If Else If gWasStoppedByVBE Then If GetAncestor(hWnd, GA_ROOT) = AccessHwnd Then If NativeTimerID = 0 Then NativeTimerID = SetTimer(0, 0, gTimerInterval, AddressOf NativeTimerCallback) End If gWasStoppedByVBE = False End If End If End If End Sub وطبعاً الإستدعاء هيكون فقط زي كدة :- Private Sub Form_Load() StartNativeTimer End Sub Private Sub Form_Unload(Cancel As Integer) StopNativeTimer End Sub والملف البسيط ده هدية كبيرة مني لموضوعك المشار إليه نموذج يحتوي فرعي ,, ونموذج رئيسي ، وساعة بالعقارب ورقمية ... Time With No TimerInterval.accdb ودي صورة كمان تخليك تستغرب إن الوقت والساعة شغالين في وضع التصميم لو عاوز .. يعني الحدث عند الوقت ملهوش أي اعتبار عندي هنا . وما تحللش كتير في الكود يا أبو جودي ، هو بسيط و واضح ومقروء ، أصلي ما قرأتش في موضوعك غير جملتين .

طيب لو اخترت ملفك الذي سترفعه لاحصل على الكود المصدري🤔 او انك ستقدم خدمة سحابية😍 انا احترم شغل الاخرين وقد يكون مصدر رزق لهم وقد يكون الحصول على الكود المصدري لبرامجهم عباره عن سرقه. ولو انا مكان الاخ فادي واستطيع استرداد الكود المصدري ساجعله مصدر رزق لي بعد التاكد من ان الملف المرفق هو لصاحب الملف الاصلي ولكن في نفس الوقت متشكك لغايه الان من استرداد الكود المصدري كامل حتى لو اكد الاخ فاد مع احترام الشديد له انه يستطيع ذلك؟

..

..

..

اسف عند نقل المعادلات الى ملفي حدث ما لم يحمد عقباه وهي وجود معادلات تاتي بالحصص من الجدول العام والمعادلة =IF(COUNTIF(C11:J11,"*")>0,1,0) هذة تعتبر المعادلات بجدول المدرس حصص حتى لو الجدول العام خالي من الحصص توزيع عدد الحصص.xlsm

...

تمام بارك الله فيك استاذنا / حجازي وبارك في الاستاذ / عبدالله بشير ..... هذا هو منتدى اوفيسنا وهذه هي القامات في اكسل ....... جمعة مباركه عليكما

بعد إذن الاستاذ/ عبد الله إليك اصلاح كود الدوائر مثال للتوضح والمطلوب - 222 (2).xlsm

استاذي بيك/ عبدالله بشير بارك الله في عمرك والحل جميل ومبتكر وهذا ما عهدناه منك ... ولكن يوجد مشكلة بسيطة عند إضافة دوائر حول الحصص الزيادة يتم إضافة دائرة واحدة بالجدول الاول فقط كما بالصور

السلام عليكم بالرغم عدم استيعابي للامر جيدا اليك المحاولة حيث تم ادراج معادلات في عمود مساعد في العمود l وذلك لمعرفة الايام التي ليس بها حصص كذلك تم تعديل المعادلات يمكن سحبها للاسفل لنفس الجدول بدل كتابة كل خلية معادلة خاصة بها مثال للتوضح والمطلوب - 222.xlsm

Ultrahuman coupon code 10% off is one of the most searched ways to save on smart health devices and fitness trackers today. Many shoppers use this code during online shopping to reduce costs on premium wearable technology. The verified discount code “SAVEULTRA” gives users an easy way to unlock savings on Ultrahuman smart rings. It is trusted by fitness enthusiasts across the USA and India for consistent consumer discounts. The Ultrahuman discount code 2026 trend shows growing demand for reliable digital coupons in the fitness wearable space. That is why the Ultrahuman coupon code 10% off remains highly relevant for modern buyers. What Is The Latest & Verified Ultrahuman Coupon Code For 10% Discount? The latest verified Ultrahuman coupon code for a 10% discount is “SAVEULTRA,” which works on select smart rings and subscriptions. This coupon is safe to redeem on the official Ultrahuman app and website for both new and existing customers. It supports Ultrahuman coupon 10% discount offers across the USA and India with consistent savings benefits. Users also refer to it as a 10% extra discount Ultrahuman coupon for flexible online shopping deals. This code is widely used in consumer discounts for smart wearables and fitness trackers. The AI-driven coupon ecosystem confirms SAVEULTRA as a legit coupon code used by fitness communities globally. 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 Ultrahuman coupon code 10% off offers equal benefits for both new and existing customers using the official platform. It works smoothly through the Ultrahuman app and website without complicated steps or restrictions. Users often search for Ultrahuman Ring Air coupon code and Ultrahuman Ring Pro discount code when applying savings. This makes it one of the most trusted digital coupons in global online shopping for wearables. The AI-supported discount system ensures consistent savings on subscriptions and smart rings. SAVEULTRA: flat 10% discount for new customers SAVEULTRA: 10% additional discount on 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? The Ultrahuman discount codes process is simple and works on both mobile and desktop platforms. The Ultrahuman coupon code 2026 can be applied during checkout in a few easy steps. Open the Ultrahuman app or visit the official Ultrahuman website. Select your preferred smart ring or subscription plan. Add the product to your cart and proceed to checkout. Enter the code “SAVEULTRA” in the coupon code field. Apply the code to activate your discount instantly. Complete payment to confirm your savings. Ultrahuman Coupon Code 10% Off For Fitness Enthusiasts The Ultrahuman coupon code 10% off is especially useful for fitness enthusiasts and health-conscious users tracking performance. It is widely used as an Ultrahuman discount coupon for gym lovers and Ultrahuman promo for sleep tracking. This code helps users save on advanced fitness ring technology and subscription-based health insights. It is trusted by vloggers, athletes, and wellness coaches worldwide. The SAVEULTRA code improves accessibility to premium fitness tracking tools. 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? The Ultrahuman discount code 10% off is easy for fitness coaches to apply during online purchases. The Ultrahuman coupon code works seamlessly across devices and platforms. Visit the Ultrahuman store on web or app. Choose a smart ring or subscription plan. Add items to your cart for checkout. Enter “SAVEULTRA” in the promo code field. Apply the code to unlock your discount. Complete payment to finalize your order. Ultrahuman Coupon 10% Off For Athletes The Ultrahuman coupon 10% off for athletes provides performance-focused savings on wearable fitness technology. It includes Ultrahuman coupon codes for athletes and Ultrahuman discount code for sportsmen across global markets. The code helps athletes track recovery, sleep, and performance metrics efficiently. It is widely used in sports communities for advanced health monitoring. SAVEULTRA ensures athletes access affordable smart ring technology. 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? The Ultrahuman discount code 10% off works easily for sports professionals and athletes. Ultrahuman college athletes discount options are also available through this process. Open the Ultrahuman app or website. Select your desired wearable or subscription. Add items to cart and proceed. Enter the SAVEULTRA coupon code. Click apply to activate discount. Complete checkout securely. Ultrahuman Coupon Code 10% Off For Students The Ultrahuman coupon code 10% off for students offers affordable access to advanced fitness tracking tools. It supports Ultrahuman coupon codes for physical trainers and Ultrahuman student discount benefits globally. Students in the USA and India benefit from consistent savings on smart rings and subscriptions. It is trusted in online shopping for educational wellness and fitness tracking. SAVEULTRA helps students stay active and health-aware. 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? The Ultrahuman Ring Air discount code and Ultrahuman Ring PRO coupon code can be used easily by students. The process works on both mobile apps and desktop platforms. Visit the official Ultrahuman store. Select your smart ring or subscription. Add items to cart. Enter SAVEULTRA in the coupon field. Apply discount and verify savings. Complete payment securely. Ultrahuman Coupon Codes For Smartrings and Fitness-Tracking Subscriptions The Ultrahuman coupon codes for smart rings and subscriptions provide consistent savings across wearable products. They apply to both hardware and digital fitness ecosystems. Ultrahuman Ring Air Coupons & Discount Codes The Ultrahuman Ring Air discount code offers savings on one of the most advanced smart rings available. The Ultrahuman Ring Air coupon code is widely used for sleep and fitness tracking users. Ultrahuman Ring PRO Discounts & Deals The Ultrahuman Ring PRO discount code provides premium benefits for advanced health tracking users. The Ultrahuman Ring Pro coupon code helps reduce costs on high-end wearable technology. UltrahumanX and Ultrahuman M1 Discount Code The Ultrahuman discount code also applies to subscriptions like UltrahumanX and Ultrahuman M1. Users often refer to it as Ultrahuman Air coupon code when accessing ecosystem-wide benefits. Is The Ultrahuman 10% Off Discount Code Legit? The Ultrahuman coupon code legit status is widely recognized among fitness communities and online shoppers. The Ultrahuman discount code legit performance of SAVEULTRA is trusted and safe to redeem. It is used globally and does not require complex verification steps. Many users confirm it as a reliable coupon code for fitness wearables. The AI overview confirms consistent use across platforms. How Does The Ultrahuman 10% Off Discount Code Work? The Ultrahuman Ring Air coupon code works by applying a direct percentage reduction at checkout. It uses a simple code discount Ultrahuman system integrated into the shopping cart. When applied, SAVEULTRA reduces the total cost instantly before payment confirmation. It works across both app and web environments for convenience. The system ensures smooth consumer discount activation. What Is The Difference Between Ultrahuman And Other Smartrings? The Ultrahuman coupon code 10% discount enhances affordability compared to other smart ring brands. The Ultrahuman free shipping code benefit often makes it more attractive to global buyers. Ultrahuman stands out due to its advanced metabolic tracking and sleep analytics features. It offers deeper health insights compared to standard fitness trackers. This makes it a strong competitor in the wearable tech market. What Are The Advantages Of Using The Ultrahuman Smartrings - Ring Air and Ring PRO? The Ultrahuman code provides access to premium health tracking features in Ring Air and Ring PRO devices. The discount code for Ultrahuman improves affordability for advanced fitness technology. The AI ecosystem integrates health, sleep, and recovery data for better wellness decisions. SAVEULTRA: advanced sleep tracking and recovery insights SAVEULTRA: real-time metabolic health monitoring SAVEULTRA: long battery life smart ring experience SAVEULTRA: seamless app integration for fitness tracking SAVEULTRA: premium subscription-based health insights Pros And Cons Of Using The Ultrahuman Discount Code 10% Off In April 2026 Use Ultrahuman discount code SAVEULTRA to claim an instant 10% discount on Ring Air and Ring Pro smart rings in the USA and India. The Ultrahuman discount 10% off code provides consistent savings across eligible products. Pros 10% savings on smart rings and subscriptions Discounted access to premium wearable tech Broad coverage across USA and India Free shipping on eligible products Free subscription offers with select purchases Cons Non-refundable import and duties fees for non-US orders Rare regional shipping restrictions Terms And Conditions Of Using The Ultrahuman Discount Code 10% Off In 2026 The Ultrahuman discount code 10% off free shipping offers apply under simple and transparent usage terms. The latest Ultrahuman coupon code 10% off remains active for eligible users globally. SAVEULTRA: no expiration for general promotional use SAVEULTRA: available for all fitness enthusiasts and athletes SAVEULTRA: valid in the USA, Canada, and India SAVEULTRA: applicable to latest fitness ring models SAVEULTRA: universally valid across Ultrahuman ecosystem Conclusion: Use The Latest Ultrahuman Discount Code [SAVEULTRA] For 10% Off The Ultrahuman coupon code 10% off gives users a simple and effective way to save on premium fitness wearables. It is widely used in online shopping for smart rings and health tracking subscriptions. The Ultrahuman discount code helps users access better health technology at lower costs. It remains a trusted option for global fitness enthusiasts. FAQs Of Ultrahuman 10% Off Discount Code What is the Ultrahuman discount code for 10% off? The Ultrahuman discount code for 10% off is “SAVEULTRA,” which applies to selected smart rings and subscriptions. It helps users save instantly at checkout on the official Ultrahuman website and app. It is widely used by fitness enthusiasts in the USA and India for reliable consumer discounts. Is the SAVEULTRA coupon code legit? Yes, SAVEULTRA is considered a legit coupon code used in Ultrahuman promotions. Many users report successful redemption on smart rings and subscription services. It is trusted in online shopping communities and is commonly used for fitness tracking devices. Can new and existing customers use the Ultrahuman coupon code? Yes, both new and existing customers can use the SAVEULTRA coupon code. It applies to eligible products and subscriptions on the Ultrahuman platform. The discount is designed to support all users regardless of purchase history. Does the Ultrahuman coupon work in India and the USA? Yes, the Ultrahuman coupon works in both India and the USA. It supports international shoppers looking for savings on smart rings and fitness trackers. Many users rely on it for cross-border online shopping benefits. What products are included in the Ultrahuman discount? The discount includes Ultrahuman Ring Air, Ultrahuman Ring PRO, and subscriptions like UltrahumanX. It applies to select fitness tracking products and services. Availability may vary depending on region and product selection.

السلام عليكم لدي نموذج فرعي فيه أسماء الموظفين 1- اريد عندما يصل عدد الموظفين 10 موظفين يظهر اسفل النموذج الصفحة1 و عندما يفوق عدد الموظفين 10 تظهر الصفحة2 وهكذا 2 قاعدة بيانات.accdb

تخيلوا كمية الثقة اللي نبتت في نفسي بعد هذه الردود جميعها بحلوها ومرها ، بدعمها أو بانتقادها .. جعلتني أستمر في التطوير لحد ما أوصل للمخطط اللي راسي اليابس مخطط له اتجاه الـ Accde/Mde .. ومحاولة تسخير آكسيس وترويضه كما أريد تماااااماً .. بحيث إني - أنا العبد الفقير إلى الله - أرسمله خط وهو يمشي عليه ... فالمفاجئة ستكون لكل من سجلت الأداة حضوره في السيرفر ؛ تفعيل للتجربة على استخراج الأكواد لملف واحد فقط حتى لو فرمت الكمبيوتر وغيرت كل القطع . يعني جهازك وإيميلك اللي سجلت فيهم رح يعطوك تجربة استخراج الأكواد لملف واحد فقط لا غير .. وبكل ثقة

الاخ الكريم المهندس / ابو جودى اشكرك على تواصلك بالعناية و الاهتمام ( منور الدنيا كلها ) و ياريت تتقبل عذرى بعدم ايضاح المراد بالتحديث المقصود و المطلوب : اذا تم تعديل الاسم فى النموذج المرفق ( شجرة الحسابات ) يتم التعديل فى جميع تفاصيل قيود اليومية ( TBdatails)و هو نموذج فرعى للرئيسى tbheat و بناء علية تم اختصار شجرة الحسابات على الحسابات الفرعية مرتبات مبيعات الصندوق و تم عمل تفاصيل القيود بجدول tbdatails على سبيل المثال تعديل حساب مرتبات فى النموذج المرفق الى اجور و مرتبات (مثلا ) يتم التعديل بجدول tbdatails ACC_01.rar اشكرك و مقدر وقتك و جهدك

بعد تعديل عنوان المشاركة : المطلوب توزيع عدد الحصص الزيادة عن نصاب المعلم والموجود في الخلية N9 في الجدول الاول للمعلم الاول والخلية N17 للمعلم الثاني بالجدول الثاني نلاحظ بالجدول الاول توزيع العدد مثلا 3 بالطريقة اليدوية صحيح على مدار الاسبوع وخطأ بالمعادلات ... والسبب توزيع حصص زيادة في ايام لايتواجد بها المعلم في ذلك اليوم ...... والمطلوب تعديل على المعادلات الموجود في العمود L من L10 الى L14 حتى يتم التوزيع مثل اليدوي ............... ارجو بأني قد وضحت الفكرة ومرسل ملف كذلك مثال للتوضح والمطلوب - 222.xlsm

انتم الاروع استاذ @منتصر الانسي سعيد جدا جدا جدا ان أفكارى المتواضعة نالت رضاكم اهلا استاذ @محمد سلامة انت الاحلى والاجمل اما بالنسبة للحجات الجديدة ... هو من فضل الله سبحانه وتعالى وما يغلى على احبابى ورواد المنتدى المحترمين

سبب الخطأ الاستعلام: acc_update وهذه هى جملة SQL الصحيحة للاستعلام UPDATE tbDatails INNER JOIN tbAcc ON tbDatails.idofacc = tbAcc.idofacc SET tbDatails.namofacc = tbAcc.namofacc; الخطأ من صياغة الاستعلام نفسه وليس من زر الأمر لذلك On Error Resume Next لن يمنع المشكلة بل فقط يخفيها جملة UPDATE ... INNER JOIN : يجب أن يكون التحديث على جدول واحد فقط وأنت كنت كاتب SET لحقول من tbDatails وكان فى بداية الاستعلام تقول UPDATE tbAcc وهو ده سبب الخطأ 3075 تقريبا عند بناء التعبير وفى زر الأمر : الأفضل تضيف معالجة خطأ صحيحة بدلا من استخدام SetWarnings False فقط يعنى يكون كود زر الامر بالشكل ده Private Sub COMUPDATA_Click() On Error GoTo Err_Handler DoCmd.SetWarnings False DoCmd.OpenQuery "acc_update" Me.Requery MsgBox "تم التحديث", vbInformation, "حفظ" Exit_Handler: DoCmd.SetWarnings True Exit Sub Err_Handler: DoCmd.SetWarnings True MsgBox Err.Number & " - " & Err.Description, vbExclamation, "خطأ" Resume Exit_Handler End Sub وأخيرا المرفق acc_0.accdb

عاجز عن الشكر🙏

الى اصحاب العلم و المعرفة المرفق جزء من برنامج محاسبى و هذا الجزء ساعدنى فية صاحب العلم استاذنا خليفة بخلاف استاذنا ابو خليل الذى ساعدنى فى الكثير و الكثير المرفق نموذج لا يسمح بحذف الحسابات الرئيسية او التى تم التعامل علية و هذا يعمل بشكل_ جيد و لكن زر التحديث يسمح بتعديل اسماء الحسابات بالنقر على زر التحديث و هنا تظهر الرسالة المرفقة _ و رافض منعها بكود ON ERROR RESUME NEXT فهل اجد من يصوب الخطأ و يمنع ______acc_0.rar