[tahaayyoub]

Private Sub BtnSave_Click(sender As Object, e As EventArgs) Handles BtnSave.Click
        Dim ssd As String = GetAutoIncrement("affaires", "id_aff")
        TextBox2.Text = ssd
        If CmbType.Text = "" Then
            MessageBox.Show("ادخل نوع القضية", "", MessageBoxButtons.OK, MessageBoxIcon.Warning)
            CmbType.Focus()
            Return
        End If
        If CmbNature.Text = "" Then
            MessageBox.Show("ادخل طبيعة القضية", "", MessageBoxButtons.OK, MessageBoxIcon.Warning)
            CmbNature.Focus()
            Return
        End If
        If MaskedTextBox1.Text = "" Then
            MessageBox.Show("ادخل تاريخ الايداع", "", MessageBoxButtons.OK, MessageBoxIcon.Warning)
            MaskedTextBox1.Focus()
            Return
        End If
        Try
            Connect()
            con.Open()
            Dim cb As String = "insert into affaires ([id_aff],[id_user],[type_aff],[nature_aff],[date_depot],[date_convoquer],[date_realiser],[payer],[avance],[reglement],[observation]) VALUES (@d1,@d2,@d3,@d4,@d5,@d6,@d7,@d8,@d9,@d10,@d11)"
            cmd = New SqlCommand(cb)
            cmd.Connection = con
            cmd.Parameters.AddWithValue("@d1", TextBox2.Text).ToString()
            cmd.Parameters.AddWithValue("@d2", Label13.Text).ToString()
            cmd.Parameters.AddWithValue("@d3", CmbType.Text).ToString()
            cmd.Parameters.AddWithValue("@d4", CmbNature.Text).ToString()
            cmd.Parameters.AddWithValue("@d5", MaskedTextBox1.Text).ToString()
            cmd.Parameters.AddWithValue("@d6", MaskedTextBox2.Text).ToString()
            cmd.Parameters.AddWithValue("@d7", MaskedTextBox3.Text).ToString()
            cmd.Parameters.AddWithValue("@d8", TextBox3.Text).ToString()
            cmd.Parameters.AddWithValue("@d9", TextBox4.Text).ToString()
            cmd.Parameters.AddWithValue("@d10", TextBox5.Text).ToString()
            cmd.Parameters.AddWithValue("@d11", TextBox1.Text).ToString()
            cmd.ExecuteNonQuery()
            con.Close()
            MessageBox.Show("تمت عملية الحفظ بنجاح", "tiers", MessageBoxButtons.OK, MessageBoxIcon.Information)
            BtnDelete.Enabled = False
            BtnUpdate.Enabled = False
            reset()
        Catch ex As Exception
            MessageBox.Show(ex.Message, "Error", MessageBoxButtons.OK, MessageBoxIcon.[Error])
        End Try
    End Sub
يظهر الخطا الموضح في الصورة 1


وعند الضغط مرة اخرى على زر تسجيل يظهر صورة 2