اذهب الي المحتوي
أوفيسنا

الردود الموصى بها

قام بنشر

السلام عليكم

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

وشكرا

 

test2.xlsm

قام بنشر

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

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

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

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

لقطة الشاشة 2023-08-10 145150.png

  • Like 1
قام بنشر

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

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

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

 

لقطة الشاشة 2023-08-10 152030.png

  • Like 1
قام بنشر

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

قام بنشر

اخي الكريم

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

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information