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

[سامر محمود]

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

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

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

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

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

Arciving222.rar

[Foksh]

في اي نموذج اخي @سامر محمود ، حدد لنا اذا سمحت

[سامر محمود]

4 دقائق مضت, Foksh said:

في اي نموذج اخي @سامر محمود ، حدد لنا اذا سمحت

استاذنا الغالي @Foksh

النموذج اسمه Ekhla_Details

[Foksh]

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

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

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

[سامر محمود]

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

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

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

[Foksh]

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

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

 

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

 

 

[سامر محمود]

منذ ساعه, Foksh said:

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

 

 

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

بص يا @Foksh

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

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

 

[Foksh]

هو ينفع ليه لأ ..

بس أوصل البيت هحاول أتفاهم مع جهازي 😅

أصله واخد على خاطره حبتين اليومين دول 😁

[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

[سامر محمود]

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

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

[Foksh]

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

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

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

 

Arciving222.zip

[سامر محمود]

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

 

[Foksh]

منذ ساعه, سامر محمود said:

اخر حاجة يا @Foksh

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

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

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

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

Arciving222.zip

[سامر محمود]

الان, Foksh said:

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

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

Arciving222.zip 876.46 kB · 2 downloads

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

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