رسالة تحذير

[mohamedyousef]

السلام عليكم

الملف المرفق اريد به عند القيام بتسجيل اذن صرف صنف كما هو موضح في الملف ولا يوجد به رصيد بالمخزن تظهر رساله لايوجد رصيد كافي للتسجيل ويمنع تسجيل الاذن وذلك على حسب الرصيد الموجود في صفحة التكويد الاعمدة R,S,T فهناك رسالة تظهر ولكن لاتمنع التسجيل مجرد رسالة تنبيه فقط فانا اريد عند القيام بالضغط على زر تسجيل اذن الصرف ولا يوجد رصيد تمنع المستخدم من التسجيل 

وشكرا

 

test2.xlsm

[أبوأحـمـد]

وعليكم السلام

تمت الإجابة على هذا السؤال أكثر من مرة وبعدة طرق حسب طلبك

ولكن يبدوا أنك لا تتابع مواضيعك

اظهار رسالة عند عدم وجود مخزون

[mohamedyousef]

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

[أبوأحـمـد]

اقرأ الكود جيدا أو  على الأقل جرب البرنامج 

أضفت لك في الكود البرمجي أشياء أصل لم تطلبها لمنع التسجيل

• عدم تحديد كود الصنف
• عدم كتابة عدد القطع
• بالإضافة إلى هل الرصيد كافي

Exit Sub تعني اخرج من الإجراء

[mohamedyousef]

استاذي بالفعل موجود الكود وانا متأسف على انني لم اشاهد الرد ولكن انا قمت بالتعديل على الفورم واضفت الكود المرسل من حضرتك وظهرت رسالة حطأ 

مرفق لحضرتك الملف المعدل

test2.xlsm

[أبوأحـمـد]

لم تضف الكود كاملا

نسيت هذا  ضعه في الموديول Module

Function fnd2(n As Long, s As Long)
    Dim ItemRow As Integer
    ItemRow = WorksheetFunction.Match(n, Sheet1.Range("A1:A99999"), 0)
       If ItemRow = Empty Then Beep:   Exit Function
fnd2 = Sheet1.Range("S" & ItemRow).Value - s
End Function

 

[mohamedyousef]

تمام ربنا يبارك في عمرك ومتأسف على ازعاج حضرتك ولكن اذا اردت اطبق الكود على خانة الكيلو والمتر ماذا افعل

[mohamedyousef]

اخي الكريم

الف شكر قمت بمراجعة الملف بتوجيهات حضرتك والحمد لله تم التصحيح الف شكر على تعب ومجهود حضرتك