منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

نسخة كاملة : مشكلة في عرض رقم الصنف بعد البحث عنه الى الجريد-مرفق صورة توضيحية
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
الصفحات : 1 2 3 4 5
السلام عليكم ورحمة الله 
اليوم عندي مشكلة في التعديل بعد الحفظ 

اخواني المبرمجين الكبار 
لدي مشكلة عند التعديل على البيانات التي تم حفظها حيث يتم التعديل بشكل جميل  الا عند نقطه واحدة وهي 
 
المخزن=10   النصرف 1  المتبقي 9
 عند التعديل علي نفس الفاتورة بعد الحفظ 
المخزن =10  المنصرف 2  المتبقي 7  وهنا الخطاء 

هل من حل الله يسهل 


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

اتمنى ذلك
الفكرة هي عند الصرف
المخزن 10  المنصرف 2   المتبقي 8
عند التعديل  المنصرف الى 3 مثلاً
المخزن 8+المنصرف السابق  2    -المنصرف الحالي3    المتبقي 7

اعتقد انها الفكرة لكن كيف كتابة الكود
ساعدووونييييييييييييييييييييييييييييييييييييييييييييي
اخواني في الله
مازالك المشكلة في تعديل صنف او حذف صنف قائمة
(16-09-19, 06:55 PM)awidan76 كتب : [ -> ]السلام عليكم ورحمة الله 
وعليكم السلام 
اليوم عندي مشكلة في التعديل بعد الحفظ 

اخواني المبرمجين الكبار 
لدي مشكلة عند التعديل على البيانات التي تم حفظها حيث يتم التعديل بشكل جميل  الا عند نقطه واحدة وهي 
 
المخزن=10   النصرف 1  المتبقي 9
 عند التعديل علي نفس الفاتورة بعد الحفظ 
المخزن =10  المنصرف 2  المتبقي 7  وهنا الخطاء 

اذا امكن ارفع مشروع صغير للفورم الذي يحتوي على المشكلة فقط   مع قاعدة البيانات واشرح فيه كيف يعمل الكود والمطلوب حيث اني حملت مشروعك ولم افهمه. 
كل ما حددت الكود المطلوب تعديله افضل حيث نعناني من ضيق الوقت. 
وان استطعت حل المشكلة فلن ابخل. او ننتظر باقي الاعضاء بعد تحديد النقطة التي تريد الحل.
 


هل من حل الله يسهل 


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

الفكرة للاخ / احمد منصور الله يبارك فيه 
تعتمد على صورتين للتشك بوكس  يتم اسنادها للفليكس  اذا بحثت تحت الادوات سوف تجدها
اما الطريقة فالاكواد موجودة في المشروع.
ولا يهمك سوف اضع المثال وتحديد نقطة التي فيها مشكلتي

شكراً على تجاوبك معي
السلام عليكم اخي السندباد وكل الاخوة 

تحية طيبة وبعد 



المشكلة التي عندي هي التعديل والحذف 





عند اضافة اي فاتورة مرفقه باصناف تتم العملية بشكل جيد خصوصاً بعد مساعدة الاخ الغالي [b]asemshahen5[/b]  جزاه الله خيراً 
[attachment=22986]

الان المشكلة عندما يريد المستخدم تعديل تعديل صنف للكمية التي صرفها سابقاً  التي هي عل سبيل المثلا 2  الى 4  يقوم بعرض بيانات الفاتورة 
والاصناف تظهر تلقائاً في الفلكس جريد  
لم تظهر البيانات 

[attachment=22987]

وماهي الطريقة للتعديل على اصناف فاتورة بعد حفظها سابقاً 
بحيث يقوم البرنامج عند التعديل باضافة الكمية المصروفه سابقة والتي هي 2  الى المخزن ويقوم بصرف الكمية المعدلة والتي هي 4 ويتم الحفظ وصلى الله علي سيدنا محمد 

اما في الحذف  
1) حذف صنف من فاتورة يقوم باضافة الكمية المصروفه سابقاً ويحذف السجل بالمرة  اضن ان تحديد الصنف او السجل عن طريق تشك بوكس مثل مثال اخي احمد منصور بيكون حلو جداً  لكن لم استطع فهم القصة 
2) حذف فاتورة : يقوم باضافة الكميات المصروفة الى المخزن ويحذف الفاتورة مع الاصناف التي تنتمي لها 



 لم استطع عمل ذلك ابدا


ارجو المساعدة ولك جزيل الشكر 


 
اخواني الاعزاء تحية طيبة 

لقد قمت بتعديل عرض بيانات الاصناف بشرط رقم الفاتورة  وظهرت ولكن ليست كل الاصناف التي تنتمي للفاتورة , يقوم باختيارة صنف واحد فقط ويعرضة وانا اريده ان يعرض كل للاصناف الخاصة بالفاتورة 

عند الاضافة 
[attachment=22997]

وعند عرض بيانات الفاتورة رقم واحد 
[attachment=22998]

والكود المستخدم هو 
[attachment=22999]

PHP كود :
Private Sub Text1_Change()
Dim I As Integer
For 1 To fox.Rows 1

Set RSDataCome 
= New ADODB.Recordset
If RSDataCome.State adStateOpen Then RSDataCome.Close
RSDataCome
.CursorLocation adUseClient
RSDataCome
.Open "SELECT Store.iD,Store.chs,Store.noo,InOUTASNAfTB.Qty From Store,InOUTASNAfTB where Store.iD=InOUTASNAfTB.ID and InOUTASNAfTB.FtoraID LIKE '%" UCase(Text1.Text) & "%'"DBadOpenStaticadLockOptimistic
           
If RSDataCome.RecordCount 0 Then
           fox
.TextMatrix(I0) = RSDataCome!Id 'رقم الصنف
           fox.TextMatrix(I, 1) = RSDataCome!chs ' 
اسم الصنف
           fox
.TextMatrix(I2) = RSDataCome!noo RSDataCome!Qty ' عدد الاصناف
           fox.TextMatrix(I, 3) = RSDataCome!Qty '
الكمية
           fox
.TextMatrix(I4) = fox.TextMatrix(I2) - fox.TextMatrix(I3)
End If
Next

End Sub 

فما مشكلة عدم ظهور كل الاصناف التي تخص الفاتورة رقم 1 

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

أهلا أخي الكريم , تم تعديل المثال في المرفقات , بالتوفيق والنجاح .
الصفحات : 1 2 3 4 5