قاعدة if لإظهار وإخفاء أزرار

[عبدالرحمن بدوى]

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

تحية طيبة وكل عام وانتم بخير

فى الملف المرفق برنامج حسابات

فى يوزر فورم invoice

قمت بعمل 4 ازرار للحفظ (حفظ فاتورة مشتريات نقدى - حفظ فاتورة مشتريات اجل - حفظ فاتورة مبيعات نقدى - حفظ فاتورة مبيعات آجل)

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

 

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

واخنيار حالة الفاتورة نقدى فى كومبوبوكس حالة الفاتورة (inv_case)

 

يظهر لى زرار (حفظ فاتورة مشتريات نقدى ) فقط

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

وعند اختيار مبيعات ونقدى يظهر لى زرار (حفظ فاتورة مبيعات نقدى)

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

 

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

برامج حسابات.rar

[عبدالرحمن بدوى]

للرفع

[أبوعيد]

تفضل جرب المرفق

برامج حسابات1.rar

[علي المصري]

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

اخي الكريم

يمكنك اختصار الكود الخاص بك في فورم invoice

الكود الخاص بك هو :

d1.Value = Val(b1) * Val(c1)
d2.Value = Val(b2) * Val(c2)
d3.Value = Val(b3) * Val(c3)
d4.Value = Val(b4) * Val(c4)
d5.Value = Val(b5) * Val(c5)
d6.Value = Val(b6) * Val(c6)
d7.Value = Val(b7) * Val(c7)
d8.Value = Val(b8) * Val(c8)
d9.Value = Val(b9) * Val(c9)
d10.Value = Val(b10) * Val(c10)
d11.Value = Val(b11) * Val(c11)
d12.Value = Val(b12) * Val(c12)
d13.Value = Val(b13) * Val(c13)
d14.Value = Val(b14) * Val(c14)
d15.Value = Val(b15) * Val(c15)
d16.Value = Val(b16) * Val(c16)
d17.Value = Val(b17) * Val(c17)
d18.Value = Val(b18) * Val(c18)
d19.Value = Val(b19) * Val(c19)
d20.Value = Val(b20) * Val(c20)
d21.Value = Val(b21) * Val(c21)
d22.Value = Val(b22) * Val(c22)
d23.Value = Val(b23) * Val(c23)
d24.Value = Val(b24) * Val(c24)
d25.Value = Val(b25) * Val(c25)
d26.Value = Val(b26) * Val(c26)
d27.Value = Val(b27) * Val(c27)
d28.Value = Val(b28) * Val(c28)
d29.Value = Val(b29) * Val(c29)
d30.Value = Val(b30) * Val(c30)
d31.Value = Val(b31) * Val(c31)
d32.Value = Val(b32) * Val(c32)
d33.Value = Val(b33) * Val(c33)
d34.Value = Val(b34) * Val(c34)
d35.Value = Val(b35) * Val(c35)
d36.Value = Val(b36) * Val(c36)
d37.Value = Val(b37) * Val(c37)
d38.Value = Val(b38) * Val(c38)
d39.Value = Val(b39) * Val(c39)
d40.Value = Val(b40) * Val(c40)

الكود بعد الاختصار هو

Dim i As Integer
For i = 1 To 40
Controls("d" & i).Value = Val(Controls("b" & i)) * Val(Controls("c" & i))
Next i

 

[عبدالرحمن بدوى]

11 ساعات مضت, علي المصري said:

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

اخي الكريم

يمكنك اختصار الكود الخاص بك في فورم invoice

الكود الخاص بك هو :

d1.Value = Val(b1) * Val(c1)
d2.Value = Val(b2) * Val(c2)
d3.Value = Val(b3) * Val(c3)
d4.Value = Val(b4) * Val(c4)
d5.Value = Val(b5) * Val(c5)
d6.Value = Val(b6) * Val(c6)
d7.Value = Val(b7) * Val(c7)
d8.Value = Val(b8) * Val(c8)
d9.Value = Val(b9) * Val(c9)
d10.Value = Val(b10) * Val(c10)
d11.Value = Val(b11) * Val(c11)
d12.Value = Val(b12) * Val(c12)
d13.Value = Val(b13) * Val(c13)
d14.Value = Val(b14) * Val(c14)
d15.Value = Val(b15) * Val(c15)
d16.Value = Val(b16) * Val(c16)
d17.Value = Val(b17) * Val(c17)
d18.Value = Val(b18) * Val(c18)
d19.Value = Val(b19) * Val(c19)
d20.Value = Val(b20) * Val(c20)
d21.Value = Val(b21) * Val(c21)
d22.Value = Val(b22) * Val(c22)
d23.Value = Val(b23) * Val(c23)
d24.Value = Val(b24) * Val(c24)
d25.Value = Val(b25) * Val(c25)
d26.Value = Val(b26) * Val(c26)
d27.Value = Val(b27) * Val(c27)
d28.Value = Val(b28) * Val(c28)
d29.Value = Val(b29) * Val(c29)
d30.Value = Val(b30) * Val(c30)
d31.Value = Val(b31) * Val(c31)
d32.Value = Val(b32) * Val(c32)
d33.Value = Val(b33) * Val(c33)
d34.Value = Val(b34) * Val(c34)
d35.Value = Val(b35) * Val(c35)
d36.Value = Val(b36) * Val(c36)
d37.Value = Val(b37) * Val(c37)
d38.Value = Val(b38) * Val(c38)
d39.Value = Val(b39) * Val(c39)
d40.Value = Val(b40) * Val(c40)

الكود بعد الاختصار هو

Dim i As Integer
For i = 1 To 40
Controls("d" & i).Value = Val(Controls("b" & i)) * Val(Controls("c" & i))
Next i

 

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

بالفعل كود أقصر بكثييييييييييير من الكود البدائى الخاص بى

12 ساعات مضت, أبوعيد said:

تفضل جرب المرفق

برامج حسابات1.rar

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

بالفعل هى المطلوب بالضبط