AccessTr.neT

Kusura bakmayın kolay olur sanmıştım. Ekliyorum.[attachment=26130]

6. mesaja eklediğim kod yenilenmiştir. İnceleyip olumlu-olumsuz bildirimde bulununuz.

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.

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.

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.

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.