مساعدة فى يوزر فورم

[koky_dar]

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

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

اريد اضافة خانه داخل اليوزر فورم للاجمالى بحيث يكون الاجمالى = ( عدد الدعاوي * الضريبة ) + ( العدد * الرسم + العدد * الرسم *العدد * الرسم *العدد * الرسم *العدد * الرسم *العدد * الرسم )

بحيث تتحدث خانه الاجمالى بشكل تلقائى بمجرد اضافة اى رقم داخل خانات الادخال , ثم اقوم بالترحيل داخل الشيت بعد الانتهاء من حساب الاجمالى

ايضا ان امكن ان يقوم الفورم بالتاكد ان عدد الدعاوي = مجموع اعداد فئات الرسم , واذا كان اعداد الرسم اكبر من عدد الدعاوى المقدمة تظهر رساله خطأ 

وشاكر لمجهوداتكم .

ترحيل.rar

[أبو حنــــين]

السلام عليكم

جرب المرفق

 

2ترحيل.rar

[koky_dar]

5 ساعات مضت, أبو حنــــين said:

السلام عليكم

جرب المرفق

 

2ترحيل.rar

ربنا يجازيك خير اخي الكريم 

عمل ممتاز وتسلم ايدك 

ولكن هنا بعض التعديل بعد اذنك 

1- 

خانه الايصال هى عبارة عن حاصل ضرب عدد الدعاوي * الضريبة 

يعنى مثلا محامى جايب 15 عريضة و ضريبة المحامى على العريضة الواحدة 10 جنيه 

اذا ايصال الضريبة = 15 * 10 = 150 جنية

 

2- 

رساله الخطا التي تظهر اثناء الحفظ 

والتى تشير الى ان مجموع عدد الدعاوي يجب ان يساوي مجموع الرسم 

اريد ان يتم المقارنه بين عدد الدعاوى التى تم ادخالها فى خانه " الدعاوي " مع مجموع خانات " عدد "

مثال : محامى جايب 10 دعاوي  , 5 منهم برسم 45 جنيه و 5 برسم 36 جنيه 

فاريد البرنامج يقارن مجموع العدد 5 + 5 مع اللى جايبة المحامى (10 دعاوي) , بحيث لو اخطأت اثناء الادخال وقمت بادخال دعوى زيادة يقولى ان المحامى جايب 10 دعاوي فقط وليس 11 

 

 

وشاكر جدا لمجهوداتك وتسلم ايدك 

[أبو حنــــين]

مرحبا

هل بهذه الطريقة

 

ترحيل 3.rar

[koky_dar]

منذ ساعه, أبو حنــــين said:

مرحبا

هل بهذه الطريقة

 

ترحيل 3.rar

تسلم ايدك الله ينور

اخر شىء بعد اذنك , بعد حفظ البيانات بالاقى البرنامج بيكتب  فى عمود الايصال فى العمود D صفر 

فممكن بعد اذنك تعدلها بحيث يكتب القيمه صحيحة زى ما بتظهر فى الفورم وهى عباره عن حاصل ضرب عدد الدعاوى * الضريبة 

وشكرا لحضرتك وتعبك معايا 

[أبو حنــــين]

تم التعديل

 

ترحيل 4.rar

[koky_dar]

7 ساعات مضت, أبو حنــــين said:

تم التعديل

 

ترحيل 4.rar

تسلم ايدك ابو حنين

اخر حاجة معلش غلبتك معايا

انا عملت خانتين واحدة باسم المبلغ المدفوع , و الاخرى باسم الباقى له

عايز اعمل معادله تخلى قيمه الباقى له = المبلغ المدفوع - المبلغ المطلوب من المحامى 

والف شكر لمجهوداتك وربنا يجازيك خير

ترحيل 4.rar

[أبو حنــــين]

مرحبا

تم عمل المطلوب

 

ترحيل 5.rar

[koky_dar]

تسلم ايدك ابو حنين ربنا يجازيك الف خير 

الله ينور , ومعلش غلبتك معايا

[koky_dar]

شىء اخير معلش انا اسف 

عايز الغى شرط اكمال كافه البيانات 

يعنى ممكن المحامى يبقى جايب ال 10 عرايض بتوعه رسم واحد 

فبالتالى باقى الخانات ليس لها حاجة انى اكتب فيها 0 

فممكن نخلى شطر الاملاء يتوقف عند اول خانه للرسم  ؟

بمعنى اكتب :

اسم المحامى

10 عرائض

10 ضريبة

تصنيف الرسم يبقى عدد 10 * رسم 45 

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

 

وشكرا

[أبو حنــــين]

السلام عليكم

قم فقط بتغيير الرقم 19 الى الرقم 6 في زر الحفظ و في الجزئية التالية 

و الرقم 6 يعني إلزامية ملأ  6 خاننات  الأولى : المحامي - الدعاوي - الضربة - الايصال - عدد - رسم

 

With SH
Last = .Cells(Rows.Count, "A").End(xlUp).Row + 1


' هذا هو الرقم المعني بالتغيير من 19 الى 6
For x = 1 To 19


If Me.Controls("T" & x) = "" Then
MsgBox "هناك بيانات غير مكتملة", vbExclamation + vbMsgBoxRight, "خطأ"
Me.Controls("T" & x).SetFocus
Exit Sub
End If
Next

 

[koky_dar]

تم التعديل

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