اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

برجاء المساعدة مع التعامل مع التكرار


إذهب إلى أفضل إجابة Solved by Foksh,

الردود الموصى بها

الاخوة الكرام الافاضل 

السلام عليكم ورحمة الله وبركاته 

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

ارجو المساعدة للاستفادة 

خالص شكرى وتقديري

Arciving222.rar

رابط هذا التعليق
شارك

أخي سامر .. سيكون التعديل منقسماً إلى جزئين . الأول في الماكرو الموجود في حدث قبل التحديث للنموذج كالتالي :-

من الجملة التالية :-

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

  • Like 1
رابط هذا التعليق
شارك

الان, 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 يا غالي

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

بتقل عليك معلش 

رابط هذا التعليق
شارك

2 دقائق مضت, سامر محمود said:

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

 

فسر لي حبه حبه ، قبل الفطار بنكون مش مجمعين ، وبعد الفطار برضو بنكون مش مجمعين :wavetowel: .

 

 

  • Haha 1
رابط هذا التعليق
شارك

منذ ساعه, Foksh said:

فسر لي حبه حبه ، قبل الفطار بنكون مش مجمعين ، وبعد الفطار برضو بنكون مش مجمعين :wavetowel: .

 

 

والله معاك حق 😂 

بص يا @Foksh

انا اقصد هل ينفع في الرسالة اللي بتطلع يكون فيها عدد المرات المكررة للفرد ده اولا

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

 

رابط هذا التعليق
شارك

أعتذر عن التأخير أخي سامر ، بالنسبة للطلب الأول ( عدد المكررات في الرسالة ) تفضل :-

استبدل الحدث في النموذج قبل التحديث من الماكرو إلى هذا الكود

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

  • Like 1
رابط هذا التعليق
شارك

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 ياغالي 

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

رابط هذا التعليق
شارك

31 دقائق مضت, سامر محمود said:

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

تم التعديل على طريقة تنفيذ الكود ليكون الكود كاملاً في زر الحفظ .. مع الذهاب الى سجل جديد عند فتح النموذج

 

Arciving222.zip

  • Like 1
رابط هذا التعليق
شارك

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

 

رابط هذا التعليق
شارك

  • أفضل إجابة
منذ ساعه, سامر محمود said:

اخر حاجة يا @Foksh

انت عملت الكود في زر الاضافة وهو المفروض في الحفظ تمام ولا 

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

حسب ما فهمت ، تريد الكود في زر الحفظ ؟؟ مع تطبيق الشروط الحالية عليه ؛ صحيح ؟

تفضل ، وأخبرني بالنتيجة

Arciving222.zip

  • Thanks 1
رابط هذا التعليق
شارك

الان, Foksh said:

حسب ما فهمت ، تريد الكود في زر الحفظ ؟؟ مع تطبيق الشروط الحالية عليه ؛ صحيح ؟

تفضل ، وأخبرني بالنتيجة

Arciving222.zip 876.46 kB · 2 downloads

تسلم ايدك يا @Foksh

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

  • Like 1
رابط هذا التعليق
شارك

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information