المشاركات : 111
المواضيع 36
الإنتساب : Jan 2016
السمعة :
7
الشكر: 94
تم شكره 50 مرات في 32 مشاركات
29-04-16, 02:37 PM
(آخر تعديل لهذه المشاركة : 29-04-16, 02:38 PM {2} بواسطة حافظ حافظ.)
تحيتي لكل الاخوة و الساتذة القائمين على المنتدي
هل من مساعدتي لطفا منكم بهذه المشكلة
عندي تكست1 و تكست 2
أكتب بتكست 1 مثلا الرقم 400 تظهر بتكست 2 العدد 400 ..ثم أكتب بتكست1 مثلا 25.36 تظهر بتكست 2 العدد 425.36
وهكذا .. كل مكتب رقم بتكست 1 ينضاف للمجموع بتكست 2
اسمحولي ادا اتعبتكم معايا
برك الله فكم مقدما
المشاركات : 82
المواضيع 16
الإنتساب : Oct 2014
السمعة :
11
الشكر: 0
تم شكره 77 مرات في 29 مشاركات
إستخدم هذا الكود
Private Sub TextBox1_Change()
Dim lo As Single
lo = Val(TextBox1.Text)
If lo = 1 Then
TextBox2.Text = 400
Else
TextBox2.Text = 400 + (lo)
End If
End Sub
المشاركات : 111
المواضيع 36
الإنتساب : Jan 2016
السمعة :
7
الشكر: 94
تم شكره 50 مرات في 32 مشاركات
شكرا اخي للمساعدة
لكن للاسف ليس هذا مأريده
التكست2 هي للمجموع كل مكتب رقم بتكست1 واضغط انتر ينضاف للمجموع بالتكست2
اشرحلك اكثر
اكتب في تكست1 الرقم 100 مثلا تظهر بتكست 2 الرقم 100 ، بعدين لما اكتب مثلا بتكست 1 الرقم 200 واضغذ انتر تظهر بتكست 2 المجموع 300 .اكتب بعدين مثلا بتكست 1 الرقم 500.96 واضغط انتلر تظهر بتكست2 الرقم 800.96
يعني ديما التاكست 2 للمجموع لما ادخل رقم اي رقم بتكست 1 واضغذانتير ينضاف للمجموع بتكست2
نقدر نخلي كومند 1 بدلا من الضغط انتر
تشكراتي
المشاركات : 82
المواضيع 16
الإنتساب : Oct 2014
السمعة :
11
الشكر: 0
تم شكره 77 مرات في 29 مشاركات
أضف كوماند وكتب الكود التالي:-
Public sa As Single
Private Sub CommandButton1_Click()
Dim lo As Single
TextBox2.Text = Val(TextBox1.Text) + Val(TextBox2.Text)
End Sub
المشاركات : 111
المواضيع 36
الإنتساب : Jan 2016
السمعة :
7
الشكر: 94
تم شكره 50 مرات في 32 مشاركات
نعم شكرا هذا هو المطلوب
بارك الله فيك وتقبل تحياتي
شكرا