- Katılım
- 15 Mayıs 2015
- Mesajlar
- 518
- Excel Vers. ve Dili
- Microsoft Office 2019
- Altın Üyelik Bitiş Tarihi
- 26/06/2023
Arkadaşlar seçtiğim recordseti nasıl silerim
Kod:
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