كود value

[Mostafa Yeheya]

السلام عليكم 

عندى textbox يقوم بعمليه حسابيه وهى (ضرب نسبة المصاريف الإدارية فى قرض العميل ) 

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

كما هو موضح بالصورة 

لكن عندى بعض البنوك لديها مصاريف بنكية mony2 بجانب المصاريف الإدارية وانا اريد جمعها على الناتج 

بس مش بيطلع نتيجه 

ممكن حديساعدنى 

جزاكم الله خير عنا

 

[أبوبسمله]

وعليكم السلام

على منا فاهم فالكود فانت جعلت قيمه mony2 = نص

فاذا جمعت رقم على نص فكيف يكون ولنفرض قيمه mony2 = 100 + القيمه الاولى = 10 الناتج سيكون 10010

اذا كان حقل mony2  ضعه كما هو من غير علامات التنصيص

واذا كان حقل نصى فاستخدم داله لتحويله لرقم ليتم الجمع مثلا

val(mony2)

والاوجب ارفاق ملف

تقبل تحياتى

طبتم واهتديتم

[Mostafa Yeheya]

اليك مثال اخى 

وهذا ما اريد فعله كما هو بالصوره

مثال.rar

[أبوبسمله]

اتفضل شوف كده واخبرنا بالنتيجه اخى

تقبل تحياتى

مثال-111.rar

[Mostafa Yeheya]

بارك الله فيك يا استاذ احمد 

هو دا اللى انا محتاجه 

شكرا جزيلا

[أبوبسمله]

الشكر لله ثم لاخواننا واساتذتنا اللذين تعلمنا ونتعلم منهم

والحمدلله الذى بنعمته تتم الصالحات

بالتوفيق اخى

[أبوبسمله]

اخى مصطفى ولعدم حدوث خطأ ما يمكن استبدال الكود

السابق بالمثال بالتالى

If Me.mony2 = NZ("",0) Then
n2 = (tex_loan * tex_charg / 100)
Else
n2 = (tex_loan * tex_charg / 100) + Me.mony2
End If
End Sub

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

هذا والله اعلى واعلم

وجزاهم الله خيرا اساتذتنا واخواننا اللذين نتعلم منهم

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

طبتم واهتديتم

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

[الحلبي]

استاذنا الفاضل / @أحمد الفلاحجى

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

لى سؤال بسيط وهو هل الكود

اقتباس

If Me.mony2 = NZ("",0) Then

معناه انه فى حالة ان mony2 يساوي فراغ او صفر ام ماذا 

ارجو توضيح الكود بارك الله فيك 

[أبوبسمله]

26 دقائق مضت, حلبي said:

استاذنا الفاضل / @أحمد الفلاحجى

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

لى سؤال بسيط وهو هل الكود

معناه انه فى حالة ان mony2 يساوي فراغ او صفر ام ماذا 

ارجو توضيح الكود بارك الله فيك 

جزاك الله خيرا اخى

لم نقدم شىء يذكر واحاول ان اقدم مما تعلمته واتعمله من اخوانى واساتذتى وما اجده من معلومات واتعلم معكم

داله NZ كما تعلمنا تسبتدل القيم الخاليه ب 0 وهى اختصار Null Zero كما قرائت

يمكنك استخدام الدالة Nz لإرجاع الصفر أو سلسلة فارغة ("") أو القيمة المحددة الأخرى عندما يكون المتغير فارغا. علي سبيل المثال ، يمكنك استخدام هذه الدالة لتحويل قيمه فارغه إلى قيمه أخرى ومنع نشرها عبر تعبير.

الداله NZ

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

دالة NZ وهي اختصاراً لكلمتي : NULL Zero

ومهمتها أن يتم التخلص من مشكلة وجود القيمة Null في بعض العمليات مما يعطي خطأ ..

صيغتها كما يلي :

A = NZ(B,0)
أو 
A = NZ(B)

S = NZ (V,"")

ومن هذا يتضح أن لهذه الدالة ممران

1- القيمة المطلوب فحصها

2- القيمة المعادة في حال كون القيمة الأولى Null

وفي حال عدم تعيين القيمة الثانية تعيد لنا هذه الدالة القيمة صفر في حال كون القيمة الأولى Null

وان شاء الله يفيدنا اكتر احد اساتذتنا

تقبل تحياتى اخى

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

[jjafferr]

وهنا توضيح للدالة بمثال :

 

الطريفة اللي اتبعها انا للتعامل مع الحقل ، سواء الفارغ او Null او بدون قيمة :

بدل عن
if isnull([ABC]) or [ABC]="" then


استعمل
if len([ABC] & "") = 0 then

 

جعفر 🙂

[عبد الفتاح كيرة]

22 دقائق مضت, jjafferr said:

وهنا توضيح للدالة بمثال :

 

الطريفة اللي اتبعها انا للتعامل مع الحقل ، سواء الفارغ او Null او بدون قيمة :

بدل عن
if isnull([ABC]) or [ABC]="" then


استعمل
if len([ABC] & "") = 0 then

 

لدى سؤال

ما فائدة  

&""

بعد اسم الحقل فى دالة  len  ?

[jjafferr]

5 دقائق مضت, عبد الفتاح كيرة said:

ما فائدة  

&""

بعد اسم الحقل فى دالة  len  ?

 

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

ومعرفتنا اذا الحقل فيه قيمة ، معناه ان طول القيمة والتي نعرفها عن طريق الامر Len

فإننا نريد ان نعرف اذا طول الحقل = 0 او لا

اليك نتائج هذه العمليات :

    Debug.Print Len("234")     = 3
    Debug.Print Len("")        = 0
    Debug.Print Len(Null)      = Null
    Debug.Print Len(Null & "") = 0

 

فالامر Len اعطانا قيمة 0 لما قيمة الحقل تكون ""

ولكنه اعطانا Null لما قيمة الحقل تكون Null ، ولكن Null ليس رقم ،مما يجعلنا نضطر نرجع الى الامر IsNull ، معناه انه يجب ان نستخدم اكثر من امر في السطر الواحد (كما اوضحت سابقا).

 

جعفر

[عبد الفتاح كيرة]

ما قصدته هو لماذا

24 دقائق مضت, عبد الفتاح كيرة said:

len([ABC] & "")

وليس

25 دقائق مضت, عبد الفتاح كيرة said:

len([ABC]

فقط

[jjafferr]

نعم انا فهمت السؤال ،

وجوابي كان ، اذا ABC = Null 

فسيكون الجواب  len([ABC]) = Null ، بينما نحن نريد الجواب ان يكون len([ABC]) = 0

 

جعفر

[عبد الفتاح كيرة]

2 دقائق مضت, jjafferr said:

len([ABC])

أعتقد تساوى صفرا أيضا

لأن دالة len تعيد رقما

[jjafferr]

جرب واعطنا النتيجة :

Debug.Print Len(Null)

 

[الحلبي]

الاستاذ الفاضل / @أحمد الفلاحجى

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

زادك الله علما وجعله في ميزان حسناتك

استاذنا ومنقذنا دائما / المعلم الفاضل / @jjafferr

يعطيك الف عافية شرحت المسألة كلها من اولها وجميع استخدامتها شرح وافى والآن فهمت كل ما كنت اريد ان اعرفه عن الكود nz لانه كان عجيب جدا احيانا يعطينى صفرا واحيان يعطينى خطأ

وبفضل الله ثم توضيحكم توضلت الى جوهر الموضوع

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

كل الاحترام والتقدير لكم 

تم تعديل ديسمبر 29, 2019 بواسطه الحلبي

[أبوبسمله]

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

اخى واستاذى الحبيب @jjafferr اذا ممكن نختصر الكود ونجعله كالتالى

If Len(text) < 0 Then

فى انتظار مزيد من التعقيب والشرح الوافى منك اخى واستاذى @jjafferr

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

[عبد الفتاح كيرة]

بارك الله فيكم

[jjafferr]

52 دقائق مضت, أحمد الفلاحجى said:

اذا ممكن نختصر الكود ونجعله كالتالى

If Len(text) < 0 Then

 

همممم ، كنت اعتقد ان شرحي كان واضح ، ولكن مافي مانع من المحاولة مرة خرى :

    
    Debug.Print Len("234")     = 3
    Debug.Print Len("")        = 0
    Debug.Print Len(Null)      = Null
    Debug.Print Len(Null & "") = 0

في مثالك
If Len(Text) < 0 Then
                
Text =  "123456"
Len(Text) = 6
                
Text =  "انا جعفر"
Len(Text) = 7
                
Text =  ""
Len(Text) = 0
                
Text =  Null
Len(Text) = Null  يعني ما نحصل على طول الكلمة ، وانما نحصل على هذه الكلمة
                
ولكن في مثالي
If Len(Text & "") < 0 Then
                
Text =  "123456"
Len(Text & "") = 6
                
Text =  "انا جعفر"
Len(Text & "") = 7
                
Text =  ""
Len(Text & "") = 0
                
Text =  Null
Len(Text & "") = 0

 

لهذا السبب ، جرب المثال على كمبيوترك ، واحكم بنفسك 🙂

 

جعفر

[عبد الفتاح كيرة]

أشهد أن كلام الأخ  @jjafferrمضبوط 100%

تمت التجربة

بارك الله فيه و فيكم

* خاصية   SelLength لمربع النص تعيد طول النص الخالى  إلى صفر بعكس دالة len

 

تم تعديل ديسمبر 29, 2019 بواسطه عبد الفتاح كيرة

[أبوبسمله]

اخى واستاذى @jjafferr

الان اتضحت الصوره اكثر باذن الله وقمت بالتجربه ع نافذه Immediate

بارك الله فيك وجزاك الله عنا كل خير

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

طبتم واهتديتم

[jjafferr]

1 ساعه مضت, عبد الفتاح كيرة said:

* خاصية   SelLength لمربع النص تعيد طول النص الخالى  إلى صفر بعكس دالة len

 

الامر SelLength معناه Selected Length ، اي البيانات التي تم اختيارها وتظليلها ،

فإذا كانت القيمة في حقل او كومبوبوكس = "123456" ، ثم تم اختيار/تظليل الرقمين 34 ، فقيمة SelLength ستكون 2 ،

ولكن لو لم يتم اختيار/تظليل اي رقم ، فقيمة SelLength ستكون صفر !!

 

لذلك ، فهذه الدالة لا علاقة لها بطول النص في الحقل 🙂

 

جعفر

[عبد الفتاح كيرة]

4 دقائق مضت, jjafferr said:

فهذه الدالة لا علاقة لها بطول النص في الحقل 🙂

 

نعم صدقت