• 36 odgovora
  • 7.721 pregleda
Re: ProgressBar i ucitavanje podataka 28.02.2007. u 13:49 · pre 239 meseci #21
Da, na pocetku je bilo Option Explicit.
Sad kad sam to izbrisao vise ne prijavljuje gresku, prikazuje mi Form4, ali u labelama ne ispisuje sume vec nule.
Re: ProgressBar i ucitavanje podataka 28.02.2007. u 13:56 · pre 239 meseci #22
Option Explicit treba da ostavis, to sluzi da te VB obavesti kad zaboravis da deklarises neku promenljivu. Na osnovu ovoga sto si sad naveo izgleda mi kao da si zaboravio u ovoj proceduri koja ti pravi problem da napunis niz varKriterijumi, tj. kao da si zaboravio ovu liniju koda:
Code:

varKriterijumi = 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)
Re: ProgressBar i ucitavanje podataka 28.02.2007. u 14:07 · pre 239 meseci #24
Sve sto je moglo da prouzrokuje problem sam te pitao, jedino da te opet zamolim da uploadujes projekat, zajedno sa tom tvojom bazom da bi mogao u test rezimu da vidim sta se desava, lici mi na neki banalan previd, a ovo sto si stavio od koda ocigledno nije dovoljno da otkrijemo problem, tj. problem je u nekom modulu koji nam nisi dao na uvid.

Ako neces da javno objavljujes projekat, posalji mi na mail, pa cu ti resiti problem.
Re: ProgressBar i ucitavanje podataka 28.02.2007. u 14:21 · pre 239 meseci #25
Probaj da zamenis For intCounter = 0 To UBound(varKriterijumi) sa For intCounter = 0 To UBound(varKriterijumi) - 1.
Potpis
Nebojsa Milanovic:
-Trumpa smatram vrhunskim predsednikom i voleo bih da živim u državi na čijem je on čelu
-Rusija ne laže, ne vodi osvajačke ratove
-Trump je svetla tačka u USA blatu
-Elon Musk, možda najpametniji i najtrezveniji Amerikanac
Re: ProgressBar i ucitavanje podataka 28.02.2007. u 14:24 · pre 239 meseci #26
@Shadowed, poenta je da mu radi procedura za sve clanove niza, a ne da preskace poslednjeg clana. Mozda mu nece javljati gresku, ali nije to problem ovde.
Re: ProgressBar i ucitavanje podataka 28.02.2007. u 16:21 · pre 239 meseci #28
Ma, ja se vise i ne secam kako tacno 6ica radi sa indeksima. Em su se namenjali toga kasnije em na raznim mestima se srecu razni nacini indeksiranja. zato sam mu rekao da proba pa bi se videlo da li je to u pitanju.
Potpis
Nebojsa Milanovic:
-Trumpa smatram vrhunskim predsednikom i voleo bih da živim u državi na čijem je on čelu
-Rusija ne laže, ne vodi osvajačke ratove
-Trump je svetla tačka u USA blatu
-Elon Musk, možda najpametniji i najtrezveniji Amerikanac
Re: ProgressBar i ucitavanje podataka 28.02.2007. u 17:23 · pre 239 meseci #29
A koji deo koda u liniji gde javlja gresku ti debugger markira, kada odes na debug mode? Mislim na momenat kada ti VB javi gresku, pa ti onda kazes OK, pa onda VB obelezi deo programskog koda koji je problem - da opet malo banalizujem.

Ovo je bitno, jer ako ti obelezi Form4 onda je tamo problem, a ne ovde.
Re: ProgressBar i ucitavanje podataka 28.02.2007. u 17:56 · pre 239 meseci #30
Obelezi ovu liniju
Code:
Form4.Controls("Label" & (intCounter + 1)).Caption = Broj(varKriterijumi(intCounter))
Re: ProgressBar i ucitavanje podataka 28.02.2007. u 17:57 · pre 239 meseci #31
Obelezi ceo red (markira drugom bojom)?

Hajde molim te, kopiraj kompletan kod sa forme na kojoj se javlja ova greska i stavi ga ovde (kad vec neces ni da uploadujes, ni da saljes), ali odmah, jer nemam posle vremena.
Re: ProgressBar i ucitavanje podataka 28.02.2007. u 18:16 · pre 239 meseci #34
Iz prethodne tvoje poruke mi je bila prikazan samo prvi red, pa sam ti zato tako odgovorio.
Sto se tice koda stvarno je prevelik, videcu kad malo sredim da ti posaljem.
Re: ProgressBar i ucitavanje podataka 28.02.2007. u 22:11 · pre 239 meseci #36
@goranvuc
Covece veruj mi da imam veliku zelju da ovaj program napravim. Verovatno od te prevelike zelje ne mogu u celini ni da ga uploadujem niti da ga posaljem.
Ovo sada nije nikakva isprika, posto sam naveo pravi razlog ako ga prihvatas, ali racunar mi je skroz poludeo poceo ja da brlja.
Interesuje me da li si mi slao neku privatnu poruku posto imam 2 registrovane, istog sadrzaja kao i tvoji odgovori na forumu.
Pojavio mi se i neki trojanac, pa mislim da je to uzrok svih ovih problema (ISAM, Error 9).
Resio sam da formatiram hard disk pa onda da vidim sta ce biti.
Re: ProgressBar i ucitavanje podataka 03.03.2007. u 21:37 · pre 239 meseci #37
@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
Odgovori
Prijavite se da biste odgovorili u ovoj temi.PrijavaRegistracija

Premeštanje teme