Soru Recordset Silme

[hlojan]

Arkadaşlar seçtiğim recordseti nasıl silerim

On Error Resume Next
If Not kod.Text = Empty Or sira.Text = Empty Then
GoTo devam
Else
MsgBox "LÜTFEN ! KOD VE SIRA YAZINIZ"
Exit Sub
End If

devam:


Call baglan

sorgu = "select * from cihaz where kod='" & kod & "' and sira='" & sira & "'"
kyt.Open sorgu, bgln, 1, 1

 

If kyt.EOF Then

MsgBox " CİHAZ BULUNAMADI" & vbCrLf & _
"Lütfen Bilgileri doldurunuz. Yeni kaydedin", vbCritical

Else


Dim Answer As String
Dim MyNote As String
 
    'Place your text here
    MyNote = "Kayıt Silenecek Eminmisin?"
 
    'Display MessageBox
    Answer = MsgBox(MyNote, vbQuestion + vbYesNo, "???")
 
    If Answer = vbNo Then
Exit Sub
    Else
 
kyt.Delete adAffectCurrent
kyt.UpdateBatch
kyt.Close

    End If


End If
'************** İŞLEM SON *****************



'****************BAĞLANTI KAPAT ***********
bgln.Close
Set kyt = Nothing: Set bgln = Nothing