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.
"Oyun bitince şah ve piyon aynı kutuya atılır "