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