On Error - Hata denetimi hakkında.

1 2 3
17/12/2016, 02:30

nightashes

Kusura bakmayın kolay olur sanmıştım. Ekliyorum.[attachment=26130]
17/12/2016, 02:51

ozanakkaya

6. mesaja eklediğim kod yenilenmiştir. İnceleyip olumlu-olumsuz bildirimde bulununuz.
17/12/2016, 19:38

nightashes

Olmadı. Hiç silme işlemi yapmadı bu sefer.
Acaba btn_sil de ki kodda mı hata var ?
Private Sub btn_sil_Click()
If MsgBox("Seçtiğiniz kayıt silinsin mi?", vbYesNo, "Silme işlemi") = vbYes Then
Call sil_taslakici
Call sil_taslak
Call BOSALT
End If
MsgBox "Silme Tamamlandı", vbOKOnly, "Silme işlemi"
End Sub
btn_sil de ki kod.


Public Sub sil_taslakici()
Dim rS As New ADODB.Recordset
rS.Open "T_RECETETASLAKMALIYET", CurrentProject.Connection, adOpenKeyset, adLockOptimistic

If rS.EOF Then
Exit Sub
Else
rS.MoveFirst
Do Until rS.EOF
If rS![ReceteTaslakNo] = Me.taslakno Then
rS.Delete
End If
rS.MoveNext
Loop
End If

rS.Close
Set rS = Nothing
End Sub

Public Sub sil_taslak()
Dim rS As New ADODB.Recordset
rS.Open "T_RECETETASLAK", CurrentProject.Connection, adOpenKeyset, adLockOptimistic
rS.Find "[ReceteTaslakNo]=" & Me.taslakno
If rS.EOF = False Then
rS.Delete
End If
rS.Close: Set rS = Nothing
End Sub
Silme işlemi.
17/12/2016, 21:40

atoz112

sayın nightashes,

EK'te;
bahsettiğiniz talebinize yönelik olarak,
alternatif bir kullanım olması amacı ile hazırlanmış örnek uygulama mevcuttur.inceleyebilirsiniz.

bilginize...iyi çalışmalar,saygılar.
18/12/2016, 01:00

nightashes

Sayın atoz cevabınız için teşekkür ederim. Evet hata vermeden silme işlemini yapıyor fakat iki sorum olacak. Birincisi Silme İşlemi Gerçekleşsin Mi? sorusunu iki defa soruyor ve işlem tamamlandı mesajını iki kere veriyor. Sebebi nedir acaba. Ve ikincisi ben diğer işlemleri ado üzerinden yaptırmaya çalışıyordum sizin öneriniz Sql ilerde çakışma yaratır mı acaba? Kayıt sayısı 10000 olduğu zaman mesela.
Teşekkür ederim cevabınız için.
18/12/2016, 02:03

nightashes

Tekrar yardımlarınız için teşekkür ederim. Biraz araştırıp biraz deneme yanılma ile biraz atoz ve ozanakkaya uzmanlarımızın verdiği bilgiler ile hallettim sanırım.
Public Sub sil_taslakici()
Dim rS As New ADODB.Recordset
rS.Open "SELECT ReceteTaslakNo FROM T_RECETETASLAKMALIYET WHERE ReceteTaslakNo =" & Me.taslakno, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
If rS.EOF = True Then
Exit Sub
Else
Do Until rS.EOF
If rS.RecordCount <> 0 Then
rS.Delete
End If
rS.MoveNext
Loop
rS.Close
MsgBox "Kayıt silindi", vbInformation
End If
End Sub

Bu şekilde bir silme işlemi yaptırdım ve sorun çıkmadı.
Eğer bir hata veya daha sonra başıma sıkıntı çıkartacak bir yazım oldu ise uyarırsanız sevinirim. Herkese saygılar.
Cevaplandıya taşınabilir.
1 2 3