Predmet:Re: Write conflict
Da si bar jos formu zakacio.
Poruka ti se javlja zbog ovog koda:
Me.ZKI = ZKI
Me.JIR = JIR
Znaci na rs forme unosis podatke a vjerovatno ih mijenjas i sa gore navedenim kodom te posto su jednom vec uneseni pita te sta da radi.
Malo sam ti prepravio i proceduru ali ne zbog toga da bi otklonio gresku nego eto da malo bude urednija.
PreuzmiIzvorni kôd (Visual Basic):Private Sub C_Racun_Click()
On Error GoTo Err_C_Racun_Click
Dim db As Database
Dim rs1 As DAO.Recordset
Dim rs2 As DAO.Recordset
Dim rs3 As DAO.Recordset
Dim SQL As String
Dim o, OIB, OznakaPP, Operator, Fiskal, ZKI
Dim JIR As String
Dim datumVrijemeIzdavanja As Date
Fiskal = Me.Fiskal
If Fiskal = 0 Then
MsgBox "Ovo nije fiskalni racun"
Exit Sub
ElseIf Fiskal = 1 Then
Set db = CurrentDb
Set o = CreateObject("Raverus.FiskalizacijaDEV.COM.CentralniInformacijskiSustav")
SQL = "SELECT * FROM tblProdaja WHERE OrderID='" & OrderID & "'"
Set rs1 = db.OpenRecordset("Q_Firma")
Set rs2 = db.OpenRecordset("tblCis")
Set rs3 = db.OpenRecordset(SQL, dbOpenDynaset)
OIB = rs1!OIB
datumVrijemeIzdavanja = Now
OznakaPP = rs!OznakaPP
rs1.Close
Operator = OperatorOIB()
ZKI = IzracunajZki(OIB, datumVrijemeIzdavanja, Me.Fiskal, OznakaPP, "1", Me.Suma)
JIR = PosaljiRacun(OIB, datumVrijemeIzdavanja, "P", Me.Fiskal, OznakaPP, "1", 25, Me.iznos, Me.iznosPDV, Me.Suma, "G", Operator, "0")
'Upis u rs clone forme
Me.ZKI = ZKI
Me.JIR = JIR
'-------------------
rs3.Edit
rs3!ZKI = ZKI
rs3!JIR = JIR
rs3.Update
'----------------
rs2.AddNew
rs2!OrderID = Me.OrderID
rs2!FiskalniBroj = Me.FiskalniBroj
rs2!OIB = Operator
rs2!ZKI_1 = ZKI
rs2!JIR_1 = JIR
rs2!UUID = o.generirajuuid()
rs2.Update
rs2.slose
rs3.Close
Else
MsgBox "Nije ništa odabrano ili mozda neki drugi tekst"
End If
Exit_C_Racun_Click:
Exit Sub
Err_C_Racun_Click:
MsgBox Err.Description
Resume Exit_C_Racun_Click
End Sub
Variable:
OIB, OznakaPP, Operator, Fiskal, ZKI treba dimenzionisati onako kako su dimenzionisane u tabelama.
Ja to nisam znao pa sam ostavio kao variant.
Podrska samo putem foruma, jer samo tako i ostali imaju koristi od toga.