örnek uygulama eklemediğinizde kodu deneme imkanımız olmuyor ve yazılan cevaplar malesef farazi oluyor.
Kodu aşağıdaki ile değiştirerek deneyiniz.
Public Sub sil_taslakici()
Dim rS As New ADODB.Recordset
rS.Open "T_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