Kod:
Dim rS As New ADODB.Recordset
rS.Open "SELECT ReceteTaslakNo FROM T_RECETETASLAKMALIYET WHERE ReceteTaslakNo =" & Me.taslakno & " And HmmdNo = " & Me.hmmdno2, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
rS.Delete
rS.Close
Me.lst_hmmdliste.RequeryTeşekkürler. Cevaplandıya taşınabilir veya silinebilir.