Shivan Rekany

اتفضل اليك هذه الروابط بها ما تريد

واليك طريقة اخرى اذا تستخدم اصدار 2010 DoCmd.BrowseTo acBrowseToReport, "MyReport" حيث ان MyReport هو اسم التقرير

اتفضل اليك تعديل على قاعدة بياناتك الاحتساب199.rar

ممكن ترفق نسخة مصغرة من قاعدة بياناتك الاصلية لكي نستخدم دي لوك اب معه و نشوف ما هو الاسباب و القي نظرتا الى هذا تم استخدام دي لوك اب في مربع نصي =DLookUp("[zname]";"qry";"[age]=" & [t]) IIF.rar

اتفضل اليك هذا استعلام باسك كويري 2 SELECT tp_natega.c_dept, tp_natega.dept, tp_natega.magmo, Count(tp_natega.magmo) AS CountOfmagmo, DCount("[sit_no]","tp_natega","[tp_natega]![magmo]>=" & [magmo] & "and [tp_natega]![c_dept]=" & [c_dept]) AS Expr1 FROM tp_natega GROUP BY tp_natega.c_dept, tp_natega.dept, tp_natega.magmo HAVING (((tp_natega.c_dept)=[ادخل کود الادارة])) ORDER BY tp_natega.magmo DESC; توزيع تكراري ادارات.rar

اتفضل تم العمل هذه الوحدة النمطية Option Compare Database Option Explicit Public Function GetQablaRimoz(SText) Dim i Dim Text Dim Nu As Integer For i = 1 To Len(SText) If (Mid(SText, i, 1)) = ":" Then Nu = Nu + 1 Text = Text & Mid(SText, i, 1) End If Next Dim LArray() As String LArray = Split(SText, ":") If Nu > 0 Then GetQablaRimoz = LArray(0) End If End Function Public Function GetBaadaRimoz(SText) Dim i Dim Text Dim Nu As Integer For i = 1 To Len(SText) If (Mid(SText, i, 1)) = ":" Then Nu = Nu + 1 Text = Text & Mid(SText, i, 1) End If Next Dim LArray() As String LArray = Split(SText, ":") If Right(SText, 1) <> "." Then If Nu = 0 Then GetBaadaRimoz = SText & " ." ElseIf Nu = 1 Then GetBaadaRimoz = LArray(1) & " ." ElseIf Nu = 2 Then GetBaadaRimoz = LArray(1) & LArray(2) & " ." ElseIf Nu = 3 Then GetBaadaRimoz = LArray(1) & LArray(2) & LArray(3) & " ." End If Else If Nu = 0 Then GetBaadaRimoz = SText ElseIf Nu = 1 Then GetBaadaRimoz = LArray(1) ElseIf Nu = 2 Then GetBaadaRimoz = LArray(1) & LArray(2) ElseIf Nu = 3 Then GetBaadaRimoz = LArray(1) & LArray(2) & LArray(3) End If End If End Function وهذه الاستعلامات التحديث Q1 UPDATE T3reeft SET T3reeft.AlT3reef = GetQablaRimoz([T3reeft]![T3reeftText]) WHERE (((T3reeft.AlT3reef) Is Null)); Q2 UPDATE T3reeft SET T3reeft.T3reeftText = GetBaadaRimoz([T3reeft]![T3reeftText]); قم بتشغيل استعلام الاول وبعدين الاستعلام الثاني اليك المرفق حذف البيانات المكررة.accdb

هل تريد هذا ام ماذا تريد بالتفصيل ممكن تعطينا صور عن ماذا تريد او وضح اكثر اذا هذا لا يكون المطلوب القي نظرتا الى كويرى 1 توزيع تكراري ادارات.rar

اتفضل تم تغيير نوع الحقل لحقل رقم سند القبض من تيكست الى نمبر Private Sub الرقم_الوظيفي_BeforeUpdate(Cancel As Integer) If DCount("*", "البيانات", "[رقم سند القبض]=" & Me.الرقم_الوظيفي) > 0 Then MsgBox "الرقم مکرر" Cancel = -1 End If End Sub طابة 3 - Copy.rar

لا اعرف لکن هناك طريقة بديلة اليك هذا الرابط

اخي الحبيب كل سطر من السطور مثل هذه Rpt.Line (RptWidth - 4.5, RptHight + 3.5)-(RptWidth - 5, RptHight + 4) Rpt.Circle ((RptWidth + 6.5), (RptHight - 8)), 0.7, , 2.35, 3.9 هو جزء من الكلمة ( قيد القفل ) جرب ان تحذف بعض السطور وفتح التقرير راح يوضح لك ما اقول

قام الاستاذ @منتصر الانسي بكتابة النص بواسطة الكود شوف هذا هو الكود لكتابة ( قيد مقفل ) Public Sub RptLockedOpr(Rpt As Report) On Error Resume Next Dim RptWidth As Double Dim RptHight As Double Rpt.ScaleMode = 7 Rpt.DrawMode = 3 Rpt.DrawStyle = 0 Rpt.ForeColor = RGB(0, 0, 255) Rpt.DrawWidth = 10 RptWidth = (Rpt.ScaleWidth - 2) / 2 RptHight = Rpt.ScaleHeight / 2 Rpt.Line (RptWidth + 5.5, RptHight - 9)-(RptWidth + 6, RptHight - 9.5) Rpt.Line (RptWidth + 6, RptHight - 9.5)-(RptWidth + 9.5, RptHight - 6) Rpt.Line (RptWidth + 9.5, RptHight - 6)-(RptWidth + 3.5, RptHight - 0) Rpt.Line (RptWidth + 3.5, RptHight - 0)-(RptWidth + 2, RptHight - 1.5) Rpt.Line (RptWidth + 2, RptHight - 1.5)-(RptWidth + 3.5, RptHight - 3) Rpt.Line (RptWidth + 3.5, RptHight - 3)-(RptWidth + 3.25, RptHight - 3.25) Rpt.Line (RptWidth + 2.75, RptHight - 3.25)-(RptWidth + 1.5, RptHight - 2) Rpt.Line (RptWidth + 1.5, RptHight - 2)-(RptWidth + 1.5, RptHight - 3) Rpt.Line (RptWidth + 1.5, RptHight - 3)-(RptWidth + 2.5, RptHight - 4) Rpt.Line (RptWidth + 3.5, RptHight - 4)-(RptWidth + 4, RptHight - 3.5) Rpt.Line (RptWidth + 4, RptHight - 3.5)-(RptWidth + 5, RptHight - 4.5) Rpt.Line (RptWidth + 5, RptHight - 4.5)-(RptWidth + 4.5, RptHight - 5) Rpt.Line (RptWidth + 4.5, RptHight - 5)-(RptWidth + 4.5, RptHight - 6) Rpt.Line (RptWidth + 4.5, RptHight - 6)-(RptWidth + 5.5, RptHight - 5) Rpt.Line (RptWidth + 5.5, RptHight - 5)-(RptWidth + 7.5, RptHight - 7) Rpt.Line (RptWidth + 7.5, RptHight - 7)-(RptWidth + 7, RptHight - 7.5) Rpt.Line (RptWidth + 7, RptHight - 7.5)-(RptWidth + 6, RptHight - 6.5) Rpt.Line (RptWidth + 6, RptHight - 6.5)-(RptWidth + 5.5, RptHight - 7) Rpt.Line (RptWidth + 6, RptHight - 8.5)-(RptWidth + 6.5, RptHight - 8) Rpt.Line (RptWidth + 6.5, RptHight - 8)-(RptWidth + 6, RptHight - 7.5) Rpt.Line (RptWidth - 0, RptHight - 1)-(RptWidth + 0.5, RptHight - 1.5) Rpt.Line (RptWidth + 0.5, RptHight - 1.5)-(RptWidth + 3, RptHight + 1) Rpt.Line (RptWidth + 3, RptHight + 1)-(RptWidth - 3.5, RptHight + 7.5) Rpt.Line (RptWidth - 4, RptHight + 8)-(RptWidth - 8, RptHight + 4) Rpt.Line (RptWidth - 8, RptHight + 4)-(RptWidth - 8, RptHight + 3) Rpt.Line (RptWidth - 8, RptHight + 3)-(RptWidth - 5, RptHight + 6) Rpt.Line (RptWidth - 5, RptHight + 6)-(RptWidth - 3.5, RptHight + 4.5) Rpt.Line (RptWidth - 3.5, RptHight + 4.5)-(RptWidth - 4, RptHight + 4) Rpt.Line (RptWidth - 4, RptHight + 4)-(RptWidth - 5, RptHight + 5) Rpt.Line (RptWidth - 5, RptHight + 5)-(RptWidth - 5.5, RptHight + 4.5) Rpt.Line (RptWidth + 0.5, RptHight - 0.5)-(RptWidth + 1, RptHight + 0) Rpt.Line (RptWidth + 1, RptHight + 0)-(RptWidth + 0.5, RptHight + 0.5) Rpt.Line (RptWidth - 5.5, RptHight + 2.5)-(RptWidth - 5, RptHight + 2) Rpt.Line (RptWidth - 5, RptHight + 2)-(RptWidth - 3, RptHight + 4) Rpt.Line (RptWidth - 3, RptHight + 4)-(RptWidth - 1.5, RptHight + 2.5) Rpt.Line (RptWidth - 1.5, RptHight + 2.5)-(RptWidth - 2, RptHight + 2) Rpt.Line (RptWidth - 2, RptHight + 2)-(RptWidth - 3, RptHight + 3) Rpt.Line (RptWidth - 3, RptHight + 3)-(RptWidth - 3.5, RptHight + 2.5) Rpt.Line (RptWidth - 3.5, RptHight + 0.5)-(RptWidth - 3, RptHight + 0) Rpt.Line (RptWidth - 3, RptHight + 0)-(RptWidth - 1, RptHight + 2) Rpt.Line (RptWidth - 1, RptHight + 2)-(RptWidth - 0, RptHight + 1) Rpt.Line (RptWidth - 3, RptHight + 1)-(RptWidth - 2.5, RptHight + 1.5) Rpt.Line (RptWidth - 2.5, RptHight + 1.5)-(RptWidth - 3, RptHight + 2) Rpt.Line (RptWidth - 5, RptHight + 3)-(RptWidth - 4.5, RptHight + 3.5) Rpt.Line (RptWidth - 4.5, RptHight + 3.5)-(RptWidth - 5, RptHight + 4) Rpt.Circle ((RptWidth + 6.5), (RptHight - 8)), 0.7, , 2.35, 3.9 Rpt.Circle ((RptWidth + 6.5), (RptHight - 8)), 1.4, , 2.35, 3.9 Rpt.Circle ((RptWidth + 3), (RptHight - 3)), 0.35, , 0.8, 2.35 Rpt.Circle ((RptWidth + 3), (RptHight - 3.5)), 0.7, , 0.8, 2.35 Rpt.Circle ((RptWidth + 1), (RptHight + 0)), 0.7, , 2.35, 3.9 Rpt.Circle ((RptWidth + 1), (RptHight + 0)), 1.4, , 2.35, 3.9 Rpt.Circle ((RptWidth - 2.5), (RptHight + 1.5)), 0.7, , 2.35, 3.9 Rpt.Circle ((RptWidth - 2.5), (RptHight + 1.5)), 1.4, , 2.35, 3.9 Rpt.Circle ((RptWidth - 4.5), (RptHight + 3.5)), 0.7, , 2.35, 3.9 Rpt.Circle ((RptWidth - 4.5), (RptHight + 3.5)), 1.4, , 2.35, 3.9 Rpt.Circle ((RptWidth - 5), (RptHight + 8)), 1, , 3.5, 6.28318530718 Rpt.Circle ((RptWidth - 4.5), (RptHight + 8.5)), 1.4, , 3, 0.8 Rpt.Circle ((RptWidth + 5.5), (RptHight - 9.6)), 0.35 Rpt.Circle ((RptWidth + 5), (RptHight - 9.1)), 0.35 Rpt.Circle ((RptWidth - 3.5), (RptHight - 0.1)), 0.35 Rpt.Circle ((RptWidth - 4), (RptHight + 0.4)), 0.35 Rpt.Circle ((RptWidth - 5.7), (RptHight + 2.1)), 0.35 Rpt.Circle ((RptWidth + 7), (RptHight - 2.5)), 0.35 Rpt.Circle ((RptWidth + 6.5), (RptHight - 2)), 0.35 End Sub

السلام عليكم ورحمة الله وبركاته اولا لان عندك حقل بياخذ الوقت الحالي بالساعة والتاريخ نحن هنا لا نحتاج الحقل التاريخ ثانيا انا اضفت حقل ترقيم في جدولك ومتسلسل حسب حقل الوقت والتاريخ اي تم ترتيب حقل الوقت والتاريخ وبعدين اضفت حقل ترقيم و عملت الترقيم ثالثا تم عم هذا الاستعلام الحذف DELETE Emp_data.id, Emp_data.Emp_time, DateDiff("s",[Emp_time],DLookUp("[Emp_time] ","Emp_data","[Emp_data]![id]=" & [id]+1)) AS Expr1 FROM Emp_data WHERE (((DateDiff("s",[Emp_time],DLookUp("[Emp_time] ","Emp_data","[Emp_data]![id]=" & [id]+1)))<60)); اولا افتح استعلام العادي لكي تنظر الى السجلات وبعدين اذا تريد قم بفتح استعلام الحذف مرة واحدة اليك الملف Del_record (2).rar

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

اتفضل اليك هذا حذف البيانات المكررة.accdb

نعم واحذف الجدول الاصلي بعدين في المرفق كان عندك استعلام اخر بيظهر التكرارات

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

تم الحل لهذه المشكلة ما فهمت ما تريد بالضبط حسابات 1.rar

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

اتفضل استاذ الحبيب نحن في خدمتك

نعم لكن حسب كنا نريد ان يظهر الحجم بالضبط ... واذا صاحب السؤال يريد ذلك نقدر ان نستخدمه

اعتذر من الجماعة كان خطأ في الكود وهو بدل ان استخدم اشارة تقسيم "/" انا استخدمت هذا "\" اتفضل اخي التعديل على القاعدة وتم تعديل على كود في مشاركتي الاولى Folder Size.mdb

ممکن تعطينا مثال على ماتريد بالضبط وتخبرنا بالشروط لكي نفكر اكثر بطريقة سليمة

استغفر الله نحن بخدمتكم

استأذن من الجماعة اتفضل اخي يوسف الكود صار هكذ Private Sub endate_AfterUpdate() Dim X, Z As Date X = #1/1/2018# Z = #12/31/2018# If Me.endate > X Or Me.endate < Z Then MsgBox ("التاريخ يجب ان يكون خلال عام2018") endate = Date End If Refresh End Sub 123 (1).accdb

وفی المرفق الاعلاه عند وجود الاسماء وترقيم فارغ بيعطيك الرسالة ان تم استراد 5 وليس الصفر لان ملف الاكسل بها 5 اسماء جرب ان تحذف الترقيم وجربه