كود تنبيه عدم توازن قيدين

[نور أناري]

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

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

ولكم شكري مجددا

واعتذر عن رفع الملف لان فتحت المستعرض بصعوبة بسبب سوء الاتصال في بلدي

[Elsayed Bn Gemy]

هو انا مش متخيل الشكل عامل ازاى بس فى حاجتين

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

وتزودى حقل فى الاستعلام لحساب الفرق ما بينهم

والقيد اللى مش مصفر هيكون اكبر من الصفر او اقل

 

وكمان تقدرى تعرفى كل القيود اللى مش مصفرة من خلال الاستعلام دا

[نور أناري]

بعد جهد جهيد فشل التحميل ..

فعملت مثال خفيف للمطلوب

وربما فيه شرح اكثر وضوح

ta2015.rar

[Elsayed Bn Gemy]

If Me.a.Value = Me.b.Value Then
DoCmd.GoToRecord , , acNewRec
Else
MsgBox "عفوا القيد غير متساوى"
Me.b.SetFocus
End If

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

ta2015.rar

تم تعديل مايو 14, 2015 بواسطه مارد

[osama.okn]

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

أخوكم ابو حمزة 

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

[عبد الله قدور]

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

يعني بعد ما تكتب القيد بالكامل تعطيه اضافة رح ينبهك أنه القيد غير متوازن ولا يكمل الاضافة واذا كان متوازن يكمل الاضافة دون تنبيه

[Elsayed Bn Gemy]

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

يعني بعد ما تكتب القيد بالكامل تعطيه اضافة رح ينبهك أنه القيد غير متوازن ولا يكمل الاضافة واذا كان متوازن يكمل الاضافة دون تنبيه

ايوا انا ضفتى زر باسم حفظ وحطيت حدث عند النقرا لكود دا

على حسب المرفق

وبعدين انا اخترت اكواد سهلة علشان تتفهم

 

لو فى اى ملاحظات ياريت تنبهنى

[نور أناري]

جزاكم الله خيرا جميعا واخص الاخ مارد

فقد امسكني طرف الخيط وجربت ماتفضلتم به

لكم احترامي