Centar za edukaciju-BiH



#41 29.10.2020 16:34
Gjoreski Van mreze
Administrator
Registrovan od:02.02.2009
Postovi:1,854


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
↑  ↓

#42 29.10.2020 18:18
Branestan Van mreze
Clan
Registrovan od:07.05.2012
Postovi:115


Predmet:Re: Raspored dugmica (buttons) u kolone
Pokušao sam ali ne ide.

Na koji način se uopÅ¡te pokrene ova procedura: PostaviArtikliGrupa(GrupaId As Integer)?

Vidim šta se dešava na On Load ali mi nije jasna veza sa ovim drugim dijelom.

Prilozi:
Informacije o tipu datoteke za:rar  Sliki na Dugme_30.rar
Preuzimanja:148
Velicina datoteke:547.71 KB

↑  ↓

#43 29.10.2020 22:16
Gjoreski Van mreze
Administrator
Registrovan od:02.02.2009
Postovi:1,854


Predmet:Re: Raspored dugmica (buttons) u kolone
Ja cu objasniti cod nije problem,
ali najbolje da zakacis tvoj primer pa zajedno da uradimo pa tako ce ti biti jasnije.
Ovo sam davno radio i vidim da se moze bolje uraditi.
↑  ↓

#44 29.10.2020 22:28
Gjoreski Van mreze
Administrator
Registrovan od:02.02.2009
Postovi:1,854


Predmet:Re: Raspored dugmica (buttons) u kolone
Na vrhu modula imas dve konstante :
Dim GrupaArtikal(1 To 20) As Integer
Dim Artikal(0 To 30) As Integer

Na onLoad konstantite GrupaArtikal se polnat so ID od tabelata tblGrupa_Artikli to ti je ovaj deo coda :

GrupaArtikal(brdugme) = r.Fields("ID_Grupa_Artikal")

Procedurata PostaviArtikliGrupa(GrupaId As Integer) se poziva na ON_Click na svaki taster , a kao parametar se ova procedura se uzima vednosta koja se nalazi u konstantata GrupaArtikal koja odgovara na taj taster.
Primer:
Private Sub cmdGrupa12_Click()
Call PostaviArtikliGrupa(GrupaArtikal(12))
End Sub

Za bolji rad dobro bi bilo ovie konstanti da se izostavat da ne se koristat ,a vrednostite od grupite da se upisat u Tag na svaki taster.
Na isti princip je uradzeno i za artiklima.
Sad ovde bi trebalo da se doda jos malo coda ako imamo vise grupa od 20 i ako ima vise artikla od 30
↑  ↓

Stranice (5):1,2,3,4,5


Sva vremena su GMT +01:00. Trenutno vrijeme: 12: 29 am.