Private Sub proizvod_BeforeUpdate(Cancel As Integer)
Dim rstproizvod As Recordset, strproizvod As String
Dim SQL As String
 SQL = "SELECT COUNT(*) AS broj FROM tblproizvodi WHERE proizvod = '" & strproizvod & "'"
 Set rs = CurrentDb.OpenRecordset(SQL, dbOpenSnapshot)
 Dim broj_redova As Integer
 broj_redova = rs!broj
 If brojRedova > 0 Then
    'MsgBox "Postoji " & brojRedova & " red(ova)."
    'ako sta trebas jos raditi
Else
    answer = MsgBox("Nemate artikl sa tom sifrom!!!Zelite li unijeti?", vbQuestion + vbYesNo, DLookup("KORISNIK", "tblKorisnik"))
    If answer = vbYes Then
    DoCmd.OpenForm "frmPROIZVODI", acNormal, , , , acDialog, Me.proizvod
    Else
     Me!proizvod.Undo
            Cancel = True
      Sendkeys "{ESC}{ESC}"
  End If
End If
  rstproizvod.Close
End Sub