Private Sub cmdBrisi_Click()
On Error GoTo Err_cmdBrisi_Click:
If MsgBox("Da li zaista zelite da obrisete podatak?", vbYesNo, "STOP-TRAJNO GUBLJENJE PODATKA") = vbYes Then
DoCmd.SetWarnings False
DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70
DoCmd.SetWarnings True
MsgBox "Podatak obrisan!"
Else
MsgBox "Odustali ste u pravo vreme.", vbExclamation, "NEMA BRISANJA"
End If
Exit_cmdBrisi_Click:
Exit Sub
Err_cmdBrisi_Click:
Select Case err.Number
Case 3200
MsgBox "PODATAK JE U UPOTREBI,I NEMOGUCE GA JE OBRISATI", vbCritical, "STOP-NEPOZELJNO BRISANJE"
Case 2046
MsgBox "PODATAK NE POSTOJI", vbCritical, "STOP-NEPOSTOJECI PODATAK"
Case 3396
MsgBox "PODATAK JE U UPOTREBI,I NEMOGUCE GA JE OBRISATI", vbCritical, "STOP-NEPOZELJNO BRISANJE"
Case Else
MsgBox err.Description & err.Number
End Select
Resume Exit_cmdBrisi_Click
End Sub
