<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 />
For I = 1 To 30
      imeobj = "command" + Trim(Str(I))
      Forms("test").Controls(imeobj).Visible = False
 Next I
 
Dim d As Database
Set d = CurrentDb
Dim r As Recordset
Dim sql As String
 sql = "SELECT * FROM tblArtikli WHERE (((tblArtikli.Grupa_Artikal)=" & GrupaId & "));"
 Set r = d.OpenRecordset(sql)
  brdugme = 1
 
Do While Not r.EOF
       
      If IsNull(r.Fields("SlikaArtikal")) Then
      imeobj = "command" + Trim(Str(brdugme))
      Artikal(brdugme) = r.Fields("ID_Artikal")
      Forms("test").Controls(imeobj).Visible = True
      Forms("test").Controls(imeobj).Picture = ""
      Forms("test").Controls(imeobj).Caption = r.Fields("Artikal_Ime")
      r.MoveNext
      brdugme = brdugme + 1
      Else
      imeobj = "command" + Trim(Str(brdugme))
      Artikal(brdugme) = r.Fields("ID_Artikal")
      Forms("test").Controls(imeobj).Visible = True
      Forms("test").Controls(imeobj).Caption = r.Fields("Artikal_Ime")
      Forms("test").Controls(imeobj).PictureData = r.Fields("SlikaArtikal")
      r.MoveNext
      brdugme = brdugme + 1
   
    
    En