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