سامر محمود قام بنشر مارس 19 مشاركة قام بنشر مارس 19 الاخوة الكرام الافاضل السلام عليكم ورحمة الله وبركاته بالامس طرحت مشكلة ان في سجلات مكررة في برنامج عندي وتمت الاجابة من الاخوة الافاضل @ازهر عبد العزيز والاخ الكريم @kkhalifa1960 والحمد لله لكن من امس وانا بحاول اعالج الخطا انه ميتكررش فبحاول اعمل كود لو في خطا ينبهني ويقولي مكرر كام مرة ويتيح امكانية اني اوافق علي التكرار لانه احيانا هيكون وارد ارجو المساعدة للاستفادة خالص شكرى وتقديري Arciving222.rar رابط هذا التعليق شارك More sharing options...
Foksh قام بنشر مارس 19 مشاركة قام بنشر مارس 19 في اي نموذج اخي @سامر محمود ، حدد لنا اذا سمحت رابط هذا التعليق شارك More sharing options...
سامر محمود قام بنشر مارس 19 الكاتب مشاركة قام بنشر مارس 19 4 دقائق مضت, Foksh said: في اي نموذج اخي @سامر محمود ، حدد لنا اذا سمحت استاذنا الغالي @Foksh النموذج اسمه Ekhla_Details رابط هذا التعليق شارك More sharing options...
Foksh قام بنشر مارس 19 مشاركة قام بنشر مارس 19 أخي سامر .. سيكون التعديل منقسماً إلى جزئين . الأول في الماكرو الموجود في حدث قبل التحديث للنموذج كالتالي :- من الجملة التالية :- DCount("[Ekhla_serial]","[Ekhla_Details]","[Ekhla_Details]![ID_Number]=[Forms]![Ekhla_Details]![IDNumber]")>=1 ألى الجملة التالية :- DCount("[ID_Number]", "[Ekhla_Details]", "[ID_Number]=[Forms]![Ekhla_Details]![IDNumber]")>=1 ثم سيتم التعديل على الاستعلام DO كالآتي :- من الجملة SQL التالية :- UPDATE Ekhla_Details SET Ekhla_Details.Ekhla_Kind = [Forms]![Ekhla_Details]![Ekhla_Kind], Ekhla_Details.coodee = [Forms]![Ekhla_Details]![coode], Ekhla_Details.Emp_Name = [Forms]![Ekhla_Details]![coodee], Ekhla_Details.ID_Number = [Forms]![Ekhla_Details]![ID_Number], Ekhla_Details.الموقع = [Forms]![Ekhla_Details]![y4], Ekhla_Details.الفرع = [Forms]![Ekhla_Details]![y5] WHERE (((Ekhla_Details.Ekhla_serial) Like "*" & [Forms]![Ekhla_Details]![Ekhla_serial] & "*")); إلى جملة SQL التالية :- UPDATE Ekhla_Details SET Ekhla_Kind = [Forms]![Ekhla_Details]![Ekhla_Kind], coodee = [Forms]![Ekhla_Details]![coode], Emp_Name = [Forms]![Ekhla_Details]![coodee], ID_Number = [Forms]![Ekhla_Details]![ID_Number], الموقع = [Forms]![Ekhla_Details]![y4], الفرع = [Forms]![Ekhla_Details]![y5] WHERE (((Ekhla_Details.Ekhla_serial) Like "*" & [Forms]![Ekhla_Details]![Ekhla_serial] & "*")); وأعلمني بالنتيجة أخي سامر .. Arciving222.zip 1 رابط هذا التعليق شارك More sharing options...
سامر محمود قام بنشر مارس 19 الكاتب مشاركة قام بنشر مارس 19 الان, Foksh said: أخي سامر .. سيكون التعديل منقسماً إلى جزئين . الأول في الماكرو الموجود في حدث قبل التحديث للنموذج كالتالي :- من الجملة التالية :- DCount("[Ekhla_serial]","[Ekhla_Details]","[Ekhla_Details]![ID_Number]=[Forms]![Ekhla_Details]![IDNumber]")>=1 ألى الجملة التالية :- DCount("[ID_Number]", "[Ekhla_Details]", "[ID_Number]=[Forms]![Ekhla_Details]![IDNumber]")>=1 ثم سيتم التعديل على الاستعلام DO كالآتي :- من الجملة SQL التالية :- UPDATE Ekhla_Details SET Ekhla_Details.Ekhla_Kind = [Forms]![Ekhla_Details]![Ekhla_Kind], Ekhla_Details.coodee = [Forms]![Ekhla_Details]![coode], Ekhla_Details.Emp_Name = [Forms]![Ekhla_Details]![coodee], Ekhla_Details.ID_Number = [Forms]![Ekhla_Details]![ID_Number], Ekhla_Details.الموقع = [Forms]![Ekhla_Details]![y4], Ekhla_Details.الفرع = [Forms]![Ekhla_Details]![y5] WHERE (((Ekhla_Details.Ekhla_serial) Like "*" & [Forms]![Ekhla_Details]![Ekhla_serial] & "*")); إلى جملة SQL التالية :- UPDATE Ekhla_Details SET Ekhla_Kind = [Forms]![Ekhla_Details]![Ekhla_Kind], coodee = [Forms]![Ekhla_Details]![coode], Emp_Name = [Forms]![Ekhla_Details]![coodee], ID_Number = [Forms]![Ekhla_Details]![ID_Number], الموقع = [Forms]![Ekhla_Details]![y4], الفرع = [Forms]![Ekhla_Details]![y5] WHERE (((Ekhla_Details.Ekhla_serial) Like "*" & [Forms]![Ekhla_Details]![Ekhla_serial] & "*")); وأعلمني بالنتيجة أخي سامر .. Arciving222.zip 863.61 kB · 4 downloads تسلم ايدك يا @Foksh يا غالي بس فاضل تكة بالنسبة لو في سجل مكرر مرة في الاول ومرة مثلا في النص ومينفعش عدد مرات التكرار تظهر في الرسالة و السجلات المكررة اقدر اتنقل بينها ورا بعض يعني بتقل عليك معلش رابط هذا التعليق شارك More sharing options...
Foksh قام بنشر مارس 19 مشاركة قام بنشر مارس 19 2 دقائق مضت, سامر محمود said: بس فاضل تكة بالنسبة لو في سجل مكرر مرة في الاول ومرة مثلا في النص ومينفعش عدد مرات التكرار تظهر في الرسالة و السجلات المكررة اقدر اتنقل بينها ورا بعض يعني فسر لي حبه حبه ، قبل الفطار بنكون مش مجمعين ، وبعد الفطار برضو بنكون مش مجمعين . 1 رابط هذا التعليق شارك More sharing options...
سامر محمود قام بنشر مارس 19 الكاتب مشاركة قام بنشر مارس 19 منذ ساعه, Foksh said: فسر لي حبه حبه ، قبل الفطار بنكون مش مجمعين ، وبعد الفطار برضو بنكون مش مجمعين . والله معاك حق 😂 بص يا @Foksh انا اقصد هل ينفع في الرسالة اللي بتطلع يكون فيها عدد المرات المكررة للفرد ده اولا ثانيا يا كبير هل ينفع التنقل بين السجلات المكررة من ازار التنقل لان ممكن يكون سجل في الاول والمكرر في الاخر مثلا رابط هذا التعليق شارك More sharing options...
Foksh قام بنشر مارس 19 مشاركة قام بنشر مارس 19 هو ينفع ليه لأ .. بس أوصل البيت هحاول أتفاهم مع جهازي 😅 أصله واخد على خاطره حبتين اليومين دول 😁 1 رابط هذا التعليق شارك More sharing options...
Foksh قام بنشر مارس 20 مشاركة قام بنشر مارس 20 أعتذر عن التأخير أخي سامر ، بالنسبة للطلب الأول ( عدد المكررات في الرسالة ) تفضل :- استبدل الحدث في النموذج قبل التحديث من الماكرو إلى هذا الكود Private Sub Form_BeforeUpdate(Cancel As Integer) Dim count As Integer count = DCount("[ID_Number]", "[Ekhla_Details]", "[ID_Number]='" & Forms("Ekhla_Details").Controls("IDNumber").Value & "'") If count >= 1 Then Dim response As VbMsgBoxResult response = MsgBox("أن هذا الموظف له إخلاء سابق عدد " & count & " ، هل تريد الاستمرار ؟ ", vbYesNo) If response = vbYes Then Else Me.Undo MsgBox "تم إلغاء السجل", , "" End If Else MsgBox "تم إلغاء السجل", , "" Me.Undo End If End Sub Arciving222.zip 1 رابط هذا التعليق شارك More sharing options...
سامر محمود قام بنشر مارس 20 الكاتب مشاركة قام بنشر مارس 20 22 دقائق مضت, Foksh said: أعتذر عن التأخير أخي سامر ، بالنسبة للطلب الأول ( عدد المكررات في الرسالة ) تفضل :- استبدل الحدث في النموذج قبل التحديث من الماكرو إلى هذا الكود Private Sub Form_BeforeUpdate(Cancel As Integer) Dim count As Integer count = DCount("[ID_Number]", "[Ekhla_Details]", "[ID_Number]='" & Forms("Ekhla_Details").Controls("IDNumber").Value & "'") If count >= 1 Then Dim response As VbMsgBoxResult response = MsgBox("أن هذا الموظف له إخلاء سابق عدد " & count & " ، هل تريد الاستمرار ؟ ", vbYesNo) If response = vbYes Then Else Me.Undo MsgBox "تم إلغاء السجل", , "" End If Else MsgBox "تم إلغاء السجل", , "" Me.Undo End If End Sub Arciving222.zip 879.37 kB · 0 downloads تسلم يا @Foksh ياغالي الله ينور بس بردو المشكلة الكبيرة زي ماهي البيانات اتمسحت لما اختارت لا رابط هذا التعليق شارك More sharing options...
Foksh قام بنشر مارس 20 مشاركة قام بنشر مارس 20 31 دقائق مضت, سامر محمود said: الله ينور بس بردو المشكلة الكبيرة زي ماهي البيانات اتمسحت لما اختارت لا تم التعديل على طريقة تنفيذ الكود ليكون الكود كاملاً في زر الحفظ .. مع الذهاب الى سجل جديد عند فتح النموذج Arciving222.zip 1 رابط هذا التعليق شارك More sharing options...
سامر محمود قام بنشر مارس 20 الكاتب مشاركة قام بنشر مارس 20 38 دقائق مضت, Foksh said: تم التعديل على طريقة تنفيذ الكود ليكون الكود كاملاً في زر الحفظ .. مع الذهاب الى سجل جديد عند فتح النموذج Arciving222.zip 873.62 kB · 1 download اخر حاجة يا @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 رابط هذا التعليق شارك More sharing options...
أفضل إجابة Foksh قام بنشر مارس 20 أفضل إجابة مشاركة قام بنشر مارس 20 منذ ساعه, سامر محمود said: اخر حاجة يا @Foksh انت عملت الكود في زر الاضافة وهو المفروض في الحفظ تمام ولا فانا نسخته من زر الاضافة الي الحفظ بالشكل ده بس لما بقوله لا بيسيب السجل بردو ولا اكن في كود مالي عينه ومش بيفتح سجل جديد بردو فمعلش مراجعة منك لكود زرار الحفظ حسب ما فهمت ، تريد الكود في زر الحفظ ؟؟ مع تطبيق الشروط الحالية عليه ؛ صحيح ؟ تفضل ، وأخبرني بالنتيجة Arciving222.zip 1 رابط هذا التعليق شارك More sharing options...
سامر محمود قام بنشر مارس 20 الكاتب مشاركة قام بنشر مارس 20 الان, Foksh said: حسب ما فهمت ، تريد الكود في زر الحفظ ؟؟ مع تطبيق الشروط الحالية عليه ؛ صحيح ؟ تفضل ، وأخبرني بالنتيجة Arciving222.zip 876.46 kB · 2 downloads تسلم ايدك يا @Foksh استاذ ورئيس قسم ربنا يزيدك علم 1 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان