[محمد اسماعيل]

السلام عليكم

عندي مشكلة بسيطة بكود التعديل وهيا اريد عدم تكرار الاسم عند تعديل البيانات

طيب في فكرتين اولهما جعل عمود الاسم لايقبل التكرار بقاعدة البيانات اكسيس او سيكول  وبجملة الخطا  عند التكرار يتوقف التعديل وانا مش حابب الطريقة دية
اريد فحص حالة الاسم بالداتا سيت

دة كود التعديل العادي

كود :

  Dim com As New OleDbCommand("UPDATE  CLIENT_TB SET CLIENT_NAME=@CLIENT_NAME WHERE  CLIENT_ID =@CLIENT_ID", con)
       com.Parameters.AddWithValue("@CLIENT_NAME", TEXT_NAME.TEXT)
       com.Parameters.AddWithValue("@CLIENT_ID",LAB_IDVAL.Text)
       con.Open()
       com.ExecuteNonQuery()
       con.Close()

دية وظيفة للبحث اذا كان الاسم موجود او لا اذا كان غير موجود يتم التعديل واذا كان موجود يظهر رسالة التكرار

كود :

  fillDATASET(Me, DSDETAILSFILA, "CLIENT_TB", "SELECT CLIENT_NAME FROM CLIENT_TB WHERE  CLIENT_NAME = '" & TEXT_NAME.Text.Trim() & "'")
       If Not DSDETAILSFILA.Tables("CLIENT_TB").Rows.Count > 0 Then
           Dim com As New OleDbCommand("UPDATE  CLIENT_TB SET CLIENT_NAME=@CLIENT_NAME WHERE  CLIENT_ID =@CLIENT_ID", con)
           com.Parameters.AddWithValue("@CLIENT_NAME", TEXT_NAME.TEXT)
           com.Parameters.AddWithValue("@CLIENT_ID", LAB_IDVAL.Text)
           con.Open()
           com.ExecuteNonQuery()
           con.Close()
           Exit Sub
       Else
           MsgBox("الاسم مكرر سابقا يجب تغير الاسمالحالي او تعديلة ")

       End If

المشكلة الان الكود بالاعلي بينفع فقط في حالة الاضافة اما التعديل ففي مشكلة لو بعدل علي بيانات عميل معين وبعدل اي بيانات غير الاسم فمش هيعدل لان الاسم موجود وانا بعدل بنفس الاسم ومش هيكون مكرر عايز فكرة في الموضوع دة