[ahmedfa71]

السلام عليكم ورحمة الله وبركاته
لدي 2 تيكست بوكس أحدهما يقوم بحساب مفتاح الحساب البريدي بواسطة دالة إذا كانت قيمة TextBoxCle  لا تساوي TexTestCleCcp
أريد إذا كانت قيمتها مختلفة أي أن هنالك خطأ 
يحفظ هذا الخطأ في جدول وبمجرد تصحيح الخطأ تذهب هذه التسجيلة من الجدول

هذا كود الحفظ

كود :

cn.Open()
       cmd.CommandText = "SELECT COUNT (*) FROM EmpCcp WHERE Nem='" & TextBoxNem.Text & "'"
       Dim Cpt As Int16
       Cpt = cmd.ExecuteScalar
       If Cpt = 0 Then
           cmd.CommandText = "INSERT INTO EmpCcp(Nem,nom,NCompte,Cle,MontApayer,Motif)VALUES ('" & TextBoxNem.Text & "','" & TextBoxNomPren.Text & "','" & TextBoxNCcp.Text & "','" & TextBoxCle.Text & "','" & TextBoxMontant.Text & "','" & ComboBoxMotif.Text & "')"
           cmd.ExecuteNonQuery()
           MessageBox.Show("تمت عملية الحفظ بنجاح")
       Else
           MessageBox.Show("هذا الإسم موجود مسبقا")
       End If
       cn.Close()
       ShowdDataGView()

وهذه الدالة التي تحفظ الخطأ في جدول أخر 

كود :

Private Function EreurCleCcp()
       Try
           cn.Open()
           Dim cmd1 As New OleDbCommand("insert into CcpIncorrect ([numero], [Compte], [NetApayer], [Nom],[Cle]) values (@numero, @Compte, @NetApayer, @Nom,@Cle)", cn)
           With cmd1.Parameters
               .AddWithValue("@numero", TextBoxNem.Text)
               .AddWithValue("@Compte", TextBoxNCcp.Text)
               .AddWithValue("@NetApayer", TextBoxMontant.Text)
               .AddWithValue("@Nom", TextBoxNomPren.Text)
               .AddWithValue("@Cle", TextBoxCle.Text)
           End With
           cmd1.ExecuteNonQuery()
           Return True
       Catch ex As Exception
           MessageBox.Show("خطأ" & ex.Message.ToString, My.Application.Info.Title, MessageBoxButtons.OK, MessageBoxIcon.Error)
           Return False
       End Try
   End Function

فكيف لي أ أقوم بذلك
والسلام عليكم ورحمة الله وبركاته