Prikazi cijelu temu 29.10.2020 17:34
Gjoreski Van mreze
Administrator
Registrovan od:02.02.2009
Lokacija:Ohrid Makedonija


Predmet:Re: Raspored dugmica (buttons) u kolone
PreuzmiIzvorni kôd (Visual Basic):
  1. For I = 1 To 30
  2.       imeobj = "command" + Trim(Str(I))
  3.       Forms("test").Controls(imeobj).Visible = False
  4.  Next I
  5.  
  6. Dim d As Database
  7. Set d = CurrentDb
  8. Dim r As Recordset
  9. Dim sql As String
  10.  sql = "SELECT * FROM tblArtikli WHERE (((tblArtikli.Grupa_Artikal)=" & GrupaId & "));"
  11.  Set r = d.OpenRecordset(sql)
  12.   brdugme = 1
  13.  
  14. Do While Not r.EOF
  15.        
  16.       If IsNull(r.Fields("SlikaArtikal")) Then
  17.       imeobj = "command" + Trim(Str(brdugme))
  18.       Artikal(brdugme) = r.Fields("ID_Artikal")
  19.       Forms("test").Controls(imeobj).Visible = True
  20.       Forms("test").Controls(imeobj).Picture = ""
  21.       Forms("test").Controls(imeobj).Caption = r.Fields("Artikal_Ime")
  22.       r.MoveNext
  23.       brdugme = brdugme + 1
  24.       Else
  25.       imeobj = "command" + Trim(Str(brdugme))
  26.       Artikal(brdugme) = r.Fields("ID_Artikal")
  27.       Forms("test").Controls(imeobj).Visible = True
  28.       Forms("test").Controls(imeobj).Caption = r.Fields("Artikal_Ime")
  29.       Forms("test").Controls(imeobj).PictureData = r.Fields("SlikaArtikal")
  30.       r.MoveNext
  31.       brdugme = brdugme + 1
  32.    
  33.    
  34.     End If
  35.     If brdugme > 30 Then
  36.       Exit Sub
  37.     End If
  38.    
  39.   If r.EOF() Then
  40.  
  41.      Exit Sub
  42.   End If
  43.  
  44.    
  45.  Loop
  46.  
  47. r.Close
  48.  
  49. Set d = Nothing