سامر محمود

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

اخي الكريم @Moosak عذرا علي الخطا الغير مقصود انا عملت مشروع جديد النموذج اسمه engin فيه نموذج فرعي الفكرة اني لما اختار الموقع وبعد الفرع اسماء الناس اللي موجودة في فيهم تظهر تحت في الفرعي بعتذر مرة تانية والله مش مقصودة sa.rar

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

برجاء التواصل لعمل برنامج اجور موظفين بنظام يومية التشغيل للتواصل علي واتس اب 01115222064

الاخوة الكرام الافاضل السلام عليكم ورحمة الله بروكاته من فضلكم في كود بحث بستعمله دايما بس مشعارف ليه مش عايز يشتغل في الفورم اللي معايا بيقول ان الحقل مش موجود بالجدول مع انه موجود بس مش عارف فين الخطا 'On Error Resume Next Dim s s = InputBox("ادخل الرقم القومي المكون من 14رقم", "ابدا البحث من فضلك") DoCmd.GoToControl "IDNumber1" DoCmd.FindRecord s

الاخوة الكرام الافاضل السلام عليكم ورحمة الله وبركاته كنت محتاج مساعدتكم الكريمة في برنامج احصائيات الفكرة ان في مواقع وفروع موقع مثلا اسمه قناة السويس اجمالي قوة افراده 100 فرد التقسيمه بتاعتهم في الفروع تحت الموقع فروع مثلا فرع اسمه العروبة المفروض يكون فيه 20 فرد انا عايز اعرف العجز كام يوميا واني اقدر ارجع لرقم العجز علي حسب اختيار اليوم هنا هيكون في شاشة تعريف وهى اسمها Info_Power بعرف فيها قوة الموقع وكل فرع تحته المفروض يكون فيه كام التقرير هيكون من خلال جدول data بمعيار كود فرد الامن وان الحالة بتعته يعمل Power.rar

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

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