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.