Private Sub Form_Error(DataErr As Integer, Response As Integer)
Select Case DataErr

Case 3022
MsgBox "Ovaj red podataka je duplikat"

Case 3314
MsgBox "Morate uneti podatak"

Case Else

MsgBox "Greska Br: " & DataErr & vbCr _
   & Err.Description

End Select
Response = 0
End Sub