(17/12/2016, 00:58)ozanakkaya yazdı: Merhaba,
kodu ile kaydı bulduktan sonrarS.Find "[ReceteTaslakNo]=" & Me.taslakno
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.