مشكلة في استعمال اكواد الفجيوال بيسك

تفضل :)

حسابي هو:

بعد تغيير قيمة الكمية الكلية (t1) ، نعمل الحدث:

Private Sub t1_AfterUpdate()
    '
    Me.cx = Nz(Me.t1, 0) - Nz(t2, 0)
End Sub

وبعد تغيير قيمة الكمية المتبقة (t2) ، نعمل الحدث:

Private Sub t2_AfterUpdate()
'
Me.cx = Nz(Me.t1, 0) - Nz(t2, 0)
End Sub

وكلتا المعادلتين تعيد حساب قيمة الكمية المستهلة (cx).

المفروض المعادلة تكون : cx = t1 - t2

ولكن كلمة Me. معناها ان المسمى من النموذج ،

ام Nz فهي لتغيير قيمة t1 او t2 من حالة "لا شئ" الى "صفر" ، اذا كانوا فارغين.

جعفر

jjafferr كتب:

تفضل :)

 

 

حسابي هو:

بعد تغيير قيمة الكمية الكلية (t1) ، نعمل الحدث:

Private Sub t1_AfterUpdate()

    '

    Me.cx = Nz(Me.t1, 0) - Nz(t2, 0)

End Sub

 

 

وبعد تغيير قيمة الكمية المتبقة (t2) ، نعمل الحدث:

 

Private Sub t2_AfterUpdate()

'

Me.cx = Nz(Me.t1, 0) - Nz(t2, 0)

End Sub

 

وكلتا المعادلتين تعيد حساب قيمة الكمية المستهلة (cx).

المفروض المعادلة تكون : cx = t1 - t2

ولكن كلمة Me. معناها ان المسمى من النموذج ،

ام Nz فهي لتغيير قيمة t1 او t2 من حالة "لا شئ" الى "صفر" ، اذا كانوا فارغين.

 

جعفر

اشكرك اخ جعفر ولكن لا اعرف ماذا تقصد بالكود .... ياريت تعمل تعديل على الملف حتى توضح عندي اكتر .. شكرا مرة تانية

jjafferr كتب:

تفضل :)

 

لم الاحظ ان خانة cx غير مرتبطة بالجدول ، وانما هي للعملية الحسابية فقط :(

لذا ، فلا داعي للكود السابق ، وكل الذي سنفعله هو وضع معادلة واحدة (نفس المعادلة السابقة) في خصائص cx :

=Nz([t1],0)-Nz([t2],0)

 

كما في الصورة:

35.jpg

 

جعفر

انااا اشكرك جدا جدا وتعبتك معي ولكن ليس هذا المطلوب ....

المطلوب بلغة vb يعني لما انقر على المستطيل الخاص بالكمية المستهلكة  يتفعل كود vb ولو تلاحظ اني قمت بمحاولة بسيطة ولكن لم تنفع ارجو المساعدة 

>يعني لما انقر على المستطيل الخاص بالكمية المستهلكة  يتفعل كود vb

الله يطول في عمرك ، وين قلت هالكلام ، هذه اول مرة تقوله!!

تفضل :)

لما تنقر على المستطيل الخاص بالكمية المستهلكة ، ستحصل على الجواب ،

وهي نفس المعادلة:

Private Sub cx_Click()

Me.cx = Nz(Me.t1, 0) - Nz(Me.t2, 0)
End Sub

ولكن في وجهة نظري ان هذا ليس الحل الامثل ، والامثل هما المثالين السابقين اعلاه :)

جعفر

35.gaz.accdb.zip