تغيير التعبير عند اضافة صنف موجود مسبقا

[ابو طارق سعيد]

باركود الصنف + اسم الصنف مفتاح اساسي

عند وضع صنف موجود مسبقا تاتى هذه الرسالة

يرجى تغيير الرسالة الى (هذا الصنف موجود مسبقا)

يرجى شرح الطريقة للتعلم فضلا مع التعديل على القاعدة

وشكرا

Database1.accdb

تم تعديل أبريل 10, 2023 بواسطه ابو طارق سعيد

[محمد احمد لطفى]

فى حدث قبل التحديث حقل الصنف

 

Set RS = Me.RecordsetClone
RS.FindFirst "[اسم الصنف]='" & Me.[اسم الصنف] & "'"
If Not RS.NoMatch Then
Me.Undo
MsgBox ("هذا الصنف موجود مسبقا")
End If

 

Database1 (2).accdb

تم تعديل أبريل 10, 2023 بواسطه محمد احمد لطفى

[ابو طارق سعيد]

@محمد احمد لطفى حاولت وما زبط

برجاء التعديل على القاعدة المرفقة لارى التعديل

[محمد احمد لطفى]

تم ارفاق مرفق بالفعل

[ابو طارق سعيد]

@محمد احمد لطفى

والجميل فى الكود

انه لا يلزم ان يكون جقل اسم الصنف مقتاح اساسى فى الجدول