إظهار رقم السجل المكرر

[at_aziz]

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

اخواني فيه شغله بسيطه ماقدر احلها  في المثال المرفق

 

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

مثلا لو ادخل تاريخ الادخال 2018/10/01 الى 2018/10/02 واضغط على زر عرض التقرير تظهر لي رساله نفيد التكرار ويظهر رقم السجل حق التاريخين المكرره في حقل الرقم  وراح يكون 1

ارجو المساعده بارك الله فيكم وجزاكم الله خير

AZAZ.rar

[ابو ياسين المشولي]

اتفضل هذا حسب فهمي للسوال

Dim d As String
If Not IsNull(DLookup("[txtD1]&[txtD2]", "tbl1", "[txtD1]=forms!FSERSH!txtD1 and [txtD2]=forms!FSERSH!txtD2  ")) Then
MsgBox "هذا التاريخ سبق ادخالة في طباعة المسيرات"
Me.ID1 = DLookup("[ID1]", "tbl1", "[txtD1]=forms!FSERSH!txtD1 and [txtD2]=forms!FSERSH!txtD2 ")
Me.txtD1 = Null
Me.txtD2 = Null
Me.txtD1.SetFocus
Exit Sub
End If

 

AZAZ.rar

[at_aziz]

بارك الله فيك وجزاك الله خير اخي الفاضل او ياسين

اشكرك 

هذا هو المطلوب 

وفقك الله ورعاك اخي

[رمهان]

لم يفتح معي ملف الضغط

ان امكن ملف الاكسس مباشرة

[ابو ياسين المشولي]

اتفضل اخي رمهان

AZAZ.accdb

4 دقائق مضت, at_aziz said:

بارك الله فيك وجزاك الله خير اخي الفاضل او ياسين

اشكرك 

هذا هو المطلوب 

وفقك الله ورعاك اخي

بالتوفيق اخي

[at_aziz]

بارك الله فيك وجزاك الله خير اخي الفاضل اخي رمهان

الاخ ابو ياسين اعطانا حل مناسب  جزاه الله خير

واذا عندك طريقة اخرى  ودنا  نستفيد منها ايضا

وكلكم خير وبركه

 

احترامي وتقديري لكم جميعا

 

 

 

[رمهان]

حياكم الله جميعا

والحقيقة رديت قلت اشوف طريقة اخرى

والطرق كثيرة ولكن وجدت طريقة اخي ابو ياسين كافية شافية 

بالتوفيق