سامر محمود

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

بص يا صاحبي انا بعتها تاني 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

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

الاخ الكريم الفاضل الاستاذ @kkhalifa1960 كل سنة وحضرتك بالف خير النموذج اسمه Ekhla_Details والتقرير اسمه Ekhla_Details

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

السلام عليكم ورحمة الله وبركاته الاخوة الخبراء الكرام الافاضل كنت بسال حضراتكم عن امكانية عمل او وجود برنامج اكسس يحول الصور اللي فيها جداول الي اكسل الموضوع مهم جدا لناس كتير واكيد هنستفيد من خبرتكم الكبيرة اشكركم علي المساعدة

اخي الكريم @Foksh تسلم ايدك تمام بس فس استفسار بسيط لما بفتح اذن جديد واختار موظف موجود قبل كده هياخد حاجات تانية بيجيب اصناف الاذن القديم اتوماتيك وكمان البيانات مش تنزل في جدول الحركة او الجدول الرئيسي Unif

الاستاذ الفاضل @ابوخليل الاخ الكريم @Foksh الاخ الكريم @kkhalifa1960 انا اشتغلت علي نصيحة الاستاذ ابوخليل واتحل جزء من المشكلة لكن الاصناف لم بخرج من الاذن وارجعله تاني مش بتكون موجودة Unif.rarUnif.rarUnif.rarUnif.rar Unif.rar

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

الاخ الفاضل @kkhalifa1960 بشكرك جدا علي المساعدة بس هو الموضوع ان في النموذج الاساسي بيانات الموظف وفي الفرعي بيكون فيه اكثر من صنف يخص الموظف المذكور لان اليونيفورم متعدد

اخي @kkhalifa1960 محتاج مساعدتك الكريمة

اخ @Foksh ايه هي عناصر الجدول الوسيط الحركة

للاسف اخي @Foksh في مشكلة مش شغالة بردو