[ahmedfa71]

السلام عليكم لدي داتاقريد فيو عند الضغط عليها تقوم بتعبئة التيكست بوكس
ولكن عند الضغط داخل التيكست بوكس تضهر رسالة خطأ بأن 
"هذاالإسم مدخل مسبقا تأكد من ذلك" بالرغم أن الإسم غير مكرر في الداتاقريد التي تحمل محتوى الجدول

أنا أستعمل الكود الموالي حتى لا تكرر الأسماء في الجدول

كود :

Private Sub TextBoxNomPren_LostFocus(ByVal sender As Object, ByVal e As EventArgs) Handles TextBoxNomPren.LostFocus
       Try
           If con.State = ConnectionState.Closed Then con.Open()
           Dim cmd As New OleDbCommand(" Select nom From TableEmp Where nom='" & TextBoxNomPren.Text & "'", con)
           Dim sda As OleDbDataReader = cmd.ExecuteReader
           If sda.HasRows Then
               MsgBox("هذاالإسم مدخل مسبقا تأكد من ذلك", InfoOkOnly, AppTitle)
               TextBoxNomPren.SelectAll()
               TextBoxNomPren.Focus()
               Exit Sub
               If con.State = ConnectionState.Open Then con.Close()
           End If
       Catch ex As Exception

       End Try
   End Sub

بحيث أريد من هذا الكود يشتغل فقط في عملية الحفظ إذا كان الإسم المدخل مكرر
والسلام عليكم ورحمة الله وبركاته