كيف اوجد الرصيد المتبقي في برنامج المرفق ؟؟

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

أخي أولاً وقبل كل شي أنا عملت اللي أنته طلبته بس لي طلب لمصلحتك

أنته طلبت طلب سابق ولحسن الحظ انا عملته لك ..... وطلبك الثاني هذا هو نفس الفكرة صدقني لو فكرت في الحل كان عملته أنته بنفسك

ما اقول هذا الكلام متضجر من شي أبداً والله لم يأخذ مني دقيقة واحدة بس أتمنا لك الإستفادة وأقسم بالله على ذلك عموماً هذا الكود ضعه في كوماند أو في أي مكان بعد عرض المعلومات في القريد ... ولو فيه شي آخر ثق تماماً ما راح أتأخر عنك والأخوة أيضاً ما يقصرون ... والسلام عليكم

Dim shb, eda As Long
'تعريف متغيرين واحد يحمل مجموع قيمة السحب والثاني مجموع قيمة الإيداع

shb = "0"
eda = "0"
'تفريغ قيمة المتغيرين وجعله يحمل قيمة صفر

For i = 1 To grd.Rows - 1
'عداد يمر على القريد من اول صف حتى آخر صف لإتمام العملية

grd.Col = 3
grd.Row = i
If grd.Text = "" Then grd.Text = "0"
'هذا السطر نقول لو الخلية اللي في القريد فاضية ما فيها قيمة نجعلها صفر لإتمام العملية علشان ما يطلع إيرور
shb = Val(shb) + grd.Text
'وضع قيمة خلية السحب في المتغير

grd.Col = 4
grd.Row = i
If grd.Text = "" Then grd.Text = "0"
'هذا السطر نقول لو الخلية اللي في القريد فاضية ما فيها قيمة نجعلها صفر لإتمام العملية علشان ما يطلع إيرور
eda = Val(eda) + grd.Text
'وضع قيمة خلية الإيداع في المتغير

Next i

Text2.Text = shb - eda
'تكست2 يساوي قيمة السحب ناقص قيمة الإيداع

محمدvb كتب:

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

أخي أولاً وقبل كل شي أنا عملت اللي أنته طلبته بس لي طلب لمصلحتك

أنته طلبت طلب سابق ولحسن الحظ انا عملته لك ..... وطلبك الثاني هذا هو نفس الفكرة صدقني لو فكرت في الحل كان عملته أنته بنفسك

ما اقول هذا الكلام متضجر من شي أبداً والله لم يأخذ مني دقيقة واحدة بس أتمنا لك الإستفادة وأقسم بالله على ذلك عموماً هذا الكود ضعه في كوماند أو في أي مكان بعد عرض المعلومات في القريد ... ولو فيه شي آخر ثق تماماً ما راح أتأخر عنك والأخوة أيضاً ما يقصرون ... والسلام عليكم

Dim shb, eda As Long
'تعريف متغيرين واحد يحمل مجموع قيمة السحب والثاني مجموع قيمة الإيداع

shb = "0"
eda = "0"
'تفريغ قيمة المتغيرين وجعله يحمل قيمة صفر

For i = 1 To grd.Rows - 1
'عداد يمر على القريد من اول صف حتى آخر صف لإتمام العملية

grd.Col = 3
grd.Row = i
If grd.Text = "" Then grd.Text = "0"
'هذا السطر نقول لو الخلية اللي في القريد فاضية ما فيها قيمة نجعلها صفر لإتمام العملية علشان ما يطلع إيرور
shb = Val(shb) + grd.Text
'وضع قيمة خلية السحب في المتغير

grd.Col = 4
grd.Row = i
If grd.Text = "" Then grd.Text = "0"
'هذا السطر نقول لو الخلية اللي في القريد فاضية ما فيها قيمة نجعلها صفر لإتمام العملية علشان ما يطلع إيرور
eda = Val(eda) + grd.Text
'وضع قيمة خلية الإيداع في المتغير

Next i

Text2.Text = shb - eda
'تكست2 يساوي قيمة السحب ناقص قيمة الإيداع

---------------------------------------------------------------------------------

استاذي العزيز : احمد

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

احب اقدم لكم جزيل الشكر والتقدير على ما تقدمه لنا من دعم فني والله يحفظكم ويرعاكم\

ولكم مني فائق الاحترام والتقدير

تلميذكم : سالم

ا