rstevic Rade Stevic Senior IT Consultant, DBA Database Forum Stavanger, Norway
Član broj: 69135 Poruke: 150 *.vektor.net.
|
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
|