(17/12/2016, 00:58)ozanakkaya yazdı: Merhaba,

rS.Find "[ReceteTaslakNo]=" & Me.taslakno

kodu ile kaydı bulduktan sonra

if rs.recordcount <> 0 then

rs.Delete

end if

şeklinde kod düzenlemesi yapabilirsin.

Hocam olmadı. Şu şekilde düzenledim hatalı mı acaba?

Public Sub sil_taslakici()

Dim rS As New ADODB.Recordset

rS.Open "T_RECETETASLAKMALIYET", CurrentProject.Connection, adOpenKeyset, adLockOptimistic

rS.Find "[ReceteTaslakNo]=" & Me.taslakno

If rS.RecordCount <> 0 Then

rS.Delete

End If

rS.Delete

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

rS.Delete

rS.Close: Set rS = Nothing

End Sub

Sadece sil_taskaici ne dediğinizi uyguladım.