[VB_Coder]

السلام عليكم

- فعلا هي ليست أخطاء أنا نسيت أن أحذفها . ماعليك فعله هو كالتالي :

1- قم بحذف الكود كله الموجود في الفروم4 . لاتحتاج إلى كود وإنما نسيت أن أحذفه .
2- التكست الموجود في الفورم3 والمقابل لرقم 3 قم حذف القيم الموجوده في كل من خاصية الـDataField والـ DataSource . وخاصية الـ DataFormat غيرها إلى General .
3- غير الكود الموجود في حدث الـ Change للتكست Txt_Qte الموجود في الفورم3 . إلى هذا الكود :

كود :

Dim A, B, C As Double
A = Val(Txt_Qte.Text)
B = Val(coe.Text)
Txt_Poids.Text = Format(A * B, "0.000")

- تحياتي .