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.Requery
Teşekkürler. Cevaplandıya taşınabilir veya silinebilir.