Barna
الخبراء-
Posts
982 -
تاريخ الانضمام
-
تاريخ اخر زياره
-
Days Won
24
نوع المحتوي
المنتدى
مكتبة الموقع
معرض الصور
المدونات
الوسائط المتعددة
كل منشورات العضو Barna
-
هل هذا ما تريد ؟؟؟؟ لكن ماذا لو كان المبلغ الدفوع اقل من الاقساط كلها يعني لو ارد تسديد قيمة قسطين فقط ؟؟؟؟؟؟؟؟؟؟ عل كل حال .... انظر حسب طلبك ....
-
ممكن كفكرة ... نصمم نموذج يشبه ذلك النموذج ونضع فيه خياراتنا للبحث ... لو سمح لي وقتي سوف اجربها
-
-
مشاركة مع استاذي الغالي @Eng.Qassim تفضل ...... المهن التربوية.accdb
-
ترتيب الاشهر فى الاستعلام والنموزج والتقرير
Barna replied to ahmedabuzena's topic in قسم الأكسيس Access
-
ترتيب الاشهر فى الاستعلام والنموزج والتقرير
Barna replied to ahmedabuzena's topic in قسم الأكسيس Access
وعليكم السلام ورحمة الله وبركاته .... تفضل .... Database3.accdb -
بارك الله فيك اخي الكريم ..... الحمد لله رب العالمين .... واياك
-
وعليكم السلام اخي الفاضل لم افهم جيدا لسؤالك ولكن هل تقصد هذا الخيار ؟؟؟؟ ملف .... ثم تابع الصور ...
-
تابع هذا الموضوع والشرح الرائع من المبدع @jjafferr
-
طيب افتح النموذج ..... ثم اضغط على فتح التقرير ............................... جرب مواد التظلم - Barna.accdb
-
-
مساعدة استطلاع بخصوص جلب قائمة الخطوط من النظام
Barna replied to عمر ضاحى's topic in قسم الأكسيس Access
نعم ممكن -
هل من الممكن عمل تقرير اكسس بالمؤشرات المتواجده بتقرير الاكسل المرفق
Barna replied to أمير ادم's topic in قسم الأكسيس Access
جزاك الله خيرا على الدعوات ولك بمثله أخي @Moosak انا ضعيف جدا في الشروحات ولكن ... باختصار الطريقة هي عملنا ثلاث صور للاسهم ( أحمر - اصفر - اخضر ) يقوم الكود بالتاكد من القيم الموجودة في مربع النص وعند تحقق القيمة المطلوبة يظهر الصورة المطلوبة ويخفي بقية الصور اما بالنسبة للمؤشرات او الرسم البياني المبسط في تعتمد على مربعي تسمية ( احدهما لاعطاء اللون والاخر لنقل القيمة فيها) ..... يعمل الكود على تغيير حجم مربع التسمية الخاص باللون حسب القيمة الموجودة في حقل الاجمالي .... اتمنى اني وفقت في الشرح ... واسف ان لم اصتطع ايصال الفكرة .... ولكن مع تحليل التقرير يمكن ان تفهم الفكرة لأنها بسيطة جدا .. -
هل من الممكن عمل تقرير اكسس بالمؤشرات المتواجده بتقرير الاكسل المرفق
Barna replied to أمير ادم's topic in قسم الأكسيس Access
امين واياك ....... طيب تفضل شوف كده استخدمنا هذه الاكواد ... 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 -
هل من الممكن عمل تقرير اكسس بالمؤشرات المتواجده بتقرير الاكسل المرفق
Barna replied to أمير ادم's topic in قسم الأكسيس Access
-
هل من الممكن عمل تقرير اكسس بالمؤشرات المتواجده بتقرير الاكسل المرفق
Barna replied to أمير ادم's topic in قسم الأكسيس Access
-
هل من الممكن عمل تقرير اكسس بالمؤشرات المتواجده بتقرير الاكسل المرفق
Barna replied to أمير ادم's topic in قسم الأكسيس Access
طيب زودنا بالاتي حتى نحاول مساعدتك :::: تقريرك في الاكسس ليس فيه مجموع ... اكمل المجموع .... الشيئ الثاني اعطينا النسب المطلوبة ( اقصد متى يكون السهم احمر ومتى يكون اخضر ومتى يكون اصفر ... بارك الله فيك -
غير التسمية التوضيحية للزر الى تحديد الكل بدلا من تغيير ثم استخدم هذا الكود ...... 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]