إدارة المخازن ، والمطلوب جعل الكمية المنصرفة لا تتجاوز الكمية الباقية
أولاً اشكركم جزيلاً على المعلومات والدروس القيمة التي استفدت كثيراً منها على هذا الموقع.
يوجد قاعدة بيانات مرفقة عن إدارة المخازن ، والمطلوب جعل الكمية المنصرفة من المستودع في النموذج ( Frm_h_out ) لا تتجاوز الكمية الباقية في المستودع والتي تظهر في النموذج ( Frm_balance ) ويصبح الرصيد بالسالب. وهل يمكن سحب نموذج ورقي بالاسكنر ليكون ضمن قاعدة البيانات . مرفق رابط القاعدة وشكرا
https://drive.google.com/file/d/1VACBbykgmR6LUF3fDwHzBvg2pEcTf_vJ/view?usp=sharing
تم اضافة الكود التالي في حدق عند الخروج في حقل الكمية
Private Sub quantity_Exit(Cancel As Integer)
If (DLookup("[balance]", "Query3", "Xname='" & Me.sanaf.Column(1) & "'") < Me.quantity) Then
MsgBox "الرصيد غير كافي"
DoCmd.CancelEvent
Me.Undo
End If
End Sub
وظيفة الكود الاستعلام عن الرصيد فاذا كان اقل من الكمية المراد بيعها يتم الغاء العملية مع رسالة تنبيه بان الرصيد غير كافي
تحياتي
