ارجوا شرح هذه النقاط للإهميه والرد بسرعه من اهل الخبره
(1)عند حذف صنف من المخزن وهذا الصنف تمت عليه حركه مخزنيه من بيع او شراء او اضافه لمخزن يعطينى رسالة تنبيه بإن هذا الصنف تمت عليه حركه
وهذه هى الاكواد
numberfield = Me.Number
Dim a
a = DLookup("[number]", "names", "[number]='" & Me.Number & "'")
If Not (IsNull(a)) Then
MsgBox "هذا الصنف موجود ضمن الاصناف المخزنية", vbCritical, "رساله تحذيرية"
Cancel = True
Me.Undo
DoCmd.FindRecord numberfield
End If
(2) فى حالة عمل فاتورة البيع اوضافه لمخزن والرصيد اقل من المطلوب يعطينى رسالة تنبيه بإن الكميه المنصرفه اكبر من الرصيد الفعلى
وهذه هى الاكواد
هذا الحقل مهمتة الرئيسية مقارنة المنصرفة المدخلة داخل الحقل بالرصيد الحالي لذلك نحتاج لاظهار الرصيد الحالي اولاً داخل هذا الحقل وذلك من خلال هذه الجملة الرائعة وقت كتابة رقم الصنف
Me.item_Balance = DLookup("sum([Qty_in_Multi])-sum([qty_out])", "transaction", "[number]='" & [كود الصنف] & "'")
وهذه الدالة مهمتها جلب اجمالي المدخلات وجلب اجمالي المخرجات من خلال كود الصنف
بعد ذلك ومن خلال عملية حسابية صغيرة داخل حقل الكمية المنصرفة نكتب التالي
If Qty_out > item_Balance Then
MsgBox "الكمية المنصرفة اكبر من الرصيد الحالي", vbCritical + vbOKOnly, "رسالة تحذيرية"
Cancel = -1
Else
Me.Total.SetFocus
End If
(3)ترقيم تلقائى لرأس الفاتوره مع العلم ان الشيت تمت عليه حركات
وهذه هى الاكواد
Me!AutoNum = Nz(DMax("[Add_doc]", "[Add_doc]"), 0) + 1
ارجوا من اهل الخبره شرح هذه الاكواد ببساطه لانى مبتدأ ولكم جزيل الشكر
