اسف شوية غيرت الطريق
اليك كودين اي واحد تستخدمة راح يشتغل عادي باذن الله
الاولى
Me.Text11 = IIf([t2] = Format$([t2], "0"), [t2], Format$([t2], "0.000"))
والثانية
If Me.t2 = Format$(Me.t2, "0") Then
Me.Text11 = Me.t2
Me.Text11 = Format$(Me.Text11, "0")
Else
Me.Text11 = Me.t2
Me.Text11 = Format$(Me.Text11, "0.000")
End If
واليك ملفك وبها نموذجين
الاول بها طريقة استعلام مع مربع نصي وبيشتغل تمام
والثاني بها كودين اللي في الاعلى واحد في الحالي والثاني بعد تحديث
واذا تستخدم اي واحد منها في اي حالة راح يعمل جيدا باذن الله
تحياتي
mr.rar