[@@أبورائد@@]

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





تفضل هذا الكود على عجالة

PHP كود :

Private Sub Text1_Change()
    If IsNumeric(Me.Text1.Text) Then
        Me.Text2.Text = FormatNumber(Me.Text1.Text, 2)
    Else
        Me.Text2.Text = "0.00"
    End If
End Sub 


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