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.