@goranvuc
Samo da te obavestim da sam resio problem. Greska je bila u deklarisnju promenljive, tako da je sada ista promenljiva i u proceduri i u modulu.
Sad ovo radi ispravno.
Code:
Private Sub cmdPoBrojevima_Click()
Dim dblKriterijum <---------------------- umesto varKriterijumi
Dim intCounter As Integer
dblKriterijum = Array(1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25)
For intCounter = 0 To UBound(dblKriterijum)
DoEvents
Form4.Controls("Label" & (intCounter + 1)).Caption = Broj(dblKriterijum(intCounter))
Next
Form4.Show ' ovde se nalaze labele u koje se upisuju sume
Adodc1.Refresh
MSHFlexGrid1.ColAlignment = flexAlignCenterCenter
End Sub
ovo se nalazi u modulu
Code:
Function Broj(ByVal dblKriterijum As Double) As Double
Dim dblSuma As Double
dblSuma = 0
If Form2.Adodc1.Recordset.RecordCount > 0 Then Form2.Adodc1.Recordset.MoveFirst
Do While Not Form2.Adodc1.Recordset.EOF
If Form2.Adodc1.Recordset("GOD") = dblKriterijum Then
dblSuma = dblSuma + 1
End If
Form2.Adodc1.Recordset.MoveNext
Loop
Broj = dblSuma
End Function
Po ko zna koji put se zahvaljujem na pomoci i izvinjavam za ovu silnu prepisku.
Nadam se da ces mi opet pomoci ako (kad) nesto zatreba.
pozdrav