Private Sub Form_Error(DataErr As Integer, Response As Integer)
MsgBox "Niste popunili sva potrebna polja"
Response = 0
End Sub