Faturarsivi formunuzda, FATURASİL buton olay yordamını;

On Error GoTo Err_FaturaSil_Click
Dim C As Integer
C = MsgBox("Kayıt silinecek..! Eminmisiniz?", vbOKCancel + vbQuestion, "CeloSoft")
If C = vbOK Then
DoCmd.SetWarnings False
DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70
DoCmd.SetWarnings True
Me.Liste.Requery
' Me.Liste26.Requery
ElseIf C = vbCancel Then
Me.Undo


End If

Exit_FaturaSil_Click:
Exit Sub

Err_FaturaSil_Click:
MsgBox Err.Description
Resume Exit_FaturaSil_Click

Form.Recalc
End Sub

Şeklinde düzeltin..silineni anında günceller.