<br />
<b>Notice</b>:  Undefined offset: 2 in <b>/home2/icentarb/public_html/icentar/classes/class.permissions.php</b> on line <b>735</b><br />
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, , , , acDial