رسالة تنبيه بشرطين

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

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

اريد رسالة تنبيه في حقل البحث في حدث بعد التحديث / الشرط /في حالة حقل الكمية  = 0  / وحقل رقم الوحدة = 7 يظهر لي رسالة

وجزاكم الله خيرا

[Khalid Jnb]

السلام عليكم

تفضل اخي الكريم طلبك

تحياتي

Database1.rar

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

الف الف شكر استاذي الفاضل جزاك الله خيرا

بس عندي مشكلة حقل الكمية بيكون NULL فالكود مش بشتغل الي اذا حطيت 0 في الكمية

تم تعديل مارس 10, 2020 بواسطه حسين العربى

[Khalid Jnb]

اخي العزيز

لديك خيارات

الاول ان تجعل القيمة الافتراضية للحقل = صفر

والخيار الثاني ان تستخدم الداتلة NZ  لارجاع  قيمة الحقل الفارغة في الكمية الى صفر      (0 ; ( [الكمية])NZ

احياتي   

 

تم تعديل مارس 10, 2020 بواسطه خالد سيسكو

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

معلش اخي شوف ردي الاخير بعد التعديل علي

تم تعديل مارس 10, 2020 بواسطه حسين العربى

[Khalid Jnb]

اخي العزيز

لديك خيارات

الاول ان تجعل القيمة الافتراضية للحقل = صفر

والخيار الثاني ان تستخدم الداتلة NZ  لارجاع  قيمة الحقل الفارغة في الكمية الى صفر      (0 ; ( [الكمية])NZ

احياتي   

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

الخيار الاول لايظبط مع لشئ خاص بالبرنامج عندي يطول شرحه

الخيار الثاني ممكن تكتبلي الكود كامل لو تكرمت لانه ماظبط معي

 

تم تعديل مارس 10, 2020 بواسطه حسين العربى

[Khalid Jnb]

اخي العزيز

كان من الافضل رفع مثال منك او ملفك لغرض التعديل

المهم الكود التالي 

Nz([الكمية]);0)

تحياتي

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

اخي الفاضل نفس مثالك بس اجعل حقل  الكمية  null

 

انا جربت الكود ماظبط يعطيني احمر معناه خطأ

Nz([QUNTY]);0)and([UNT_ID]);7)then

تم تعديل مارس 10, 2020 بواسطه حسين العربى

[Khalid Jnb]

انظر للاستعلام  Q

تقوم الدالة NZ بالاستعلام بارجاع القيمة الخالية للحقل الى صفر

ويكون النموذج مصدر بياناته  الاستعلام

اتمنى يكون المطلوب

Database2.rar

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

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

انا ممكن كنت عملت استعلام تحديث لحقل الكمية الي بيسجل null بس انا عاوز ه كود لتعم الفائده ومنكم نستفيد

وانا اسف هغلبك معي

[أبوبسمله]

ممكن بعد اذن اخى خالد @خالد سيسكو جزاه الله خيرا اشارك معكم

على مثال اخى خالد فى اول مشاركه ممكن تستخدم احد الاكواد التاليه باستخدام  Nz

Or Len كما تعلمت من اخى ومعلمى العزيز @jjafferr

Private Sub text2_AfterUpdate()
'If Len(Me.text1 & "") = 0 And Me.text2 = 7 Then
'Beep
'MsgBox "حقل الكمية=صفر ورقم الوحدة=7"
'Me.Undo
'DoCmd.CancelEvent
'End If
If Nz(Me.text1, 0) = 0 And Me.text2 = 7 Then
Beep
MsgBox "حقل الكمية=صفر ورقم الوحدة=7"
Me.Undo
DoCmd.CancelEvent
End If
End Sub

 

تقبلوا تحياتى وتمنياتى لكم وللجميع بالتوفيق

تم تعديل مارس 10, 2020 بواسطه أحمد الفلاحجى

[Khalid Jnb]

اخي العزيز

لماذا ضياع كل هذا الوقت على شيء بسيط مثل هذا

ارفع مثالك او قاعدة ببياناتك  لكي يتم التعديل عليه  لتوفير الوقت على الجميع

تحياتي

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

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

والشكر لاستاذي الفاضل خالد سيسكو علي مابذله من جهد معي وجزاه الله خيرا 

[أبوبسمله]

اخى حسين الربيعى

الحل قدمه لك اخى العزيز خالد جزاه الله خيرا

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

تقبلوا تحياتى وتمنياتى لكم وللجميع بالتوفيق

 

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

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

جزاكم الله خيرا جميعا والله انتو تستاهلو اكتر من كده بكتير بس كل الي نقدر نقدمه لكم الدعاء ان يزيدكم الله من عمله ويوفقكم الله لما يحيبه ويرضاه 

[Khalid Jnb]

السلام عليكم

كلنا اخوه ان شاء الله 

والله لايوجد فرق بيني وبين اخي  احمد ابدا

بس المفروض صاحب السؤال هو اللي يرفع الملف تبعه وليس نحن من نعمل له ملف 

تحياتي لكل اخوني هنا بالموقع

 

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

 اخي الفاضل خالد/ انت كريم ونحن نستاهل وعلي فكره كنت هرفع ملف بس لقيت الاستاذ احمد عطاني الاجابه  ولو حابب ارفعلك الملف انا حاضر لاني انا حاسس اني موضوع الملف ده مزعلك😄

[أبوبسمله]

28 دقائق مضت, حسين العربى said:

جزاكم الله خيرا جميعا والله انتو تستاهلو اكتر من كده بكتير بس كل الي نقدر نقدمه لكم الدعاء ان يزيدكم الله من عمله ويوفقكم الله لما يحيبه ويرضاه 

هذا كل ما نريده الدعاء فلعل هذا العمل هو ما رزقنا الله اياه ابتغاء مرضاته

اخى @حسين العربى رفع الملف يوفر علينا افتراضيات كثيره ويسهل فى عمليه المساعده حتى يتم الاجابه على اكثر من اخ وننال دعوات اكثر

تقبل تحياتى وتمنياتى لكم وللجميع بالتوفيق احبتى فالله واجمل باقات الورود المعطره بذكر الرحمن لكم