Ljudi,ima li neko ideju zašto ovaj kod ne valja,tj zašto error handler se preskače i izbacuje se poruka accessova,umesto moja.Samo da oobjasnim da pokušavam da obrišem neki rekord koji je nemoguće obrisati,jer je povezan sa drugom tabelom i već je u upotrebi.Znači nije problem, što ne mogu da ga obrišem,već je problem presretanja accessove poruke.Da napomenem da samm probao i preko recordset-a i na formin error dodadavao error handler,ali bezuspešno,uvek se izbaci accessova poruka.
Code:
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
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
Potpis
Jednog dana...
