Gjoreski | 29.10.2020 17:34 |
---|---|
Predmet:Re: Raspored dugmica (buttons) u kolone PreuzmiIzvorni kôd (Visual Basic):
|
Branestan | 29.10.2020 19:18 |
---|---|
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: Sliki na Dugme_30.rar (Velicina datoteke:547.71 KB) |
Gjoreski | 29.10.2020 23:16 |
---|---|
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. |
Gjoreski | 29.10.2020 23:28 |
---|---|
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 |