اظهار رسالة غير الرسالة الموجودة

[commpute]

الى الأخوة الأعزاء كيف يمكن أن اغير الرسالة التالية التي تظهر عند تكرار المفتاح الأساسي بحيث اكتب رسالة اريدها بحيث عند ما تظهر الرساله التي تفيد التكرار واختار فيها نعم يحذف القيمة الجديدة المتكررة

نص الرسالة :

لم تتم التعديلات المطلوبة على الجدول بنجاح لانع سينشأ عنها قيم مكررة في الفهرس ,أوفي المفتاح الأساسي,................

وهذا والله يحفظكم ويرعاكم

[rudwan]

تضع كود اختبار قيمة المفتاح الرئيسي و فيما اذا كانت موجودة سابقا في الجدول و ذلك في حدث قبل الادخال للعنصر , فاذا وجدت قيمة سابقة يتم الغاء الادخال الحالي للسجل

Private Sub Item_BeforeUpdate(Cancel As Integer)
If Not IsNull(DLookup("item", "table","[item]=" & me.item)) Then
MsgBox " item has been recorded previosly    "
Cancel = -1
End If

End Sub

تم تعديل مايو 29, 2006 بواسطه rudwan