[ rstevic @ 04.06.2008. 10:44 ] @
| Postovana gospodo, Imam jednu for petlju koja upisuje plan otplate u tabelu, posto su u pitanju nekretnine ima i po 360 redova pa to zna da potraje nekoliko sekundi. Hteo bih da za to vreme ide neki Progress bar ali nikako da ubodem dobitnu kombinaciju. Ostavicu ovde deo coda u okviru For petlje koji upisuje te slogove u tabelu pa ako neko moze da mi pomogne bio bih zahvalan. For I = 0 To razlika Broj = 1 + I Preos_Glav1 = DLookup("LastOfPreos_Glavn", "Zadnja_Preost_Glav") Kamata1 = Preos_Glav1 * Kamata Glavnica = rata_Bez_PDV - Kamata1 Preos_Glav = IIf(Preos_Glav1 - Glavnica > 0, Preos_Glav1 - Glavnica, 0) If Broj = 1 Then datum = Prvidat Else datum = DateAdd("m", Broj - 1, Prvidat) End If Set MyDB = CurrentDb() Count = razlika SysCmd acSysCmdInitMeter, "Upisivanje podataka", Count For Progress_Amount = 0 To Count SysCmd acSysCmdUpdateMeter, Progress_Amount Debug.Print????????? ' Ovaj StrSQL vrti rate od 1 do zadnje i upisuje sve ostalo StrSQL = "insert into dbo_Plan_P (ID_Firme, ID_Projekta, ID_Referenta, rata_bez_PDV, Glavnica, Preos_Glavn, Broj_rata, 3M_vrednost, Marza, kamata, mesec, 3M_ID, sifra_kupca, kamata1, Datum)" _ & " values([Forms]![Projekti]![ID_Firme] ," _ & "[Forms]![Projekti]![ID_Projekta] ," _ & "[Forms]![Projekti]![Referent] , " _ & "'" & rata_Bez_PDV & "' ," _ & "'" & Glavnica & "'," _ & "'" & Preos_Glav & "'," _ & "[Forms]![Projekti]![Period] , " _ & "[Forms]![Projekti]![3M] , " _ & "[Forms]![Projekti]![Marza], " _ & "'" & Kamata1 & "', " _ & "'" & Broj & "', " _ & "'" & 0 & "', " _ & "[Forms]![Projekti]![sifra_kupca], " _ & "'" & Kamata & "', " _ & "'" & datum & "');" DoCmd.RunSQL (StrSQL) Next I P.S. @Zidar, ovo je jos jedno resenje koje se moze ponuditi gospodinu koji je pitao kako se generise plan otplate. |