Private Sub SIL_Click()
'On Error Resume Next
If MsgBox("Girilen Tutarı Silmek İstediğinizden Eminmisiniz..?", vbCritical + vbYesNo) = vbYes Then
DoCmd.SetWarnings False
DoCmd.RunSQL "DELETE İSLEMNO FROM T_SERVİSHESABİ WHERE MUSID = " & Me.MUSID & ";"
DoCmd.SetWarnings True
Me.Requery
Forms![F_TEKNİKSERVİS]![mtn_hesaptoplami] = Forms![F_TEKNİKSERVİS]![mtn_servistutari] + Nz(DSum("[TUTARİ]", "T_SERVİSHESABİ", "[İSLEMNO] = " & Nz(Me.İSLEMNO, 0)), 0)
Forms![F_TEKNİKSERVİS]![Kal] = Forms![F_TEKNİKSERVİS]![mtn_hesaptoplami] - Forms![F_TEKNİKSERVİS]![ODEMETOPLAMİ]
Else
Exit Sub
End If
End Sub
Buton kodunu aşağıdaki ile değiştiriniz.