[beep]

تفضل الكود بعد التعديل

كود :

Private Sub textbox1_KeyPress(ByVal sender As Object, ByVal e As KeyPressEventArgs) Handles TextBox1.KeyPress
        If Not IsNumeric(e.KeyChar) And Not e.KeyChar = Chr(Keys.Enter) Then
            e.Handled = True
            Dim Msg As String = "رقم السجل المدني يجب أن يكون عددا صحيحا"
            MsgBox(Msg, vbCritical + vbMsgBoxRight + vbMsgBoxRtlReading, "نظام مواعيد الأعلاف")
            Exit Sub
        End If
        If e.KeyChar = Chr(Keys.Enter) And TextBox1.Text = "" Then
            Dim Msg As String = "يجب عليك ادخال السجل المدني"
            MsgBox(Msg, vbCritical + vbMsgBoxRight + vbMsgBoxRtlReading, "نظام مواعيد الأعلاف")
            TextBox1.Focus()
        Else
            'do any thing
        End If
    End Sub