عدم تكرار حقلين بالسجلات في نظام الصادر (معدل)

[el_basha]

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

sadra.rar

[el_basha]

للرفع

[عبدالرحمن هاشم]

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

 

أهلا بك أخونا الكريم

 

اطلع على هذه المشاركة.. تم تعديل العنوان ليتناسب مع طلبك

 

http://www.officena.net/ib/index.php?showtopic=59909&page=2

[el_basha]

اخي العزيز عبد الرحمن هاشم اقدم لك جزيل شكري للتواصل معي

لكن هذا لايتناسب مع طلبي حيث اني اود عند ادخال كتاب يحتوي على نفس التسلسل ونفس نوع الكتاب لنفس السنة لا يتم تقبله 

اكرر شكر الجزيل 

[el_basha]

للرفع

[عبدالرحمن هاشم]

أخي الفاضل.. جرب المرفق بعد إضافة هذا الكود في حدث عند الخروج من الحقل nambook

Dim rst As Recordset
Set rst = Me.RecordsetClone

rst.MoveFirst
Do Until rst.EOF
If rst![seq] = Me![seq] And rst![typ] = Me![typ] And rst![year1] = Me![year1] And rst!nambook = Me!nambook Then

MsgBox " هذا الكتاب مكرر بنفس الإسم والسنة والرقم التسلسلي ", vbExclamation + vbMsgBoxRight + vbMsgBoxRtlReading, " تنبيه لا يمكن تسجيله"

Me.Undo
DoCmd.CancelEvent
[seq].SetFocus
Exit Do
End If
rst.MoveNext
Loop
rst.Close

اتمنى يكون المطلوب

sadra----UP.rar

[el_basha]

شكرا جزيلا هذا ماكنت اريده بالفعل 

اكرر شكري على المجهود الذي قمت به اخي الفاضل ...عبدالرحمن

لكن قام البرنامج بتكرار الكتب 

 

تم تعديل مايو 1, 2015 بواسطه el_basha

[عبدالرحمن هاشم]

يبدو أن السبب في تكراره أخي الكريم لأنك تدرج اسم الكتاب والحقول الأخرى فارغة

أي أنه من المفترض أن تدرج الـ (نوع الصادرة - السنة - تسلسل الصادرة) قبل اسم الكتاب يعني تجعل اسم الكتاب آخر شيء لكي يعمل الكود

[el_basha]

اكرر شكري الجزيل اخي الكريم علي كل المجهود الذي قمت به اخي الكريم ..