مساعده لإضافة كود للبرنامج المرفق

للرفع يا اخواااان

السلام عليكم :

سؤال : هل رقم الرخصة يتكرر أو لا يتكرر ؟

بمعنى هل ممكن يكون فيه رخصة أخرى تحمل الرقم ( 2 ) ؟؟!!

اشكرك اخي قتى الوادي

الرقم (2) ليس رقم الرخصة وانما رقم الصادر

رقم الرخصة لها رقم مستقل

يمكن تكرير الرقم (2) ولكن بتاريخ مختلف اما بنفس التاريخ لايمكن التكرار

ما اريدة هو اذا قمت بفتح سجل جديد في النموذج وادخلت الرقم (2) بنفس التاريخ1111/11/11

يعطيني رسالة ان هذا الرقم وبهذا التاريخ قد تم تسجيلة مسبقا

ودمت سالماً من كل شر ان شاء الله

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

ضع هذا الكود في حدث بعد التحديث لحقل ( التاريخ ) :

rkmsadr2 = DCount("[rkmsadr]", "[Rj3]", "[rkmsadr]=[forms]![FF1]![rkmsadr]")
tarik2 = DCount("[tarik]", "[Rj3]", "[tarik]=[forms]![FF1]![tarik]")

If rkmsadr2 > 0 And tarik2 > 0 Then

MsgBox "ÑÞã ÇáÕÇÏÑ :  " & rkmsadr & " æÊÇÑíÎ : " & tarik & " ÓÈÞ ÊÓÌíáå"
    DoCmd.DoMenuItem acFormBar, acEditMenu, acUndo, , acMenuVer70

rkmsadr = 0
DoCmd.GoToControl "rkmsadr"
tarik = Null

Else
End If

السلام عليكم ورحمة الله أخي فتى الوادي

اشكرك جزيل الشكر على جهدك المتواصل معي

قمت بعمل ما طلبت وتظهر لي رسالة التكرار وبعد الضغط

موافق تظهر رسالة الخطى كما في الصورة فأين الخطاء اذا تكرمت

اللرفع

يا اخون هل المشكلة صعبة لهذة الدرجة ام اني لم اوصل الفكرة

بارك الله فيك اختنا واستاذتنا الفاضلة

تم حل المشكلة بنجاح فأشكرك جزيل الشكر وجعلة الله في ميزان حسناتك