Barna

طيب افتح النموذج ..... ثم اضغط على فتح التقرير ............................... جرب ‏‏‏‏‏‏‏‏‏‏مواد التظلم - 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

جرب هذا ............... If [Text16].Text Like "*Over*" Or [Text16].Text Like "*>*" Or [Text16].Text Like "*Positive*" Then [Text18] = "HIGH" ElseIf [Text16].Text Like "*LESS THAN*" Or [Text16].Text Like "*<*" Or [Text16].Text Like "*Negative*" Then [Text18] = "LOW" End If

اعتقد عندك مشكلة في العلاقات .... حاول ترتجعها .... على العموم هل هذا ما تريد ..... solaf2.accdb

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

مشاركة مع الاستاذ @دروب مبرمج في حدث الحالي للنموذج الفرعي الاول ضع هذا الحدث ...... Dim rs As DAO.Recordset On Error Resume Next Set rs = Me.RecordsetClone rs.FindFirst "[ItemNumber] = " & Me![ItemNumber] Me.Parent.FrmSubInvoice.Form.Bookmark = rs.Bookmark

اخي محمد جرب الكود التالي في حدث تحت الزر .... Dim a As Integer a = Forms![test1]![NumberEnd] Me("LastNumberx" & a) = Forms![test1]![NumberEnd]

لعل هذا ما تريد .... ضع هذا الحدث تحث زر GO واخبرنا ..... لأني لم افهم طريقتك في العمل .... Dim rs As Object Set rs = Forms![test1]![SUBX].Form.RecordsetClone rs.MoveLast Forms![test1]![SUBX].Form.Bookmark = rs.Bookmark Forms![test1]![LastNumberx] = Forms![test1]![SUBX].[Form]![NumberX] rs.Close DoCmd.Close

لم افهم عليك ؟؟؟؟؟ عند الضغط على GO يعطي خطأ ... انظر ...

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

اذا كان فهمي صحيح انظر الصورة =DMax("[NumberX]";"[SUBX]";"[id] ="& [Forms]![test1]![id1] &"")

هل اخي محمد برنامج الواتس مثبت لديك ....... اذا كانت الاجابة نعم ..... جرب هذا التحايل !!!! Dim IE As Object Set IE = CreateObject("InternetExplorer.Application") IE.Navigate "whatsapp://send?phone=" & "&text=" ملاحظة انتظر عدة ثواني لعمل البرنامج .................... اخي محمد حاول فهم الية عمل الكود لأن الشركة تقوم بتحديث برنامجها باستمرار .... فلذلك فهم الية عمل الكود يسهل عليك تعديل الكود كل ما احتجت اليه ....

في النموذج وفي حدث بعد التحديث لمربع النص الخاص بالرقم ضع هذا الكود If [Forms]![نمودج1]![الرقم] <= [Forms]![نمودج1]![نص12] Then Me.الرقم = "" MsgBox "الرقم مكرر" End If

هل هناك مانع من ارفاق مثال مبسط به التقرير

اخي الكريم ابحث في المنتدى تجد العديد من هذه الافكار مثل هذه

طبع ما في الصورة ...............