منع التكرار

[68SALLOUM]

المطلوب منع تكرار اسم الصنف 

منع التكرار.accdb

[Foksh]

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

أخي الكريم ، بداية حتى تبدأ بداية سليمة ، حاول الإبتعاد عن الأسماء العربية لمكونات قاعدة البيانات . وأيضاً استحدام المسافة بين التسميات التي لها أكثر من كلمة .... إلخ من أساسيات مهمة عند تصميم قواعد البيانات .

على العموم .. في حدث قبل التحديث لمربع النص "اسم الصنف" ، استخدم الكود التالي البسيط دون تعقيد ..

Private Sub اسم_الصنف_BeforeUpdate(Cancel As Integer)
    If DCount("*", "[جرد المستودع]", "[اسم الصنف] = '" & Me![اسم الصنف] & "'") > 0 Then
        MsgBox "هذا الصنف موجود مسبقاً", vbExclamation + vbMsgBoxRight, "": Cancel = True: Me.Undo
    End If
End Sub

 

 

منع التكرار.zip

[68SALLOUM]

On 6/24/2025 at 5:44 AM, Foksh said:

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

أخي الكريم ، بداية حتى تبدأ بداية سليمة ، حاول الإبتعاد عن الأسماء العربية لمكونات قاعدة البيانات . وأيضاً استحدام المسافة بين التسميات التي لها أكثر من كلمة .... إلخ من أساسيات مهمة عند تصميم قواعد البيانات .

على العموم .. في حدث قبل التحديث لمربع النص "اسم الصنف" ، استخدم الكود التالي البسيط دون تعقيد ..

Private Sub اسم_الصنف_BeforeUpdate(Cancel As Integer)
    If DCount("*", "[جرد المستودع]", "[اسم الصنف] = '" & Me![اسم الصنف] & "'") > 0 Then
        MsgBox "هذا الصنف موجود مسبقاً", vbExclamation + vbMsgBoxRight, "": Cancel = True: Me.Undo
    End If
End Sub

 

 

منع التكرار.zip 27.73 kB · 9 downloads

اشكرك اخي الكريم

ملاحظات غاية بالاهميه وسنأخذها بعين الاعتبار

عاشت ايدك على المساعدة