اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

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


إذهب إلى أفضل إجابة Solved by Elsayed Bn Gemy,

الردود الموصى بها

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

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

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

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

رابط هذا التعليق
شارك

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

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

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

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

 

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

رابط هذا التعليق
شارك

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

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

ta2015.rar

تم تعديل بواسطه مارد
  • Like 1
رابط هذا التعليق
شارك

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

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

رابط هذا التعليق
شارك

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

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

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

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

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

 

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

رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information