ضبط كود رسالة الاسم مكرر

[abouelhassan]

السلام عليكم احبابى الاساتذة الكرام

ممكن التكرم بضبط الكود حصلت عليه من المنتدى بس ماضبط معى اريد عند اختيار اسم حساب لو اتكرر تخرج رسالة الحساب مكرر

Private Sub iPage_BeforeUpdate(Cancel As Integer)
If DCount("iPage_Name", "tbl_Pages", "[iPage_Name]=" & Me.ipage_ID) > 0 Then

MsgBox " اسم الحساب مكرر"

Cancel = True
End If

End Sub

بارك الله فيكم اخواتى الاحباب

DATA1412.zip

[الحلبي]

اكتب الكود بالصيغة هذه مع بعض التعديلات

Private Sub iPage_BeforeUpdate(Cancel As Integer)
If DCount("iPage_Name", "tbl_Pages", "[iPage_Name]='" & Me.ipage_ID & "'") > 0 Then

MsgBox " اسم الحساب مكرر"

Cancel = True
End If

End Sub

 

[abouelhassan]

مشكور اخى استاذ @الحلبي بارك الله فيك

الكود توقف لم يعمل للاسف

احترامى وتقديرى

[د.كاف يار]

اتفضل التعديل يابو الحسن

 

DATA14.zip

[abouelhassan]

حبيب قلبى د.كاف يار استاذى الغالى

ظهرت هذه المشكلة عند كتابة الاسم

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

بارك الله فيك استاذى الحبيب لقلبى

[د.كاف يار]

اتفضل التعديل

 

DATA142.zip

[abouelhassan]

8 ساعات مضت, abouelhassan said:

حبيب قلبى د.كاف يار استاذى الغالى

ظهرت هذه المشكلة عند كتابة الاسم

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

بارك الله فيك استاذى الحبيب لقلبى

بارك الله فيك استاذى الحبيب نفس المشكلة الكود يعمل على سجل الاسم والاسم وارد يتكرر احتاج ان يعمل الكود على سجل الحساب وليس الاسم يعنى

اول سجل عادى يتكرر اما المطلوب التنبيه ان الحساب تكرر هل تريد الاستمرار نعم يستمر التكرار عادى لا يتوقف ويتم الغاء

بارك الله فيك اخى الحبيب

احترامى

[د.كاف يار]

تفضل هذا التعديل

 

DATA143.zip

[abouelhassan]

اعزك الله وبارك فيك استاذى @د.كاف يار د.كاف يار

حفظك الله 

انظر استاذى بعد ان ادخلت اول اسم ظهرت هذه المشكلة 

لم يكن حتى مكرر اكرمك الله مثل ما تكرمنى حبيبى استاذى الغالى

احترامى

[د.كاف يار]

تفضل التعديل

 

DATA145.zip

[abouelhassan]

اغرقنا كرمك استاذنا الحبيب د.كاف يار اعزك الله وبارك لك واكرمك وزادك الله من فضله يارب ممتاز جداااااااااااااااااااااااااااااااا

كل الشكر والتقدير والاحترام من اخيك

[kha9009lid]

2 ساعات مضت, د.كاف يار said:

تفضل التعديل

ماشاء الله تبارك الله علم وادب وسعة صدر

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