Barna

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

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

انظر الصور وضع الكود في حدث بعد التحديث ........ 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

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

لاحظ الاجمالي في الحالتين ؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟

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

غير التسمية التوضيحية للزر الى تحديد الكل بدلا من تغيير ثم استخدم هذا الكود ...... Select Case Me.chng.Caption Case Is = "تحديد الكل" CurrentDb.Execute "update tabl set prentss = True" Me.Refresh Me.chng.Caption = "الغاء الكل" Case Else CurrentDb.Execute "update tabl set prentss = False" Me.Refresh Me.chng.Caption = "تحديد الكل" End Select

طيب جرب هذا <|<><><><><><|> Dim rst As DAO.Recordset Set dbs = CurrentDb date_custom = Date If Len(Me.number_custom & "") <> 0 Then Exit Sub Me.number_custom = Nz(DMax("[number_custom]", "tbl_custom", "year([date_custom])=" & Year(date_custom)), 0) + 1 Set rst = dbs.OpenRecordset("FrmRretsQ") d = Me.number_custom DoCmd.RunCommand acCmdSaveRecord Do Until rst.EOF rst.Edit rst!number_custom = d rst!date_custom = Date rst!emp_company = DYear rst.Update d = d + 1 rst.MoveNext Loop Me.Requery