رسالة تنبيه

تحية طيبة أخى كارم

قم بعمل حقل خاص بالرصيد الموجود بالمخزن

ومن ثم فى حدث بعد التحديث للكمية المباعة ضع الكود التالى

Private Sub Qty_AfterUpdate()
	On Error Resume Next
	Dim Qintex As Integer
	Qintex = Me.Item_Balance
	If Qty > Qintex Then
		MsgBox "عفواً " & "!!  " & "رصيدك الحالى من هذا الصنف  " & "( " & Qintex & " )" & "   لذا سيتم إدراج هذا الرصيد تلقائياً ", vbCritical + vbOKOnly, "كمية غير متوفرة بالمخزن"
		Me.Qty = Me.Item_Balance
	Else
		Me.Price.SetFocus
	End If
End Sub

حيث:

qintex: متغير لعرض قيمته فى رسالة التنبيه

Item_Balance: الكمية الموجودة فى رصيد المخزن

Qty: كمية المبيعات

Price: سعر البيع

بالتوفيق

السلام عليكم

اخي هاني مشكور على المعلومة ساحاول تطبيقها واعلامك بالنتيجة

ولك الف تحية

اخي الكريم هذا عملي قبل عمل المعلومة التي تفضلت بها

للاستفسار قبل بدء العمل

ما علاقة سعر المبيع

ولست مقيد بسعر واحد فانا اضع السعرالذي اريده

ولك السلام

3_____.rar

اخي الكريم هاني

اعمل هذا البرنامج لمحلي وانا لست خبير بل محب للاكسس ومعلوماتي كلها من خلال المواقع الكريمة

وانا اتقبل اي نصيحه تفيدني لاكمال عملي

ولك الشكر مرة ثانية و......................