مساعدة في تصحيح كود

[Radwan0]

السلام عليكم احبتي

 

وضعت كود بحيث يظهر لي عند ادخال العنوان انه تم ادخاله عدة مرات - لكن المشكلة عند الضغط على "NO" يسببلي مشاكل بحيث انه يقوم بحفظ السجل بالرغم من المضاعفات والتكرار

 

Private Sub Title_BeforeUpdate(Cancel As Integer)
Dim rslt As String
    
    DoCmd.SetWarnings False
    If DCount("*", "table1", "[title]='" & Me.Title & "'") > 0 Then
     If MsgBox("warnnig", vbQuestion + vbYesNo, "deplucate") = vbNo Then
          Me.Title.Undo
          Cancel = True
     End If
End If
End Sub

 

[Khalid Jnb]

السلام عليكم

تفضل احي الكريم 

الكود بعد التعديل 

Private Sub title_BeforeUpdate(Cancel As Integer)
Dim rslt As String
    
    DoCmd.SetWarnings False
    If DCount("*", "table1", "[title]='" & Me.Title & "'") > 0 Then
    Beep
    If MsgBox("warnnig", vbQuestion + vbYesNo, "deplucate") = vbNo Then
    Cancel = True
    Me.Undo
    End If
End If
End Sub

 

 

 

 

 

 

تحياتي

تم تعديل أبريل 11, 2020 بواسطه Khalid Jnb

[Radwan0]

الف شكر ياغالي بالفعل هذا الكود الصحيح

 

عندي مشكلة اخرى وهي انني انسخ البيانات من خلال زر -- وعند النسخ تظهر لي المشكلة وهي ان قاعدة البيانات تقوم بانشاء جدول للاخطاء 

[Khalid Jnb]

اخي العزيز

من الافضل ارفاق ملف للتعديل

المهم

اعتقد ان الحل هو  وضع كود للحذف (افراغ الحقول من البيانات) قبل كود النسخ بنقس الزر

تحياتي

تم تعديل أبريل 11, 2020 بواسطه Khalid Jnb

[Radwan0]

مشكور ياغالي