Access Veritabanından kayıt Silme

[askm]

Kolay gelsin.
Resimdeki şekilde bir veritabanı mevcut. (Kart baskı yazılımına ait programda kullanılıyor. Otomatik sayı ekleme imkanım yok.) İki sorum mevcut.
1. Veri ekleme işlemini yapıyorum. Veri silme işlemi içinde aşağıdaki kodları kullanmak istiyorum. Ama
Set rs = baglan.Execute("DELETE FROM Yeni WHERE SICILNO=" & KSICILNO)

kısmında hata veriyor.
2. Sorum kayıt sildikten sonra otomatik. sıkıştır ve onar yapabilir miyim.
Teşekkürler.

Private Sub Sil()
If Sheets("Kayit").Cells(2, 3) = "" Then
MsgBox "Önce sicil numarası yazınız...", vbCritical + vbOKOnly, "nickname"
Exit Sub
End If
Dim KSICILNO As String
KSICILNO = Sheets("Kayit").Cells(2, 3)
Call baglanti
Set rs = baglan.Execute("DELETE FROM Yeni WHERE SICILNO=" & KSICILNO)
Set baglan = Nothing: Set rs = Nothing:
sayfaya_yaz
MsgBox kimlik & " kimlik numaralı kayıt silindi.", vbInformation + vbOKOnly, "nickname"
End Sub

 

[Erdem Akdemir]

Merhaba,

Böyle deneyin ' " & KSICILNO & " '

 

[askm]

Set rs = baglan.Execute("DELETE FROM Yeni WHERE SICILNO = ' " & KSICILNO & " '")
bu şekilde denedim kayıt silindi diyor ama kayıt silinmemiş oluyor.

 

[Erdem Akdemir]

Örnek eklerseniz bakabilirim ama aşağıdaki gibide bir deneyin.

Set rs = baglan.Execute("DELETE * FROM Yeni WHERE SICILNO = ' " & KSICILNO & " '")

 

[askm]

Örnek Dosya

 

[Erdem Akdemir]

Merhaba,

Aşağıdaki gibi değiştirin silecektir.
Access'te sicil no alanını metin olarak tanımlamışsınız,excel'de ise sayı olarak görünüyor.

KSICILNO = CStr(Sheets("Kayit").Cells(2, 3))

Call baglanti
Set rs = baglan.Execute("DELETE * FROM Yeni WHERE SICILNO ='" & KSICILNO & "' ")

 

[askm]

Çok teşekkür ederim kodlar çalıştı. Yalnız veri tabanında yoksa " silinmek istenen kayıt yok uyarısı vermek istiyorum. Veri tabanında olup olmadığınız nasıl kontrol edebilirim.

 

[askm]

Aşağıdaki kodlar ile çözdüm. Teşekkür ederim.
Set BUL = Sheets("Veri").Range("C:C").Find(Sheets("Kayit").Range("C2"), LookAt:=xlWhole)
If Not BUL Is Nothing Then

kodlar


Else
MsgBox "Aradığınız Sicil No Bulunamadı !", vbCritical
End If

 

[Erdem Akdemir]

Merhaba,

Ben verilerinizi access üzerinden takip ettiğinizi düşünmüştüm.
Access'te verinin silinmediğine bakmak için önce veriyi başka bir sorgu veriyi saydırabiliriz yada tam bilmiyorum ama delete sorgusunun sonuç üretip üretmediğine bakılabilir ( bu kısmı nasıl yapılır yada var mı tam bilmiyorum, recordset nesnesinde silme işlemlerinin bilgisini gösteren bir alan yok.) Bilen bir arkadaş varsa paylaşabilir.

 

[askm]

Access üzerinden takip ediyor. yalnız verileri excelde bir sayfada listeletiyorum. Orada ama komutu ile eğer varsa işlemi yap yoksa hata mesajı ver şeklinde yapıyorum.