معادلة أكبر من وأصغر من

هل من مسعف او منقذ ؟

يا جماعة الخير !

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

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

عموما .. المبلغ المدفوع يمثله مربع النص txtmon2 ... والمبلغ المستحق يمثله مربع النص txt1 .... وفي الكود كتبت إذا كان المبلغ المدفوع أصغر من المبلغ المستحق ... وهذا الكود لا يلبي مرادك فالمفروض أن تجعله أكبر من

والشيء الآخر الكود الذي يسبق كودك يفرض على المستخدم أن يختار إسم العميل .. وإلا لن ينفذ الشرط السابق الذكر ... لأن قيمة txt1 ستكون صفر بسبب سطر الكود الأول ثم سطر الكود الرابع من الكود الموجود بالحدث المعني.

استخدم هذا الكود

If Me.txtmon2 > Me.txt4 Then

فمن المؤكد ان الباقى لن يزيد عن المستحق

مع وضع ملاحظات الاخ koao فى الاعتبار

السلام عليكم ,...

يا اخي الكريم لا يجب ان يكون المبلغ المدفوع أكبر من المستخق .

فأن أطالبك بمبلغ 50.000 خمسون الف ريال .... وتسدده أقسطاط شهرية مثلا

فلو دفعت لي مبلغ مدفوع 60.000 ستون الف ريال والمبلغ المستحق عليك هو 50.000 ريال هل هذا طبيعي .!

أو فقط بقي عليك من المبلغ الخمسون ألف ريال 40.000 ريال ودفعت خمسة وأربعون فهذا الذي أريد أن ينبهني البرنامج عليه .

أنا جربت الكود واستخدمت < وكذلك استخدمت > ولم ينفع معاي !

المقصد من هذا هو التنبيه حتى لا يتم دفع مبلغ أكبر من المستحق أو أكبر من المبلغ المتبقي .

ياليت تجربون المثال وتخبروني أيش الإشكالية .!

الإشكالية أنك يجب أن تختار إسم العميل أولا ثم تضع الرقم للمبلغ المدفوع ... جرب إختر محمد ثم إكتب الرقم ستظهر لك الرسالة

السلام عليكم ..

اخي الكريم أنا عندي شك أن فيه خلل في الأكسيس أو في راسي !!!

حرب هذا المثال المرفق .. وغض النظر عن المثال الأول ..

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

جرب المثال المرفق الجديد وضع الأحتمالات أكبر من وأصغر ..

وأنا في أنتظارك أخي الكريم بارك الله فيكم وفي الأخوة جميعا .

db5.rar

وينكم يا شباب .

عاوز اروح أنام ..

لن يهدأ لي بال حتى اجد الحل منكم .

انا في أنتظاركم :

البارحة سهران وممفيش نوم ... واقني قنيب الذيب لين نجم ظهر غاب .

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

أخي الكريم في مثالك الأخير لم أغير شئ وأنظر للصورتين التاليتين

فكما ترى ظهرت الرسالة من دون مشاكل ... بغض النظر عن الخطا في العبارة .. بحكم ان المفروض أن تستخدم أكبر من بدلا من أصغر من .. في الدالة الشرطية

فما أدري ما سبب المشكلة عندك

فتى الوادي كتب:

وينكم يا شباب .

عاوز اروح أنام ..

لن يهدأ لي بال حتى اجد الحل منكم .

انا في أنتظاركم :

البارحة سهران وممفيش نوم ... واقني قنيب الذيب لين نجم ظهر غاب .

اخى هل جربت ما ذكرته لك فى ردى السابق

عموما هذا تعديل المرفق الاخير

db5.rar

معليش أخي الكريم ...

انا اطلب من الأخوة جميعا أن يجربوا أكثر من رقم ادخال جديد وارقام مختلفة أكبر من وأصغر من ..

طيب أخي الكريم : انا غيرت الكود واصبح بهذا الشكل :

If (Me.txt1.Value > Me.txt2.Value) Then
MsgBox " الرقم الأول أكبر من الرقم الثاني"
Else
MsgBox " الرقم الأول أصغر من الرقم الثاني"
End If

وظهرت لي الرسالة :

الأخ mrnooo2000

والأخوة جميعا أشكركم على تفاعلكم ...

أستخدمت كود الأخ mrnooo2000 وهو :

If Me.txt1 > Me.txt2 Then
MsgBox " الرقم الأول أكبر من الرقم الثاني"
ElseIf Me.txt1 = Me.txt2 Then
MsgBox " الرقم الأول يساوي الرقم الثاني"
Else
MsgBox " الرقم الأول أصغر من الرقم الثاني"
End If

وهذه صورة الرسالة !!!!!! لذلك اقول يا اخوان جربوا أكثر من مرة وغيروا الأرقام وشوفوا النتيجة ... بمكن أنا غلطان !!

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

جرب الكود التالي

If (CInt(Me.txt1) > CInt(Me.txt2)) Then
MsgBox " ÇáÑÞã ÇáÃæá ÃßÈÑ ãä ÇáÑÞã ÇáËÇäí "
Else
MsgBox " ÇáÑÞã ÇáÃæá ÃÕÛÑ ãä ÇáÑÞã ÇáËÇäí "
End If

End Sub

أنا كنت أظن ان الرسالة لا تظهر عندك ... ولكن تبين المشكلة أن الرسائل لا تطلع دقيقة لتصف حالة الرقمين المدخلين

وبالتوفيق

فتى الوادي كتب:

معليش أخي الكريم ...

انا اطلب من الأخوة جميعا أن يجربوا أكثر من رقم ادخال جديد وارقام مختلفة أكبر من وأصغر من ..

طيب أخي الكريم : انا غيرت الكود واصبح بهذا الشكل :

If (Me.txt1.Value > Me.txt2.Value) Then
MsgBox " الرقم الأول أكبر من الرقم الثاني"
Else
MsgBox " الرقم الأول أصغر من الرقم الثاني"
End If

وظهرت لي الرسالة :

هذا طبيعى جدا اخى

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

عموما المرفق به حل كل تلك المشاكل

الى جانب نفس المثال السابق بعد تغيير تنسيق مربعى النص الى رقم

و المثاليين يعطيان النتيجة الصحيحة

اعتقد الان ستنام و ترتاح

111.rar

اعتذر الى الاخ koao

فللاسف فى كل مرة لا الاحظ مشاركته الا بعد ان اضيف مشاركتى

الله يبارك فيك أخي mrnooo2000 ولا نزعل من تنافسنا في خدمة أخينا فتى الوادي وغيره من أعضاء المنتدى .. لعلنا نكسب دعوة توافق لحظة إجابة ,,, تكون لنا خير في الدنيا والآخرة ... ولا أنسى مداخلاتك التي أستفيد منها كثيرا ... ولي الشرف بأخذ العلم من متميز مثلك

أحسنتم جميعا ...

أحسنت أخي mrnooo2000 وبارك الله فيك وفي علمك ونفع الله بك وغفر الله لك ولوالديك

هذه هي الحلقة المفقودة في المسألة وهي أن نجعل حقل المربيعن التكست ( رقم عام )

بارك الله فيكم وفي علمكم ونفع الله بكم البلاد والعباد وغفر الله لنا ولكم ولوالدينا ووالديكم .

الآن أنام قرير العين .... باقي شوية وينبت في راسي نخلة لو ستر الله ثم جهودكم وعلمكم ..

لا أملك لكم سوى الدعاءفي ظهر الغيب .

الاخوة الافاضل

اذا سمحتوا لي بالمداخله

لكم جميعا جزيل الشكر على تقديم المساعدة وهذا ما عهدناه في هذا المنتدي

بالنسبة للمثال الصغير الذي وضعه اخونا فتي الوادي فهو يعمل بشكل صحيح بعد تعديل الاخ mrnooo2000 والاخ koao

كل الموضوع ان نعدل علامة > الي < وانا شايف ان يعمل بصورة صحيحة ولا أدري لماذا لا يعمل مع الاخ فتي الوادي

والان نرجع للمثال الاول اللي هو صلب الموضوع

اخي فتي الوادي انظر الي الجدول t_1 ولاحظ ان الحقل txtrsed نوعه نص عدله الى رقم حتي يتم عمليه الحساب بصورة صحيحة

ثانيا : الخطأ الثاني ان تطلب ان لو كان حقل اكبر من حقل تظهر رسالة تقول بان المبلغ المدفوع اكبر من المستحق طب ماذا لو كان احدهما مأخوذ من الدالة dlookup طبيعي لم يعمل الكود في VPA

وحتي لا اطيل انظر الي المرفق فقد تم تعديل الحقل txtrsed من نص الى رقم

ثم انظر للكود بعد التحديث للحقل TXT2

هذا من وجه نظري والله اعلم

اسف جدا فانا مش عارف اشرح لان المنتدي من يوم ما عدلوه وانا لا أعرف ادخل ولا اعمل شئ بصورة صحيحة ويارب اعرف ارفق مثالك بعد التعديل صارلي اكثر من ساعة عشان اعرف ادخل المنتدي

db4.rar

الأخ أبو شادي

السلام عليكم

جزاك الله خير على المداخلة ...

لكن المسألة ليس لها علاقة بالجدول .. وقد تبين أن الحل يكمن في نوع الحقل في النموذج لابد أن يكون (رقم عام )

وأشكرك وأشكر جميع الأخوة على المساعدة ..