سؤال إضافة كودين مختلفين في حقل واحد عند حدث واحد

السلام عليكم ورحمة الله وبركاته

الا يوجد حل لهذا السؤال؟

ام لم يره احد العباقرة؟؟؟؟

لا زلت انتظر رد!!!!

سيد عدنان

sayed adnan كتب:

السلام عليكم ورحمة الله وبركاته

الا يوجد حل لهذا السؤال؟

ام لم يره احد العباقرة؟؟؟؟

لا زلت انتظر رد!!!!

سيد عدنان

اخي الفاضل سيد عدنان

لا اقول إلا ان الله يسامحك

كما تعلم اننا هنا لا نتعامل مع صور الأكواد بل نتعامل مع المثال مباشرة او الكود يتم وضعه مباشرة في المشاركة

لهذا لن تجد احدا من الأعضاء سوف يرد عليك حتى لو بقيت 100 سنه على هذا الوضع

اتمنى ان تنتبه لمثل هذا في المشاركات القادمه فإما ان تضع المثال كما هو يوتم التعديل عليه او تضع الكود كاملا في المشاركة ليتم التعديل عليه

عموما هذا كودك بإختصار قم بتعديله كما هو موجود لديك وانظر الإختلاف عند الوصول الى جملة ElseIf هذه هي التي تنقصك فقط ثم يجب ان تنهي الجملة ايضا بـ عدد 2 End If

Private Sub Qty_Out_Exit (Cancel As Integer)
Dim xx As Integer
xx = DLookup (..................................................
If xx - Me.Qty_Out < Me.item_Balance Then ..............................................
Elseif  Me.Qty_Out > Me.item_Balance Then
MsgBox ".............................."
Cancel = -1
Else
Me.Total.SetFocus
End If
End If
End Sub

شكراً اختي الكريمة Zahrah على تجاوبكِ معي

وآسف على صور الاكواد ، لأنني لا أعرف كيف اضع الكود في المشاركة فليس لي باع طويل في المنتديات فأنا مبتدأ جداً

ومع ذلك ذكرت لك في المشاركة ملاحظة ان يتم التعامل مع مثال الاخ محمد فؤاد تركي مع الشكر الجزيل لكما

وأكرر اعتذاري لكم جميعاً.واتمنى ان اتعلم كيف اضع الكود في المشاركات القادمه لكي لا اظل انتظر 100 سنة أخرى.

وشكراً مرةً أخرى

سيد عدنان

اضافة الي ما تفضلت الاخت الغالية زهرة بالاشارة الية

طريقة اضافة الصور بالمشاركة

راجع هذا الرابط

/index.php?showtopic=126887

اتمنى لكم دوام الصحة على هذا المجهود

ولكن للأسف لا ادري ان كان الخلل في طريقة تطبيقي او في المسميات مختلفة ام في ماذا

ارجوا منكم الاطلاع على المرفقات ومعرفة الخلل مع جزيل الشكر

مع التنبيه ان المسمى SA_Warehouses_System_up هو الملف المطلوب

والملف المسمى za_Warehouses_System_up هو الذي به الحد الادنى

( باص ورد ) وطبعا اسم المستخدم

mfouad

والباص وورد الخاص بالبرنامج

55555

سيد عدنان

SA_Warehouses_System_up.rar

za_Warehouses_System_up.rar

اخي الفاضل

ضع هذا الكود في قاعدة البيانات Warehouses_System_up.mdb في النموذج الفرعي Transaction subform_2

Private Sub Qty_out_Exit(Cancel As Integer)
Dim xx As Integer

xx = DLookup("sum([qty_in])-sum([qty_out])", "transaction", "[number]='" & [كود الصنف] & "'")

If xx - Qty_out < Me![item_Balance] Then
MsgBox " ستتجاوز الحد الأدنى يا أخي "
Cancel = -1
ElseIf Qty_out > Me![item_Balance] Then
MsgBox "الرصيد غير كافي", vbCritical + vbOKOnly, "رسالة تحذيرية"
Cancel = -1
Else
Me.Total.SetFocus
End If

End Sub

شكراً لك اختي الكريمة zahrah

اذا كان بالامكان التأكد من طلبي هل هو صحيح وهذا هو جوابه لان هذا الكود لم يعمل ولا اريد ان اطيل عليكِ

اريد ان اضيف خانه رقمية تحدد الحد الادنى لكل صنف في المخزن وذلك في جدول الاصناف

وعليها يجب ان يظهر مسج تنبيهي للمستخدم يفيده بأن الصنف سوف يتجاوز الحد الأدنى " تنبيه وليس منع "

ويظهر هذا الصنف في استعلام عن الاصناف التي تجاوزت الحد الادنى

مع عدم امكانية صرف كمية صنف اكثر من الموجودة في المخزن

ارجو ان تكون الفكرة واضحة واشكرك جزيل الشكر مقدماً

( باص ورد ) وطبعا اسم المستخدم

mfouad

والباص وورد الخاص بالبرنامج

55555

Warehouses__System.rar

لا زلت احاول ولم افلح في حل هذه المشكله

فهل من احد يوضح لي ماذا افعل

سيد عدنان

أخي الغالي

سيد عدنان

اقتباس

وعليها يجب ان يظهر مسج تنبيهي للمستخدم يفيده بأن الصنف سوف يتجاوز الحد الأدنى " تنبيه وليس منع "

اذا اردت ان تصبح الرسالة مجرد تنبية وليس منع قم بحذف

Cancel = -1

من الكود أعلاة

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

برجاء الرجوع للمشاركة الاساسية

وهذا كان سؤالك في المشاركة رقم 194

1

اقتباس

) شي طيب

لا والله شي جميل

يشكر عليه الاخوة ahamied , محمد فؤاد تركي

2) بس ياريت يكون جدول خاص بالاشياء اللي تعدت الحد الادنى فقط

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

3) والشرح للي حصل واللي راح يحصل إن شاء الله بحيث انو يكون يناسب امكانياتي

واكون لكم من الشاكرين

سيد عدنان

واجابتي عليك بالتفصيل الممل في المشاركة رقم 195

/index.ph...st&p=782291

والمشاركة رقم 196

/index.ph...st&p=782399

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

اقتباس

مع عدم امكانية صرف كمية صنف اكثر من الموجودة في المخزن

ولكن برجاء الرد علي سؤالي هذا

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

برجاء مراجعة الشرح مرة أخري في المشاركة المثبتة

شكراً لك اخي الغالي محمد فؤاد تركي على هذا المجهود

ولا توآخذني على اعادت طرح سؤالي هنا

فالسبب ليس تقصيراً منك في الشرح

فلازلت اقر لك بالشرح الوافي والكافي

ولكن الشرح لم يكن على نسخة بها كود ( الكمية لا تكفي ) كالنسخة النهائية لبرنامجك

فلو لاحظت اخي الكريم في النسخة التي تم الشرح عليها عندما اريد ان اصرف كمية اكبر من الكمية الموجودة يظهر تنبيه بتجاوز الحد الأدنى ولكن بإمكانك صرفها ( لا يمنعك )

وهذه هي المشكلة التي لدي؟ ( الكودين معاً ) وليس احدهما.

فبعد إذنك

فضلاً وليس امراً إن كان بإستطاعتك تجربة الكود نفسه على نسختك النهائية

على ان يكون المنع على الكميات التي لا تكفي فليس معقولاً ان اصرف 500 مثلاً وليس لدي في المخزن إلا 400

والتنبيه على الكميات التي تجاوزت الحد الادنى اي اذا كان الحد الادنى 20 فعندما تصل الكمية في المخزن الى <=20 فلابد ان يظهر للمستخدم تنبيه بذلك

واجو ان لا اكون ثقيلاً عليك

واشكرك مجدد جزيل الشكر ولا افيك حقك

فلك الفضل الكبير علي في تعلمي بعض مفاهيم الاكسس

سيد عدنان

اخوانى واخواتى فى الله بعد التحية ,

من بداية السؤال وهو به مبدأ خطأ وهو وضع قيمتين فى نفس الحقل وهو ضد مبدأ تكامل وتماسك قاعدة البيانات طبقا لقاعدة Codd رقم واحد وطبقا للمشروح فى الاسس العلمية لقواعد

البيانات الاخ InternetMaster والموضوع مثبت فى اعلى المنتدى.

وان كنت خاطئا ارجوا تنبيهى فانتم اهل الخبرة ونحن للعلم طلابا

شكراً لك اخي الكريم Tyef

لقد قرأت موضوع الاخ العزيز InternetMaster ولم اعرف اين هو الخطأ من هذا السؤال!!!!!!

وللتوضيح ، ليس السؤال لوضع قيمتين في نفس الحقل بل قيمة واحدة مع استخراج طلبين من هذه القيمة

فأرجو منك ومن جميع اخواني في هذا المنتدى الرائع التوضيح لي في ماهو الخطأ وما هو الصواب

سيد عدنان