[ rstevic @ 18.06.2008. 08:19 ] @
Postovani, u donjem kodu cete videti da pokusavam da reprogramiram jedan plan placanja i totako sto racunam novu kamatu itd, da sada ne ulazimo u te detalje nebitni su za pitanje. Postavim prekidnu tacku negde u kodu i vidim da sve lepo racuna i radi sve do trenutka kada dodje do naredbe DoCmd.RunSQL (StrSQL) i onda javi gore pomenutu gresku. Ono sto ja mogu da zakljucim greska je negde u sintaksi i to na samom kraju where statementa i to mislim sa promenljivom Broj. Ako je neko u stanju da vidi sta sam pogresio bio bih zahvalan, ja vise nista ne vidim. odgovor = MsgBox("Da li ste sigurni?", vbYesNo, "Potvrda Reprograma") If odgovor = vbYes Then Prvidat = InputBox("Unesite datum prve rate koja treba biti reprogramirana, u formatu dd.mm.yyy", "PRVA RATA") If Trim(Prvidat) = "" Then DoCmd.Close ' If DLookup("Datum_IL", "prodavac", "sifra_prodavca =" & Me.sifra_prodavca) < Date Then 'odgovor1 = MsgBox("Zastupniu je istekla Licenca", vbInformation, "OBAVESTENJE") ' GoTo a End If Novi3M = CDec(InputBox("Unesite novu vrednost za 3M", "NOVI EURIBOR ILI LIBOR")) NovaMarza = CDec(InputBox("Unesite novu marzu za reprogram", "NOVA MARZA")) NovaKamata = (Novi3M + NovaMarza) / 1200 PrvaRata = DLookup("Mesec", "dbo_Plan_P", "ID_Firme=" & Me.ID_Firme & "And ID_Projekta =" & Me.ID_Projekta & "And Datum ='" & Prvidat & "'") Dim StrSQL As String Dim StrSQL1 As String Dim pocetak As Variant, kraj As Variant, razlika As Variant, Broj As Integer, BRRAT As Variant, MMM As Variant Dim rata_Bez_PDV As Variant, DEP As Variant, Kamata As Variant, Kamata1 As Variant, Preos_Glav As Variant Dim Preos_Glav1 As Variant, Preos_Glav2 As Variant, Glavnica As Variant, datum As String, Mes As Variant Kamata = NovaKamata Preos_Glav2 = DLookup("Preos_Glavn", "dbo_Plan_P", "ID_Firme =" & Me.ID_Firme & "And ID_Projekta =" & Me.ID_Projekta & "And Mesec=" & PrvaRata - 1) BRRAT = DLookup("Broj_Rata", "dbo_Plan_P", "Mesec=" & PrvaRata & "And ID_Firme = " & Me.ID_Firme & "And ID_Projekta =" & Me.ID_Projekta) MMM = DLookup("[3M_ID]", "dbo_Plan_P", "ID_Firme =" & Me.ID_Firme & "And ID_Projekta =" & Me.ID_Projekta & "And mesec=" & PrvaRata) rata_Bez_PDV = Round(Pmt(Kamata, BRRAT + 1 - PrvaRata, -1 * Preos_Glav2, , MMM), 2) 'Ovaj StrSQL upisuje vrednost projekta u prvu vrstu ' DoCmd.SetWarnings False ' StrSQL = "insert into dbo_Plan_P (ID_Firme, ID_Projekta, ID_Referenta, Preos_Glavn)" _ ' & " values([Forms]![PROJEKTI]![ID_Firme] ," _ ' & "[Forms]![PROJEKTI]![ID_Projekta] ," _ ' & "[Forms]![PROJEKTI]![Referent] , " _ ' & "[Forms]![PROJEKTI]![Vred_Proj]);" ' DoCmd.RunSQL (StrSQL) ' DoCmd.SetWarnings True ' Ovaj StrSQL upisuje vrednost depozita u polja rata_bez_PDV i Glavnisa a u polje Preostala_Glavnica Finansiranu vrednost. ' DoCmd.SetWarnings False ' StrSQL = "insert into dbo_Plan_P (ID_Firme, ID_Projekta, ID_Referenta, Rata_Bez_PDV, Glavnica, Preos_Glavn)" _ ' & " values([Forms]![PROJEKTI]![ID_Firme] ," _ ' & "[Forms]![PROJEKTI]![ID_Projekta] ," _ ' & "[Forms]![PROJEKTI]![Referent] , " _ ' & "'" & DEP & "', " _ ' & "'" & DEP & "', " _ ' & "[Forms]![PROJEKTI]![Iznos_Finansiranja]);" ' DoCmd.RunSQL (StrSQL) ' DoCmd.SetWarnings True pocetak = PrvaRata kraj = DLookup("Broj_Rata", "dbo_Plan_P", "ID_Firme =" & Me.ID_Firme & "And ID_Projekta =" & Me.ID_Projekta & "And mesec=" & PrvaRata) razlika = kraj - pocetak DoCmd.SetWarnings False For I = pocetak - 1 To razlika Broj = 1 + I Mes = Broj - 1 Preos_Glav1 = DLookup("Preos_Glavn", "dbo_Plan_P", "ID_Firme =" & Me.ID_Firme & "And ID_Projekta =" & Me.ID_Projekta & " And Mesec=" & Mes) Kamata1 = Preos_Glav1 * Kamata 'kamata treba da dobije vrednost Glavnica = rata_Bez_PDV - Kamata1 'rata_Bez_PDV treba da dobije vrednost Preos_Glav = IIf(Preos_Glav1 - Glavnica > 0, Preos_Glav1 - Glavnica, 0) ' Ovaj StrSQL vrti rate od zadate do zadnje i ispravlja podatke vezane za reprogram StrSQL = "update dbo_Plan_P set rata_bez_PDV =" _ & "'" & rata_Bez_PDV & "', Glavnica=" _ & "'" & Glavnica & "', Preos_Glavn=" _ & "'" & Preos_Glav & "', 3M_Vrednost=" _ & "'" & Novi3M & "', Marza=" _ & "'" & NovaMarza & "', kamata=" _ & "'" & Kamata1 & "', kamata1=" _ & "'" & NovaKamata & "'" StrSQL = StrSQL + " where (((dbo_Plan_P.ID_Projekta)= " _ & "[forms]![Plan_Otplate]![ID_Projekta]) " _ & "And ((dbo_Plan_P.ID_Firme)= " _ & "[forms]![Plan_Otplate]![ID_Firme]) " _ & "And ((dbo_Plan_P.Mesec)='" & Broj & "'));" DoCmd.RunSQL (StrSQL) Next I |