مجهود تشكر عليه اخوي زحوف .......
بس فيه شوية اخطاء برمجية , وبعض الأخطاء في الحقول , ورسالة الخطاء
الخطاء الأول في الكود التالي
----------
End If
Rst.Close <<<<<<انوقع السطر ذا ماله أي أساس ؟
End Sub
-----------------
الخطاء الثاني
في الرساله الي تظهر عند محاولة البيع وتقول الكميه المطلوبه غير متوفره وأظن الخطاء في السطر
التالي
ElseIf Me.Csale > Me.العدد Then <------------ الخطاء علامة < اتوقع انها تكون عكس
MsgBox "لا يمكن اتمام عملية البيع لان الكمية المطلوبه غير متوفره"
Me.Csale.SetFocus
-------------------------------
الخطاء الثالث في الحقول وبما أنه نموذج يتم تعبئة بيانات من خلاله فإن النموذج عند
تعبئة نموذج جديد تتغير قيم الحقول في النماذج السابقه , وهذا خطاء لأن بعد عندي
تقاريرا اقوم بطباعتها
--------------------------------
الخطاء الرابع عند الضغط على (عملية جديد) يتم مسح البيانات في الحقول والنماذج السابقه؟؟
-------------------------------
الملاحظه الاخيره انه لايتم نقص كمية المبيعات من المخزون الا بعد أن قمت بعكس الاشاره < وطلع لي ملاحظات مشابه للملاحظات الي فوق...................
وأكرر عميييييق شكري لك اخوي زحوف على المحاوله الجريئة .. وبإنتظار ردك إذا كان في شي
يمكن اكون انا الغلطان ,,,,,,,,,, تحياتي لك