مطلوب معادلة لضرب مجموعة من الارقام في رقم معين واعطاء نتائج

[عبد اللطيف سلوم]

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

طلب مني صديق لي  شيء بسيط لكنه اعجزني

اطلب منكم الفزعه والمساعدة

عندي نموذج مستمر يتم ادخال المبلغ بالدولار

وفوق يوجد تكست بوكس غير منضم

اريد عند وضع رقم معين في هذا البوكس الغير منضم واكبس انتر

يجري عملية حسابية لكافة الحقول بحيث يضرب العدد  بالدولار  بالعدد اللي ادخلته بالتكست بوكس

ويكتب النتيجة في حقل الدينار الاردني

مثل هذه الصورة 

ملاحظة // الاعداد تحت حقل JO  المفروض المعادلة تكتبهم

مرفق قاعدة بيانات للتطبيق عليها

اوفسنا حساب.accdb

[Foksh]

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

جرب في حدث بعد التحديث لمربع النص الغير منضم الفكرة التالية ..

Private Sub AMOUNT_AfterUpdate()
    Dim vAmount As Double
    vAmount = Nz(Me.AMOUNT, 0)
    DoCmd.SetWarnings False
    DoCmd.RunSQL "UPDATE Table1 SET JOR = Nz(US,0) * " & vAmount
    DoCmd.SetWarnings True
    DoCmd.Requery
End Sub

 

 

[عبد اللطيف سلوم]

58 دقائق مضت, Foksh said:

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

جرب في حدث بعد التحديث لمربع النص الغير منضم الفكرة التالية ..

Private Sub AMOUNT_AfterUpdate()
    Dim vAmount As Double
    vAmount = Nz(Me.AMOUNT, 0)
    DoCmd.SetWarnings False
    DoCmd.RunSQL "UPDATE Table1 SET JOR = Nz(US,0) * " & vAmount
    DoCmd.SetWarnings True
    DoCmd.Requery
End Sub

 

عاشت ايدك معلمنا الغالي 

هذا هو المطلوب