عبدالرحمن بدوى قام بنشر يونيو 21, 2016 مشاركة قام بنشر يونيو 21, 2016 السلام عليكم ورحمة الله وبركاته تحية طيبة وكل عام وانتم بخير فى الملف المرفق برنامج حسابات فى يوزر فورم invoice قمت بعمل 4 ازرار للحفظ (حفظ فاتورة مشتريات نقدى - حفظ فاتورة مشتريات اجل - حفظ فاتورة مبيعات نقدى - حفظ فاتورة مبيعات آجل) وقمت فى حدث الفورم باخفاء جميع الأزرار لأجبر المستخدم لإختيار نوع وحالى الفاتورة أولا ليتمكن من الحفظ لأن كل زرار من المذكورين سيقوم بالحفظ فى شيت مختلف المطلوب هو عنداختيار مشتريات فى كومبوبوكس نوع الفاتورة (inv_type) واخنيار حالة الفاتورة نقدى فى كومبوبوكس حالة الفاتورة (inv_case) يظهر لى زرار (حفظ فاتورة مشتريات نقدى ) فقط وهكذا عند اختيار مشتريات واجل يظهر لى (حفظ فاتورة مشتريات اجل) وعند اختيار مبيعات ونقدى يظهر لى زرار (حفظ فاتورة مبيعات نقدى) وأخيرا عند اختيار مبيعات وآجل يظهر لى زرار (حفظ فاتورة مشتريات آجل) وجزاكم الله خيرا مقدما برامج حسابات.rar رابط هذا التعليق شارك More sharing options...
عبدالرحمن بدوى قام بنشر يونيو 21, 2016 الكاتب مشاركة قام بنشر يونيو 21, 2016 للرفع رابط هذا التعليق شارك More sharing options...
أبوعيد قام بنشر يونيو 21, 2016 مشاركة قام بنشر يونيو 21, 2016 تفضل جرب المرفق برامج حسابات1.rar 1 رابط هذا التعليق شارك More sharing options...
علي المصري قام بنشر يونيو 21, 2016 مشاركة قام بنشر يونيو 21, 2016 السلام عليكم ورحمة الله وبركاته اخي الكريم يمكنك اختصار الكود الخاص بك في فورم 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 1 رابط هذا التعليق شارك More sharing options...
عبدالرحمن بدوى قام بنشر يونيو 22, 2016 الكاتب مشاركة قام بنشر يونيو 22, 2016 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 جزاكم الله خيرا على المساعدة بالفعل هى المطلوب بالضبط 1 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان