iCentar » Forum » Racunari i oprema » Programirannje i baze podataka » Access

iCentar → Racunari i oprema → Programirannje i baze podataka → Access

Pretrazi
Tim
Registriraj se
Vazni alati
Razno. veze
- Oznaci forume kao procitane
- Smjernice
Aktivne teme ...
- u posljednja 24 sata
- od moje posljednje posjete
Vijesti (RSS, ...)
- RSS 2.0
- RSS 1.0
- OPML
- Klipfolio
- Atom 1.0
Prijavi se

Opcije teme

Stranice (2):1,2

Prikazi prvu neprocitanu poruku

09.02.2013 19:11

pmiroslav

Clan

Registrovan od:02.02.2009
Postovi:1,458

Predmet:Write conflict

Imam potrebu da iz forme dopunim več popunjen rekord u tablici sa par podataka pa sam napisao slijedeći dio koda:

PreuzmiIzvorni kôd (vbnet):

Dim db As Database
Dim rs As DAO.Recordset
Dim SQL As String
Set db = CurrentDb
SQL = "SELECT * FROM tblProdaja WHERE OrderID='" & OrderID & "'"
Set rs = db.OpenRecordset(SQL, dbOpenDynaset)
' neki kod i onda
With rs
.Edit
rs!ZKI = ZKI
rs!JIR = JIR
.Update
End With

međutim kada zatvorim formu iskoči poruka 'Write Conflict'. kako da to rijeÅ¡im

Hvala

Slicice prilozenih slika:

Conflict.jpg
Tip datoteke: Informacije o tipu datoteke za:jpg

jpg
Preuzimanja:357
Velicina datoteke:29.10 KB
Velicina slike: 376 x 180 Pikseli

Pozdrav

09.02.2013 20:34

zxz

Administrator

Registrovan od:03.02.2009
Postovi:10,612

Predmet:Re: Write conflict

Zakaci primjer.

PodrÅ¡ka samo putem foruma, jer samo tako i ostali imaju koristi od toga.

09.02.2013 20:39

pmiroslav

Clan

Registrovan od:02.02.2009
Postovi:1,458

Predmet:Re: Write conflict

Jako je velika baza pa neznam dali ću moći.

Pozdrav

09.02.2013 21:17

pmiroslav

Clan

Registrovan od:02.02.2009
Postovi:1,458

Predmet:Re: Write conflict

Evo kompletan kod i tablica u koju se upisuje.

PreuzmiIzvorni kôd (vbnet):

rivate 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
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)
Select Case Me.Fiskal
Case 0
MsgBox "Ovo nije fiskalni racun"
Exit Sub
Case 1
Dim ZKI
ZKI = IzracunajZki(rs1!OIB, Now, Me.Fiskal, rs1!OznakaPP, "1", Me.Suma)
Dim JIR As String
Dim datumVrijemeIzdavanja As Date
datumVrijemeIzdavanja = Now
JIR = PosaljiRacun(rs1!OIB, datumVrijemeIzdavanja, "P", Me.Fiskal, rs1!OznakaPP, "1", 25, Me.iznos, Me.iznosPDV, Me.Suma, "G", OperatorOIB(), "0")
Me.ZKI = ZKI
Me.JIR = JIR
With rs3
.Edit
rs3!ZKI = ZKI
rs3!JIR = JIR
.Update
End With
rs2.AddNew
rs2!OrderID = Me.OrderID
rs2!FiskalniBroj = Me.FiskalniBroj
rs2!OIB = OperatorOIB()
rs2!ZKI_1 = ZKI
rs2!JIR_1 = JIR
rs2!UUID = o.generirajuuid()
rs2.Update
End Select
Exit_C_Racun_Click:
Exit Sub
Err_C_Racun_Click:
MsgBox err.Description
Resume Exit_C_Racun_Click
End Sub

Prilozi:

PrimjerM.rar
Preuzimanja:358
Velicina datoteke:16.03 KB

Pozdrav

10.02.2013 11:35

zxz

Administrator

Registrovan od:03.02.2009
Postovi:10,612

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.

PodrÅ¡ka samo putem foruma, jer samo tako i ostali imaju koristi od toga.

10.02.2013 18:38

pmiroslav

Clan

Registrovan od:02.02.2009
Postovi:1,458

Predmet:Re: Write conflict

Evo ga primjer sa formom. Kod mene i sa ovim javlja isti pogreÅ¡ku.

Prilozi:

PrimjerM2.rar
Preuzimanja:356
Velicina datoteke:838.97 KB

Pozdrav

10.02.2013 21:11

zxz

Administrator

Registrovan od:03.02.2009
Postovi:10,612

Predmet:Re: Write conflict

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 As String, OznakaPP As String, Operator As String, Fiskal As String, ZKI As String
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 = rs1!OznakaPP
rs1.Close
Operator = "1234567890"
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.Close
'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

Evo probaj sa ovim kodom.

PodrÅ¡ka samo putem foruma, jer samo tako i ostali imaju koristi od toga.

11.02.2013 08:20

pmiroslav

Clan

Registrovan od:02.02.2009
Postovi:1,458

Predmet:Re: Write conflict

Ovo sa
Me.ZKI = ZKI
Me.JIR = JIR
sam prvo probao, ali ni to mi nije u redu jer nakon ovog kod otvaram Report kojem je recordsource 'tblProdaja' u kojem bi trebala biti ta dva podatka oni ne budu upisani.
Tek ako zatvorim formu pa je ponovno otvorim onda se to upiÅ¡e. Probao sam i sa DoCmd.Requery ali to mi opet ne radi kako treba.

Pozdrav

11.02.2013 10:42

zxz

Administrator

Registrovan od:03.02.2009
Postovi:10,612

Predmet:Re: Write conflict

E vidis to nisi rekao.
Odnosno nisi rekao da podizes izvjestaj od ovog rekorda koji naravno nije zapisan.
Zbog toga si vjerovatno ova 2 podatka 2 puta zapisivao i sa rekordsetom a i upisom u rs clone odnosno na formu.
da bi zapisao postojeci rekord sa forme dovoljno je samo dodati:
Me.Dirty = False

Tada ces vidjeti na izvjestaju podatke odnosno oni ce biti upisani.

Interesantno je to da is ovo mogao rijesiti i tako da is ova 2 polja na formi ostavio nevezana odnosno da u control source ne upises nista a da koristis onaj tvoj stari kod.
Vidio bi podatke na formi a u tabelu si ih svakako upisivao sa rs3.

PodrÅ¡ka samo putem foruma, jer samo tako i ostali imaju koristi od toga.

#10

11.02.2013 11:20

pmiroslav

Clan

Registrovan od:02.02.2009
Postovi:1,458

Predmet:Re: Write conflict

Na kojem mjestu u proceduri trebam upisati
Me.Dirty = False

Pozdrav

Stranice (2):1,2

Izvoz

Verzija za stampu

Srodne teme

Ko je online?

Aktivni clanovi:
nema clanova

Razno. veze

Aktivne teme ...

Vijesti (RSS, ...)

Kontakt

Sva vremena su GMT +02:00. Trenutno vrijeme: 12: 50 am.

Centar za edukaciju-BiH

Glavni meni

Forumi

Linkovi

iCentar → Racunari i oprema → Programirannje i baze podataka → Access

Srodne teme

Ko je online?

Prijavi se

Izdvojeno