Değerli Arkadaşlar merhabalar access data bağlantılı bir çalışmam var burda yeni kayıt yada kayıt güncelleme yapabiliyorum. fakat istediğim sadece kayıt tuşuna bastığım zaman kayıt araması yapsın eğer önceden böyle bir kayıt varsa güncelleme yapsın. bu şekilde nasıl yapabiliriz. 

Private Sub CommandButton1_Click()
Dim baglan As New Connection
Dim rs As New Recordset



On Error Resume Next



baglan.Open "Provider=Microsoft.Ace.Oledb.12.0;data source=\\BAYOGLU\SipPro\ResanData.accdb;"
rs.Open "select * from siparis where Kimlik", baglan, adOpenKeyset, adLockPessimistic
rs.AddNew

If Me.TextBox1.Text <> "" Then rs.Fields(1) = Me.TextBox1.Text
If Me.TextBox2.Text <> "" Then rs.Fields(2) = Me.TextBox2.Text
If Me.ComboBox1.Text <> "" Then rs.Fields(3) = Me.ComboBox1.Text
If Me.ComboBox2.Text <> "" Then rs.Fields(4) = Me.ComboBox2.Text
If Me.TextBox3.Text <> "" Then rs.Fields(5) = Me.TextBox3.Text
If Me.TextBox4.Text <> "" Then rs.Fields(6) = Me.TextBox4.Text
If Me.TextBox5.Text <> "" Then rs.Fields(7) = Me.TextBox5.Text
If Me.TextBox6.Text <> "" Then rs.Fields(8) = Me.TextBox6.Text
If Me.TextBox7.Text <> "" Then rs.Fields(9) = Me.TextBox7.Text
If Me.ComboBox3.Text <> "" Then rs.Fields(10) = Me.ComboBox3.Text
If Me.ComboBox4.Text <> "" Then rs.Fields(11) = Me.ComboBox4.Text
If Me.TextBox8.Text <> "" Then rs.Fields(12) = Me.TextBox8.Text
If Me.TextBox9.Text <> "" Then rs.Fields(13) = Me.TextBox9.Text
If Me.TextBox17.Text <> "" Then rs.Fields(14) = Me.TextBox17.Text
If Me.TextBox18.Text <> "" Then rs.Fields(15) = Me.TextBox18.Text
If Me.TextBox19.Text <> "" Then rs.Fields(16) = Me.TextBox19.Text



cevap = MsgBox("Sipariş Kaydı Yapıldı", vbOKOnly, "YENİ KAYIT")


Call Siparis_Bilgileritemizle
rs.Update

rs.Close
baglan.Close

Call siparislistesi
End Sub

....
SQLA= "select * from siparis where (((Kimlik)=" & [Kimo] & "))"
rs.Open SQLA, baglan, adOpenKeyset, adLockPessimistic
if rs.recordcount=0 then rs.AddNew
.....

olarak deneyin.

sn ofbayoglu61
Bu konuda daha detaylı bilgi almak için yazmış olduğum makaleye göz atabilirsiniz.

Veri Girişlerinde Mükerrer (Tekrarlayan) Kayıtları Önleme

hocam denedim aşağıdaki kodla ama yeni sipariş açmıyor bu şekilde.

Private Sub CommandButton1_Click()
Dim baglan As New Connection
Dim rs As New Recordset

On Error Resume Next

baglan.Open "Provider=Microsoft.Ace.Oledb.12.0;data source=\\BAYOGLU\SipPro\ResanData.accdb;"
SQLA = "select * from siparis where (((Kimlik)=" & [Kimo] & "))"
rs.Open SQLA, baglan, adOpenKeyset, adLockPessimistic
If rs.RecordCount = 0 Then rs.AddNew
'rs.Open "select * from siparis where Kimlik", baglan, adOpenKeyset, adLockPessimistic
'rs.AddNew

If Me.TextBox1.Text <> "" Then rs.Fields(1) = Me.TextBox1.Text
If Me.TextBox2.Text <> "" Then rs.Fields(2) = Me.TextBox2.Text
If Me.ComboBox1.Text <> "" Then rs.Fields(3) = Me.ComboBox1.Text
If Me.ComboBox2.Text <> "" Then rs.Fields(4) = Me.ComboBox2.Text
If Me.TextBox3.Text <> "" Then rs.Fields(5) = Me.TextBox3.Text
If Me.TextBox4.Text <> "" Then rs.Fields(6) = Me.TextBox4.Text
If Me.TextBox5.Text <> "" Then rs.Fields(7) = Me.TextBox5.Text
If Me.TextBox6.Text <> "" Then rs.Fields(8) = Me.TextBox6.Text
If Me.TextBox7.Text <> "" Then rs.Fields(9) = Me.TextBox7.Text
If Me.ComboBox3.Text <> "" Then rs.Fields(10) = Me.ComboBox3.Text
If Me.ComboBox4.Text <> "" Then rs.Fields(11) = Me.ComboBox4.Text
If Me.TextBox8.Text <> "" Then rs.Fields(12) = Me.TextBox8.Text
If Me.TextBox9.Text <> "" Then rs.Fields(13) = Me.TextBox9.Text
If Me.TextBox17.Text <> "" Then rs.Fields(14) = Me.TextBox17.Text
If Me.TextBox18.Text <> "" Then rs.Fields(15) = Me.TextBox18.Text
If Me.TextBox19.Text <> "" Then rs.Fields(16) = Me.TextBox19.Text



cevap = MsgBox("Sipariş Kaydı Yapıldı", vbOKOnly, "YENİ KAYIT")


Call Siparis_Bilgileritemizle
rs.Update

rs.Close
baglan.Close

Call siparislistesi
End Sub

NOT Referanslardan Microsoft ActiveX Data Object ... library referansını işaretli olmalı.