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
End If
If brdugme > 30 Then
Exit Sub
End If
If r.EOF() Then
Exit Sub
End If
Loop
r.Close
Set d = Nothing