Barna

كلامك صحيح مئة بالمئة وفي النهاية لا يصح الا الصحيح مثال (5).accdb

جدولك ليس فيه تواريخ ؟؟؟؟ ولكن ماذا لو كانت الاسماء كثيرة ؟؟؟؟؟؟ مشاركة مع حبيبنا الاستاذ @Foksh جرب هذه الطريقة !!!!! مثال (5).accdb

مشاركة مع اخي الاستاذ @محمد احمد لطفى في حدث عند تحميل النموذج ضع هذا الكود ... مع مسح الدالة الموجودة في مربع نص العمر بالسنوات Dim intH, years As Integer intH = Int(DateDiff("m", date_naissance, Date)) + _ (Date < DateSerial(Year(Date), Month(Date), Day(date_naissance))) years = Int(intH / 12) نص22 = years

لا ابدا ... انا شدتني هذه العبارة .... دائم اسلوبك جذاب كاخلاقك النبيلة ونقاء قلبك بارك الله فيك اخي الكريم محمد .. ونتعلم منك الاخلاق الكريمة ...

متابع بصمت ... بارك الله فيك

هل هذا ماتريد ؟؟؟؟

اضف هذا السطر المبين في الصورة

انظر الصور وضع الكود في حدث بعد التحديث ........ On Error GoTo Errw If Me.txt_tot = Me.Loan_Remise Then DoCmd.GoToRecord , , acNext For i = 1 To Me.Recordset.RecordCount DoCmd.SetWarnings False DoCmd.RunCommand acCmdSelectRecord DoCmd.RunCommand acCmdDeleteRecord DoCmd.SetWarnings True Next i Exit Sub Errw: DoCmd.GoToRecord , , acLast Me.Loan_Made = Me.Loan_Remise + Me.Payment_Made Else MsgBox "مبلغ الاعفاء لايغطي مبلغ الاقساط" End If

طيب لاحظ ... هذا .....

هل هذا ما تريد ؟؟؟؟ لكن ماذا لو كان المبلغ الدفوع اقل من الاقساط كلها يعني لو ارد تسديد قيمة قسطين فقط ؟؟؟؟؟؟؟؟؟؟ عل كل حال .... انظر حسب طلبك ....

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

هل هذا طلبك حسب فهمي للموضوع .... 2023.mdb

مشاركة مع استاذي الغالي @Eng.Qassim تفضل ...... المهن التربوية.accdb

Database3.accdb

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

بارك الله فيك اخي الكريم ..... الحمد لله رب العالمين .... واياك

وعليكم السلام اخي الفاضل لم افهم جيدا لسؤالك ولكن هل تقصد هذا الخيار ؟؟؟؟ ملف .... ثم تابع الصور ...

تابع هذا الموضوع والشرح الرائع من المبدع @jjafferr

طيب افتح النموذج ..... ثم اضغط على فتح التقرير ............................... جرب ‏‏‏‏‏‏‏‏‏‏مواد التظلم - Barna.accdb

نعم ممكن

جزاك الله خيرا على الدعوات ولك بمثله أخي @Moosak انا ضعيف جدا في الشروحات ولكن ... باختصار الطريقة هي عملنا ثلاث صور للاسهم ( أحمر - اصفر - اخضر ) يقوم الكود بالتاكد من القيم الموجودة في مربع النص وعند تحقق القيمة المطلوبة يظهر الصورة المطلوبة ويخفي بقية الصور اما بالنسبة للمؤشرات او الرسم البياني المبسط في تعتمد على مربعي تسمية ( احدهما لاعطاء اللون والاخر لنقل القيمة فيها) ..... يعمل الكود على تغيير حجم مربع التسمية الخاص باللون حسب القيمة الموجودة في حقل الاجمالي .... اتمنى اني وفقت في الشرح ... واسف ان لم اصتطع ايصال الفكرة .... ولكن مع تحليل التقرير يمكن ان تفهم الفكرة لأنها بسيطة جدا ..

امين واياك ....... طيب تفضل شوف كده استخدمنا هذه الاكواد ... Public Function PctMeter(varAmt As Variant, varTotal As Variant) Dim sngPct As Single sngPct = varAmt / varTotal If sngPct <= 1 Then Me!baselbl.Caption = Int(sngPct * 100) Me!lblmeter.Width = CLng(Me!baselbl.Width * sngPct) Else Me!baselbl.Caption = " القيمة أكبر من 100%" Me!lblmeter.Width = CLng(Me!baselbl.Width * 1) End If Select Case sngPct Case Is < 0.15 Me!lblmeter.BackColor = 255 Me.red_p.Visible = True Me.gre_p.Visible = False Me.yel_p.Visible = False Case Is < 0.5 Me!lblmeter.BackColor = 65535 Me.red_p.Visible = False Me.gre_p.Visible = False Me.yel_p.Visible = True Case Else Me!lblmeter.BackColor = 65280 Me.red_p.Visible = False Me.gre_p.Visible = True Me.yel_p.Visible = False End Select End Function Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer) i = 1 For i = i To 5 If (Me("Text" & 19 + i) / Me.Text25) * 100 < 20 Then Me(i & "_red").Visible = True Me(i & "_ger").Visible = False Me(i & "_yel").Visible = False ElseIf (Me("Text" & 19 + i) / Me.Text25) * 100 > 20 Then Me(i & "_red").Visible = False Me(i & "_ger").Visible = True Me(i & "_yel").Visible = False End If Next i Call PctMeter(Me.bar, 100) End Sub New Database - .accdb

طيب شوف الصورة هل هي مناسبة لك .....