الدالة if

[عبدالرزاق الحريبي]

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

 

اخواني الكرام  اريد كود يقوم بالاتي 

 

لدي مربع تحرير وسرد  + مربع نص  اريد عند وجود القيمة "اجل" بالمربع تحرير وسرد تكون قيمة مربع نص 01 وفي حالة القيمة"نقدا" يكون مربع النص 02

 

 

[عبدالرحمن هاشم]

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

 

لو افترضنا أن مربع التحرير والسرد اسمه ListBox ومربع النص txt

ضع هذا الكود في حدث بعد تحديث مربع التحرير والسرد

If Me.ListBox = "نقدا" Then
Me.txt= "02"
Else
If Me.ListBox = "آجل" Then
Me.txt= "01"

End If: End If:

[عبدالرزاق الحريبي]

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

[عبدالرحمن هاشم]

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

If Me.ListBox = "نقدا" Then
Me.txt= "02"
Else
Me.txt= "01"
End If

[رمهان]

مشاركة مع الاستاذ عبدالرحمن

اولا : لا حبذا التسمية ب listbox  حيث هذا اسم كلاس عناصر مربعات القائمة!

ثانيا : مارايك في هذه لفكرة استاذ عبدالرحمن : طبعا اذا مربع النص غير منضم . نضع التعبير التالي :

="0" & me.list1.listindex

تحياتي

[yms12]

اضافة  جميلة من الاستاذ رمهان

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

[ابو جودي]

 

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

If Me.ListBox = "نقدا" Then
Me.txt= "02"
Else
Me.txt= "01"
End If

ممتاز

[ابو جودي]

مشاركة مع الاستاذ عبدالرحمن

اولا : لا حبذا التسمية ب listbox  حيث هذا اسم كلاس عناصر مربعات القائمة!

ثانيا : مارايك في هذه لفكرة استاذ عبدالرحمن : طبعا اذا مربع النص غير منضم . نضع التعبير التالي :

="0" & me.list1.listindex

تحياتي

رائع دائما ومبدع كما عودتنا استاذ رمهان

[عبدالرحمن هاشم]

مشاركة مع الاستاذ عبدالرحمن

اولا : لا حبذا التسمية ب listbox  حيث هذا اسم كلاس عناصر مربعات القائمة!

ثانيا : مارايك في هذه لفكرة استاذ عبدالرحمن : طبعا اذا مربع النص غير منضم . نضع التعبير التالي :

="0" & me.list1.listindex

تحياتي

 

دائما نتعلم منكم استاذي الكريم رمهان جزاك الله خيرا على مشاركتك الرائعة