منع التكرار برمجيا من جدولين

[mr steev]

السلام عليكم 
لدي في قاعدة البيانات المرفقة جدولين tbl1 و tbl2 :

المطلوب في frm2 عند إدخال قيمة في الحقل A التحقق من عدم تكرار قيمة حقل A في الجدولين معاً 

No Duplicates.rar

تم تعديل أبريل 9, 2015 بواسطه mr steev

[ابو جودي]

انا اولا مش فاهم يعنى ايه فى الجدولين معا 

المفروض الحقل بيغذى سجل واحد فى جدول واحد مش فى جدولين ده اولا

 

ثانيا بالفعل النموذج بيدخل البيانات فى جدول واحد فعلا وهو جدول tbl2

وبالفعل مش بيقبل تكرار القيم

[mr steev]

توضيح للسيد أسير الشروق

لدي جدولين tbl1 , tbl2 فيهما نفس الحقل

المطلوب أنه إذا أدخلنا قيمة رقم 1 في الجدول الاول لا يقبل إدخالها في الجدول الثاني

 

أي لا أريد للأرقام الموجودة في جدول 1 أن تتطابق مع الأرقام الموجود في جدول 2

 

وجزاك الله خيرا

[رمهان]

Private Sub Form_BeforeUpdate(Cancel As Integer)
If DCount("*", "tbl1", "a=form![a]") + DCount("*", "tbl2", "a=form![a]") > 1 Then Cancel = -1: Undo: MsgBox ("مكرر في احد الجدولين")
End Sub

تم تعديل أبريل 9, 2015 بواسطه رمهان

[ابو جودي]

Private Sub Form_BeforeUpdate(Cancel As Integer)
If DCount("*", "tbl1", "a=form![a]") + DCount("*", "tbl2", "a=form![a]") > 1 Then Cancel = -1: Undo: MsgBox ("مكرر في احد الجدولين")
End Sub

بعد اذنك يا استاذ رمهان 

ممكن مرفق مدرج عليه الكود

انا جربته ومش شغال عندى مش عارف المشكله من عندى واللا ايه 

[mr steev]

جزاك الله خيرا 

أعتقد ان هناك خطأ في الحل

تم تعديل أبريل 9, 2015 بواسطه mr steev

[mr steev]

ما رأيكم في هذا الحل ::

 

(Private Sub A_Exit(Cancel As Integer
Me.Refresh
If Me.A <> 0 And (DCount("*", "tbl1", "[A]= form![A]") + DCount("*", "tbl2", "[A]= form![A]")) > 1 Then
"هذا السجل مكرر" MsgBox
Cancel = True
Me.A = ""
End If
End Sub

 

 

تم تعديل أبريل 9, 2015 بواسطه mr steev