Aynı isimde kayıt hatası

[teksen]

Arkadaşlar merhaba,

aşağıdaki kodlarla kaydet butonu üzerinden access dosyasına bilgileri kaydediyorum fakat aynı markadan bir taneden fazla kayıt yaptırmıyor.

Bunu düzeltmemiz için kaydet butonundaki kodlarda nasıl bir değişiklik yapmamız gerekir acaba?

şimdiden teşekkür ederim

herkese iyi çalışmalar.



Private Sub kaydet_Click()
Set RS = CreateObject("ADODB.recordset")
strSQL = "SELECT * FROM [MyTable] Where Marka='" & TextBox1 & "'"
RS.Open strSQL, adoCN, 1, 3
If RS.RecordCount = 0 Then
RS.AddNew
RS("Marka") = TextBox1
RS("Model") = TextBox2
RS("Tedarikci") = TextBox3
RS("Adet") = TextBox9

RS.Update
TextBox1 = Empty
TextBox2 = Empty
TextBox3 = Empty
TextBox9 = Empty

Else
MsgBox TextBox1 & " adlı kişiyi daha önce girmiştiniz.", , "TestDB5"
End If
RS.Close
RefreshDB
Set kayit = Nothing
End Sub

 

[tamer42]

If RS.RecordCount = 0 Then

............
Else

............
End If

Burada If .... End If bloğunu kaldırın; aradaki kodları doğrudan yazın.