سامر محمود

😂😂 معلش معلش يا صديقي النسخة الاخيرة انا ظبطها بالكود الاخير بتاعك بص عليها هي دي فيها نفس مشكلة الاحلال وليس التكرار

بص يا صاحبي انا بعتها تاني Arciving.rar

مش فاهم والله يا @Foksh هو مش مظبوط خالص تقارير شهر 2 و4 مش بتطلع خالص خليك في اللي انا لسة باعتها افضل

تمام شوفت التكرارات ازاي

لا خليك في اللي انا بعته علشان اللي عندك كان تجربة في موضوع تفعيل التكرار لكن اللي بعته ده نهائي شوف الملاحظات في تقريري هتلاقيها مختلفة معني كده ان السطر كان لموظف تاني غير ده واتغيرت بيناته ماعدا الملاحظات

اه والله يا @Foksh زي ما بقولك بص لفتح التقارير من 1-3-2024 حتي 31-3-2024 وشوف بنفسك 1988 و 2070 مكررين كام مرة بس هو مش تكرار لا السبب الاخير مختلف مش واحد ففي حاجة حصلت

الاخوة الكرام الافاضل السلام عليكم ورحمة الله وبركاته من يومين طرحت مشكلة تكرار بيانات الموظفين بنفس الكود والاسم والموقع والفرع في الجدول مع اني راجعت كل حاجة لكن الموضوع اتكرر كتير والاخوة الافاضل قالوا اني دخلت الموظف اكتر من مرة لكن مش دي المشكلة هي بتتقلب البيانات لوحدها اكيد في حاجة غلط انا مش عارفها برجاء المساعدة للاهمية Arciving222.zip

تسلم ايدك يا @Foksh استاذ ورئيس قسم ربنا يزيدك علم

اخر حاجة يا @Foksh انت عملت الكود في زر الاضافة وهو المفروض في الحفظ تمام ولا فانا نسخته من زر الاضافة الي الحفظ بالشكل ده بس لما بقوله لا بيسيب السجل بردو ولا اكن في كود مالي عينه ومش بيفتح سجل جديد بردو فمعلش مراجعة منك لكود زرار الحفظ On Error Resume Next If Len(Me.y1 & "") = 0 Then MsgBox "ÃÏÎá äæÚ ÇáÇÎáÇÁ" Undo Me.y1.SetFocus Exit Sub End If '''''''''''' If Len(Me.y2 & "") = 0 Then MsgBox "ÃÏÎá ÊÇÑíÎ ÇáÇÎáÇÁ" Undo Me.y2.SetFocus Exit Sub End If '''''''''''' 'If [y1] = "2" And Len(Me.y3 & "") = 0 Then 'MsgBox "ÃÏÎá ÊÇÑíÎ ÇáÇÓÊÍÞÇÞ" 'Undo 'Me.y3.SetFocus 'Exit Sub 'End If 'On Error Resume Next Dim count As Integer count = DCount("[ID_Number]", "[Ekhla_Details]", "[ID_Number]='" & Forms("Ekhla_Details").Controls("IDNumber").Value & "'") If DCount("[ID_Number]", "[Ekhla_Details]", "[ID_Number]=[Forms]![Ekhla_Details]![IDNumber]") >= 1 Then If MsgBox(" " _ & vbCrLf & "¡ åÐÇ ÇáãæÙÝ áå ÅÎáÇÁ ÓÇÈÞ ÚÏÏ " & count _ & vbCrLf & " " _ & vbCrLf & "åá ÊÑíÏ ÇáÇÓÊãÑÇÑ ¿ " _ , 590132, "") = 6 Then MsgBox "Êã ÇáÍÝÙ ÈäÌÇÍ", , "" DoCmd.RunCommand acCmdSaveRecord DoCmd.SetWarnings False DoCmd.OpenQuery "DO", acViewNormal DoCmd.SetWarnings True DoCmd.GoToRecord , , acNewRec Else DoCmd.CancelEvent MsgBox "Êã ÅáÛÇÁ ÇáÓÌá", , "" Exit Sub End If End If ''''''DoCmd.RunCommand acCmdSaveRecord ''''''DoCmd.SetWarnings False ''''''DoCmd.OpenQuery "Do", acViewNormal ''''''DoCmd.SetWarnings True End Sub

تسلم يا @Foksh ياغالي الله ينور بس بردو المشكلة الكبيرة زي ماهي البيانات اتمسحت لما اختارت لا

والله معاك حق 😂 بص يا @Foksh انا اقصد هل ينفع في الرسالة اللي بتطلع يكون فيها عدد المرات المكررة للفرد ده اولا ثانيا يا كبير هل ينفع التنقل بين السجلات المكررة من ازار التنقل لان ممكن يكون سجل في الاول والمكرر في الاخر مثلا

تسلم ايدك يا @Foksh يا غالي بس فاضل تكة بالنسبة لو في سجل مكرر مرة في الاول ومرة مثلا في النص ومينفعش عدد مرات التكرار تظهر في الرسالة و السجلات المكررة اقدر اتنقل بينها ورا بعض يعني بتقل عليك معلش

استاذنا الغالي @Foksh النموذج اسمه Ekhla_Details

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

الاخ الكريم @ازهر عبد العزيز بشكرك جدا علي المساعدة الكريمة بس اكون شاكر ليك اكتر لو قولتلي المشكلة كانت فين للعلم والمعرفة