اريد تصحيح كود _ شرط وجود بيانات

[ahmed_rashed]

Private Sub QSold_AfterUpdate()
If Me.QSold Is Null Then
Else
[QSold]<=[QAvilable]
MsgBox " الكمية المتاحة لا تكفي"
Me.Refresh
End If

End Sub

اريد تصحيح الكود انة في حالة الحقل فارغ لا يفعل شئ ولكن اذا كان فية بيانات يجب ان تتوفر الشروط فيها وهي ان تكون الكمية المباعة اقل من او تساوي الكمية المتوفرة ثم تحديث

[ابوخليل]

جرب هذه

Private Sub QSold_AfterUpdate()
if [QSold]>[QAvilable] then
undo
MsgBox " الكمية المتاحة لا تكفي"
Me.Refresh
End If
End Sub

 

[ابو ياسين المشولي]

If IsNull(Me.QSold) Then
Me.Refresh
ElseIf [QSold] <= [QAvilable] Then
MsgBox " الكمية المتاحة لا تكفي"
Me.Refresh
End If

مشاركة مع استاذنا ابو خليل

 

تم تعديل أكتوبر 6, 2018 بواسطه ابو ياسين المشولي

[ahmed_rashed]

الكودين في حاله انة  اكبر اوك تعمل لكن في حالة انة فارغ لا تعمل 

Database1.rar

[ابو ياسين المشولي]

17 دقائق مضت, ahmed_rashed said:

الكودين في حاله انة  اكبر اوك تعمل لكن في حالة انة فارغ لا تعمل 

Database1.rar

اخي على السوال تكون الاجابه

جرب هذا

لا يتسنا لي فتح المثال لاني بالمبايل

If IsNull(Me.QSold) or [QSold] <= [QAvilable]  Then

MsgBox " الكمية المتاحة لا تكفي"
Me.Refresh
end if

[ابوخليل]

ابو ياسين اعتقد انك تقصد كذا

If IsNull(Me.QSold) or [QSold] > [QAvilable]  Then
undo
MsgBox " الكمية المتاحة لا تكفي"
Me.Refresh
end if

لانه اصغر او يساوي  يجب ان يعمل

[ابو ياسين المشولي]

منذ ساعه, ahmed_rashed said:

Private Sub QSold_AfterUpdate()
If Me.QSold Is Null Then
Else
[QSold]<=[QAvilable]
MsgBox " الكمية المتاحة لا تكفي"
Me.Refresh
End If

End Sub

اريد تصحيح الكود انة في حالة الحقل فارغ لا يفعل شئ ولكن اذا كان فية بيانات يجب ان تتوفر الشروط فيها وهي ان تكون الكمية المباعة اقل من او تساوي الكمية المتوفرة ثم تحديث

انت هنا تقول لا تريده يعمل شي

If IsNull(Me.QSold) Then

undo

ElseIf [QSold] <= [QAvilable] Then
MsgBox " الكمية المتاحة لا تكفي"
Me.Refresh
End If

استاذي ابو خليل كان

سواله هكذ

 تصحيح الكود انة في حالة الحقل فارغ لا يفعل شئ ولكن اذا كان فية بيانات يجب ان تتوفر الشروط فيها وهي ان تكون الكمية المباعة اقل من او تساوي الكمية المتوفرة ثم تحديث

 

[ابو ياسين المشولي]

هذا طلبك حسب المرفق

If IsNull(Me.QSold) Then
Me.Refresh
ElseIf [QSold] >= [QAvilable] Then
MsgBox " الكمية المتاحة لا تكفي"
Me.Refresh
End If

 

[ahmed_rashed]

اخي ابو ياسين الكود يعمل ولكن المقصود بالحقل الفارغ كما ارفقت الصورة وهو في السطر الجديد انه اذا ادخلت كمية في الحقل والبيانات فارغه يتراجع او يلغيها ولكن تظهر رساله خطا

[ابو ياسين المشولي]

اتفضل

If IsNull(Me.QSold) Then
Me.Refresh
ElseIf IsNull(Me.itemName) Then
MsgBox " الحقل فاضي"
Me.QSold = ""
ElseIf [QSold] >= [QAvilable] Then
MsgBox " الكمية المتاحة لا تكفي"
Me.Refresh
End If

 

[ahmed_rashed]

شكرا لك يا غالي الان يعمل ممتاز واضفت علية ايضا رفرفش اضافي في حالة تحقق الشرط وهو امر استفدت منك في موضوع اخر 

Private Sub QSold_AfterUpdate()


If IsNull(Me.QSold) Then
Me.Refresh
ElseIf IsNull(Me.itemName) Then
MsgBox " الحقل فاضي"
Me.QSold = ""
Undo
Me.Refresh
ElseIf [QSold] >= [QAvilable] Then
MsgBox " الكمية االمتاحة لا تكفي"
Me.Refresh
Else
Me.Refresh
End If
End Sub

 

[ahmed_rashed]

تعديل اخير وضعته في حدث عند الخروج واضفت له امر كنسل لكي لا يخرج من نفس الحقل الا اذا غير الكمية لانة بالسابق كان يظهر الرساله ويخرج من الحقل  ووضعت ايضا الجزء الاول فقط ايضا في حدث عند التحديث علشان لو فاضي اشكرك اخي ابو ياسين 

If IsNull(Me.QSold) Then
Me.Refresh
ElseIf IsNull(Me.itemName) Then
MsgBox " ÇáÍÞá ÝÇÖí"
Me.QSold = ""
Undo
Me.Refresh
ElseIf [QSold] >= [QAvilable] Then
MsgBox " ÇáßãíÉ ÇÇáãÊÇÍÉ áÇ ÊßÝí"
DoCmd.CancelEvent
Else
Me.Refresh
End If

 

[ابو ياسين المشولي]

العفوووو

اخي الكريم

بالتوفيق