Kaydet butonundaki kodu aşağıdaki şekilde değiştiriniz.
Kod:
Private Sub mbkaydet_Click()
'MBD DOSYASINA VERİ KAYDEDİYOR
Call baglanti
Set rs1 = New ADODB.Recordset
rs1.Open ("select * from MusteriListesi where FirmaAdi='" & tbmbfirmaadi & "'"), baglan, adOpenStatic, adLockBatchOptimistic
If rs1.RecordCount <> 0 Then
MsgBox "bu kayıt daha önce girilhmiş"
Exit Sub
End If
Sira = "'" & tbmbkayitno & "'"
ckod = "'" & tbmbcarikod & "'"
firma = "'" & tbmbfirmaadi & "'"
Set rs = baglan.Execute("INSERT INTO MusteriListesi (Sirano,MusteriId,FirmaAdi) Values (" & Sira & "," & ckod & "," & firma & ")")
Set baglan = Nothing: Set rs = Nothing:
temizle
MsgBox "Yeni kayıt eklendi."
listeye_al
End Sub