منع التعديل على المبلغ المقبوض من العميل

[عبد اللطيف سلوم]

السلام عليكم

يا ريت تفيدوني بهاي المسألة للضرورة

صممت برنامج محاسبة يختص بنظام الاقساط

الثغرة الموجودة فيه

انه بعد ما يقبض المحاسب من العميل مبلغ ويطبع سند قبض ,  يستطيع المحاسب ان يغير قيمة المبلغ المقبوض 
بدلا من 50 دينار مثلا يجعلها 20 دينار ويختلس الفرق 
هل هناك حل انه يتم منع المحاسب من التعديل عبى الدفعه ؟؟

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

تم تعديل أكتوبر 15, 2017 بواسطه salloum68
ارفاق صورة للتوضيح

[Shivan Rekany]

18 دقائق مضت, salloum68 said:

انه بعد ما يقبض المحاسب من العميل مبلغ ويطبع سند قبض ,  يستطيع المحاسب ان يغير قيمة المبلغ المقبوض 
بدلا من 50 دينار مثلا يجعلها 20 دينار ويختلس الفرق

تقدر تعطي كود بعد طبع او بعد تكتب المبلغ اي يكون المبلغ اكبر من صفر حينئذ يعمل قفل الحقل
 

IF Me.MablaxNumber > 0 then Me.MablaxNumber.Locked = true else Me.MablaxNumber.Locked = False

Me.MablaxNumber ھو اسم الحقل اللی تکتب فیھا المبلغ

[عبد اللطيف سلوم]

اشكرك عزيزي جاري تجربة الكود

[ابوخليل]

السلام عليكم 

مشاركة مع اخي شفان

اجعل خصيصة النموذج  لادخال البيانات = نعم

وعند امر الطباعة يتم تحديث النموذج ReQuery  ستختفي البيانات

 

[عبد اللطيف سلوم]

صديقي @Shivan Rekanyمش عارف وين اضع الكود 

شوف الصورة المرفقة

انا بدي في حالة تغير الامر من (لم يتم الدفع ) الى (تم الدفع ) هنا لا يستطيع المحاسب تعديل المبلغ بعد اعطاء امر تم الدفع

 

اين اضع الكود ؟؟

تظهر رسالة خطأ

[Shivan Rekany]

IF Me.HaleAlDefia = "تم الدفع" Then Me.HaleAlDefia.Locked = True Else Me.HaleAlDefia.Locked = False

2 :
 

IF Me.HaleAlDefia = "تم الدفع" Then Me.Mablax.Locked = True Else Me.Mablax.Locked = False

1 - 2 :
 

IF Me.HaleAlDefia = "تم الدفع" Then Me.HaleAlDefia.Locked = True : Me.Mablax.Lucked = True Else Me.HaleAlDefia.Locked = False : Me.Mablax.Lucked = False

HaleAlDefia ھو اسم الحقل اللی تکتب فیھا تم الدفع او لم یتم الدفع
Mablax ھو حقل اللي تكتب فيها المبلغ
وسيتم وضع الكود في حدث بعد تحديث للحقل HaleAlDefia
والا ارفق القاعدة لكي نعمل عليها التعديل المطلوب
وهناك طريقة اخري تفضل به استاذنا ابوخليل
تقبل تحياتي

[عبد اللطيف سلوم]

59 دقائق مضت, ابوخليل said:

السلام عليكم 

مشاركة مع اخي شفان

اجعل خصيصة النموذج  لادخال البيانات = نعم

وعند امر الطباعة يتم تحديث النموذج ReQuery  ستختفي البيانات

 

اخي ابو خليل
اذا جعلت خصيصة النموذج لادخال البيانات يصبح فارع

وانا عامل تنزيل الاقساط اوتو من خلال مايكرو

الصورة المرفقة مبلغ القسط وحالة الدفع تنزل مباشرة مجرد اني اكبس على ايقونة تسجيل الاقساط

فاذا غيرت الخصوصية تصبح فارغة والايقونة لا تستجيب

 

منذ ساعه, ابوخليل said:

السلام عليكم 

مشاركة مع اخي شفان

اجعل خصيصة النموذج  لادخال البيانات = نعم

وعند امر الطباعة يتم تحديث النموذج ReQuery  ستختفي البيانات

 

انا عامل الحاق 

44 دقائق مضت, Shivan Rekany said:

IF Me.HaleAlDefia = "تم الدفع" Then Me.HaleAlDefia.Locked = True Else Me.HaleAlDefia.Locked = False

2 :
 

IF Me.HaleAlDefia = "تم الدفع" Then Me.Mablax.Locked = True Else Me.Mablax.Locked = False

1 - 2 :
 

IF Me.HaleAlDefia = "تم الدفع" Then Me.HaleAlDefia.Locked = True : Me.Mablax.Lucked = True Else Me.HaleAlDefia.Locked = False : Me.Mablax.Lucked = False

HaleAlDefia ھو اسم الحقل اللی تکتب فیھا تم الدفع او لم یتم الدفع
Mablax ھو حقل اللي تكتب فيها المبلغ
وسيتم وضع الكود في حدث بعد تحديث للحقل HaleAlDefia
والا ارفق القاعدة لكي نعمل عليها التعديل المطلوب
وهناك طريقة اخري تفضل به استاذنا ابوخليل
تقبل تحياتي

جربت الموضوع ولم يفلح

يمكن لاني عامل استعلام الحاق 

[عبد اللطيف سلوم]

تم حل الموضوع

وذلك بتغيير الاعدادات 

ممكن لا

تم تأمينة نعم

 

هيك ما يقدر يعدل على المبلغ