اضافة شرط في كود زر امر

[حسين العربى]

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

طلبي هو  عندي زرامر اسمه طباعة باركود بسعر  في form8  به كود اريد ان اضيف علي هذا الكود شرط 

الشرط هو  عند الضغط علي الزر اقول له في الشرط اذا كان  ITEM_STATUS  يساوي   0  او  2   يلغي امر الطباعة  ويظهر رسالة للمستخدم   ان الصنف موقوف ولا يمكن طباعته

ولكم جزيل الشكر مرفق نسخة من البرنامج

BARCODE _coop k.rar

[Shivan Rekany]

منذ ساعه, حسين العربى said:

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

طلبي هو  عندي زرامر اسمه طباعة باركود بسعر  في form8  به كود اريد ان اضيف علي هذا الكود شرط 

الشرط هو  عند الضغط علي الزر اقول له في الشرط اذا كان  ITEM_STATUS  يساوي   0  او  2   يلغي امر الطباعة  ويظهر رسالة للمستخدم   ان الصنف موقوف ولا يمكن طباعته

ولكم جزيل الشكر مرفق نسخة من البرنامج

BARCODE _coop k.rar

اتفضل

BARCODE _coop k.rar

[حسين العربى]

الف شكر اخي الفاضل  

[Shivan Rekany]

منذ ساعه, حسين العربى said:

الف شكر اخي الفاضل  

لا داعي للشكر علواجب

احنا في الخدمه‌

مع تقدير

[حسين العربى]

اخي الفاضل لوتكرمت /حصل عندي تعديل  بنائا علي طلب المستخدم  طبعا يريد ان يطبع رقم 0 ورقم 1 الي هو موقوف وفعال  دون رقم 2 فما التعديل علي هذا الكود 

If Me.ert <> "فعال" Then
MsgBox "الصنف موقوف"
Exit Sub
Else

[Shivan Rekany]

2 ساعات مضت, حسين العربى said:

اخي الفاضل لوتكرمت /حصل عندي تعديل  بنائا علي طلب المستخدم  طبعا يريد ان يطبع رقم 0 ورقم 1 الي هو موقوف وفعال  دون رقم 2 فما التعديل علي هذا الكود 

If Me.ert <> "فعال" Then
MsgBox "الصنف موقوف"
Exit Sub
Else

عفوا لكن ممكن توضح اكثر لو سمحت
 

[حسين العربى]

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

BARCODE _coop k.rar

[Shivan Rekany]

7 ساعات مضت, حسين العربى said:

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

BARCODE _coop k.rar

اخي الكريم
لا عليك الا تغير هذا السطر
 

If Me.ert <> "فعال" Then

الى

If Me.ert = "موقوف مؤقت" Then

مع تقدير

[حسين العربى]

الف الف شكر اخي الفاضل هذا  هو المطلوب  الله خير وذادك الله من علمه