Centar za edukaciju-BiH

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


Prosiri i skupi Opcije teme
Stranice (1):1
 Prikazi prvu neprocitanu poruku

#1 21.08.2011 21:24
EmirSuvalic Van mreze
Clan
Registrovan od:19.07.2011
Postovi:25


Predmet:Compile error: Do Without loop
Uz pomoć koda koji sam naÅ¡ao na ovoj stranici ja sam ga malo prepravio da meni odgovora ali mi sada izbacuje greÅ¡ku kao u nazivu:
PreuzmiIzvorni kôd (Text):
  1. Function ExportXML()
  2. Dim Db As Database
  3. Dim Rs1 As Recordset, Rs2 As Recordset, Rs3 As Recordset, Rs4 As Recordset, Rs5 As Recordset, Rs6 As Recordset
  4. Dim IDbroj As String, Naziv As String, Adresa As String, PostanskiBroj As String, Grad As String
  5. Dim Sifra As String, JM As String, Cijena As String, Stopa As String, Kolicina As String, Rabat As String, Oznaka As String, Iznos As String
  6. Dim Naslov As String, Tekst
  7. Dim sp, jp, np As String
  8. Dim ap, ip, az, jz, osn, br As String
  9. Dim ImetabeleXML As String, ImeTabeleBaze As String, ImePoljaXML As String, ImePoljaBaze As String, Parent As Integer
  10. Dim ID As Integer, ID1 As String, ID2 As Integer, ID1N As String, ID2N As String
  11. Dim SQL As String, X As Integer
  12.  
  13. Set Db = CurrentDb()
  14. Close #1
  15. Open Db_Putanja & "Export.xml" For Output As #1
  16. Naslov = "<?xml version='1.0' encoding='UTF-8'?>"
  17. Print #1, Naslov
  18. Naslov = "<RacunZahtjev xmlns:xsi='http://www.w3.org/2001/XMLSchema-instance' xmlns:xsd='http://www.w3.org/2001/XMLSchema'>"
  19. Print #1, Naslov
  20. Set Rs1 = Db.OpenRecordset("Select* FROM RacunZahtjev")
  21. Set Rs2 = Db.OpenRecordset("Select* FROM NoviObjekat")
  22.  
  23. sp = Rs1!BrojZahtjeva
  24. np = Rs1!VrstaZahtjeva
  25. jp = Rs2!Datum
  26. br = Rs2!BrojRacuna
  27.  
  28. Tekst = "<BrojZahtjeva>" & sp & "</BrojZahtjeva>"
  29. Print #1, Tekst
  30. Tekst = "<VrstaZahtjeva>" & np & "</VrstaZahtjeva>"
  31. Print #1, Tekst
  32. Tekst = "<NoviObjekat>"
  33. Print #1, Tekst
  34. Tekst = "<Datum>" & Format(Now(), "#YYYY-MM-DDTHH:MM:SS#") & "</Datum>"
  35.  
  36. Set Rs3 = Db.OpenRecordset("Select* FROM Kupac")
  37. IDbroj = Rs3!IDbroj
  38. Naziv = Rs3!Naziv
  39. Adresa = Rs3!Adresa
  40. PostanskiBroj = Rs3!PostanskiBroj
  41. Grad = Rs3!Grad
  42. Do While Not Kupac.EOF
  43. Tekst = "<Kupac>"
  44. Print #1, Tekst
  45. Tekst = "<IDbroj>" & IDbroj & "</IDbroj>"
  46. Print #1, Tekst
  47. Tekst = "<Naziv>" & Naziv & "</Naziv>"
  48. Print #1, Tekst
  49. Tekst = "<Adresa>" & Adresa & "</Adresa>"
  50. Print #1, Tekst
  51. Tekst = "<PostanskiBroj>" & PostanskiBroj & "</PostanskiBroj>"
  52. Print #1, Tekst
  53. Tekst = "<Grad>" & Grad & "</Grad>"
  54. Print #1, Tekst
  55. Tekst = "</Kupac>"
  56. Print #1, Tekst
  57. Set Rs4 = Db.OpenRecordset("Select* FROM artikal")
  58. Set Rs5 = Db.OpenRecordset("Select* FROM RacunStavka")
  59. Sifra = Rs4!Sifra
  60. Naziv = Rs4!Naziv
  61. JM = Rs4!JM
  62. Cijena = Rs4!Cijena
  63. Stopa = Rs4!Stopa
  64. Kolicina = Rs5!Kolicina
  65. Rabat = Rs5!Rabat
  66. Do While Not artikal.EOF
  67. Tekst = "<StavkeRacuna>"
  68. Print #1, Tekst
  69. Tekst = "<RacunStavka>"
  70. Print #1, Tekst
  71. Tekst = "<artikal>"
  72. Print #1, Tekst
  73. Tekst = "<Sifra>" & Sifra & "</Sifra>"
  74. Print #1, Tekst
  75. Tekst = "<Naziv>" & Naziv & "</Naziv>"
  76. Print #1, Tekst
  77. Tekst = "<JM>" & JM & "</JM>"
  78. Print #1, Tekst
  79. Tekst = "<Cijena>" & Cijena & "</Cijena>"
  80. Print #1, Tekst
  81. Tekst = "<Stopa>" & Stopa & "</Stopa>"
  82. Print #1, Tekst
  83. Tekst = "</artikal>"
  84. Print #1, Tekst
  85. Tekst = "<Kolicina>" & Kolicina & "</Kolicina>"
  86. Print #1, Tekst
  87. Tekst = "<Rabat>" & Rabat & "</Rabat>"
  88. Print #1, Tekst
  89. Tekst = "</RacunStavka>"
  90. Print #1, Tekst
  91. Tekst = "</StavkeRacuna>"
  92. Print #1, Tekst
  93. Set Rs6 = Db.OpenRecordset("Select* FROM VrstaPlacanja")
  94. Oznaka = Rs6!Oznaka
  95. Iznos = Rs6!Iznos
  96. Do While Not VrstaPlacanja.EOF
  97. Tekst = "<VrstePlacanja>"
  98. Print #1, Tekst
  99. Tekst = "<VrstaPlacanja>"
  100. Print #1, Tekst
  101. Tekst = "<Oznaka>" & Oznaka & "</Oznaka>"
  102. Print #1, Tekst
  103. Tekst = "<Iznos>" & Iznos & "</Iznos>"
  104. Print #1, Tekst
  105. Tekst = "</VrstaPlacanja>"
  106. Print #1, Tekst
  107. Tekst = "</VrstePlacanja>"
  108. Print #1, Tekst
  109. Tekst = "<BrojRacuna>" & br & "</BrojRacuna>"
  110. Print #1, Tekst
  111. Tekst = "</NoviObjekat>"
  112. Print #1, Tekst
  113. Tekst = "</RacunZahtjev>"
  114. Print #1, Tekst
  115. Tekst.SaveToFile "C:\stampatifiskalniracun.xml", adSaveCreateOverWrite
  116. Loop
  117.  
  118.  
  119. End Function
↑  ↓

#2 21.08.2011 21:37
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,642


Predmet:Re: Compile error: Do Without loop
Ako mozes napisati na koji red se pozicionira kada napravi gresku odnosno u kojem je redu greska da ne citam cio kod.
Podrska samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

#3 21.08.2011 21:42
EmirSuvalic Van mreze
Clan
Registrovan od:19.07.2011
Postovi:25


Predmet:Re: Compile error: Do Without loop
Nije problem na zadnjoj linij END Function
↑  ↓

#4 21.08.2011 21:56
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,642


Predmet:Re: Compile error: Do Without loop
Imas dvije doo petlje a samo si jednu zatvorio sa loop.
Napisao si:
Do While Not Kupac.EOF

Kupac nije rekordest
Trebalo bi vjerovatno:
Do While Not Rs3.EOF

'Izmedju kod
rs3.MoveNext ' Ovo ide da pi se pomakao na sledeci red incae doo petlja ce vrtiti samo jedan red i nece nikad zavrsiti
loop

Nemam tvoje tabele pa nemogu isprobati.
Probaj ovo popraviti pa ako ne uspijes stavi cijelu bazu i opisi odakle sta trebas da iscitas.
Podrska samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

#5 21.08.2011 21:59
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,642


Predmet:Re: Compile error: Do Without loop
Opsti oblik doo petlhe:
Do While Not rs.EOF 'rs-je recordset a ne polje
'Znaci ime steovanog rekordseta tj. tabele ili query-a podignutog u memoriju sa opcijom set rs=itd.
rs.MoveNext ' Pomijera jedan red naprijed
loop Izlaz kada nema vise redova odnosno kada bude Not kao sto je napisano u zaglavlju petlje not.eof(Broj dok ima)
Podrska samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

#6 21.08.2011 23:10
EmirSuvalic Van mreze
Clan
Registrovan od:19.07.2011
Postovi:25


Predmet:Re: Compile error: Do Without loop
Evo u prilogu je kompletna baza! Nisam uspio najbolje to skontati!

Prilozi:
Informacije o tipu datoteke za:rar  Fiskal.rar
Preuzimanja:341
Velicina datoteke:27.72 KB

↑  ↓

#7 21.08.2011 23:25
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,642


Predmet:Re: Compile error: Do Without loop
Pogledao sam ovo tvoje.
Ja ti mogu napraviti proceduru ukoliko:
1.Unsesas bar nekoliko stavki u tabele
2. Napises XML kod za taj racun da ja vidim sta zelis da izvedes.

Ovdje iz ovog tvog koda se to nemoze cidjeti jer ako se ovako napravi stampat ce sve racune.
Nedostaju uslovi u select upitu.
Podrska samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

#8 21.08.2011 23:36
EmirSuvalic Van mreze
Clan
Registrovan od:19.07.2011
Postovi:25


Predmet:Re: Compile error: Do Without loop
Ja sam to radio po ovom primjeru

PreuzmiIzvorni kôd (Text):
  1. <?xml version="1.0" encoding="utf-8" ?>
  2. - <RacunZahtjev xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema">
  3.   <BrojZahtjeva>233</BrojZahtjeva>
  4.   <VrstaZahtjeva>0</VrstaZahtjeva>
  5. - <NoviObjekat>
  6.   <Datum>0001-01-01T00:00:00</Datum>
  7. - <Kupac>
  8.   <IDbroj>4209694660003</IDbroj>
  9.   <Naziv>Tring d.o.o.</Naziv>
  10.   <Adresa>Mehmeda Vehbi ef. Semsekadica bb</Adresa>
  11.   <PostanskiBroj>75320</PostanskiBroj>
  12.   <Grad>Gracanica</Grad>
  13.   </Kupac>
  14. - <StavkeRacuna>
  15. - <RacunStavka>
  16. - <artikal>
  17.   <Sifra>1</Sifra>
  18.   <Naziv>ZVAKA EXTRA pa</Naziv>
  19.   <JM />
  20.   <Cijena>2.5</Cijena>
  21.   <Stopa>E</Stopa>
  22.   </artikal>
  23.   <Kolicina>10</Kolicina>
  24.   <Rabat>10</Rabat>
  25.   </RacunStavka>
  26. - <RacunStavka>
  27. - <artikal>
  28.   <Sifra>2</Sifra>
  29.   <Naziv>Sesir</Naziv>
  30.   <JM />
  31.   <Cijena>0.5</Cijena>
  32.   <Stopa>E</Stopa>
  33.   </artikal>
  34.   <Kolicina>10</Kolicina>
  35.   <Rabat>0</Rabat>
  36.   </RacunStavka>
  37. - <RacunStavka>
  38. - <artikal>
  39.   <Sifra>3</Sifra>
  40.   <Naziv>JUGO 45</Naziv>
  41.   <JM />
  42.   <Cijena>100000</Cijena>
  43.   <Stopa>E</Stopa>
  44.   </artikal>
  45.   <Kolicina>5</Kolicina>
  46.   <Rabat>5.55</Rabat>
  47.   </RacunStavka>
  48.   </StavkeRacuna>
  49. - <VrstePlacanja>
  50. - <VrstaPlacanja>
  51.   <Oznaka>Gotovina</Oznaka>
  52.   <Iznos>1500</Iznos>
  53.   </VrstaPlacanja>
  54. - <VrstaPlacanja>
  55.   <Oznaka>Virman</Oznaka>
  56.   <Iznos>2000</Iznos>
  57.   </VrstaPlacanja>
  58. - <VrstaPlacanja>
  59.   <Oznaka>Cek</Oznaka>
  60.   <Iznos>3000</Iznos>
  61.   </VrstaPlacanja>
  62. - <VrstaPlacanja>
  63.   <Oznaka>Kartica</Oznaka>
  64.   <Iznos>0</Iznos>
  65.   </VrstaPlacanja>
  66.   </VrstePlacanja>
  67.   <BrojRacuna>233</BrojRacuna>
  68.   </NoviObjekat>
  69.   </RacunZahtjev>

A u prilogu je i tabela sa podatcima

Prilozi:
Informacije o tipu datoteke za:rar  Fiskal.rar
Preuzimanja:342
Velicina datoteke:27.93 KB

↑  ↓

#9 22.08.2011 00:05
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,642


Predmet:Re: Compile error: Do Without loop
Evo ovako:
Tabela artikal
Vjerovatno bi trebala biti kodna tabela artikala.
Ona je uredu stim sto siofra mora biti primarni kljuc.
Tabela Kupac.
Isto vazi i zanju IdBroj morao bi biti primarni lkjuc ili dodati neko polje autonumber kao primarni kljuc ali nema potrebe.
Id broj je dobar kao primarni kljuc.
Tabela VrstaPlacanja je isto tako kodna tablea i treba da sadrzi polja:
-Id kao primarni kljuc.
-Oznaka kako si naveo a to je opis vrste placanja
Polje iznos netreba.
Tabela NoviObjekat kako si je ti nazvao a to je tabela koja treba da sadrzi podatke o racunu.
Trebaju Polja:
Id autonumber
brojRacuna- Njega vec imas
IdNacinPlacanja-Preneseni kljuc iz tabele nacinplacanja
IdBrojKupca- Preneseni kljuc iz tabele kupci
DatumRacuna
Storno- opciono ako hoces da mozes stornirati racun

Tabela RacunStavka kako si je nazvao treba da sadrzi:
RacunID- Preneseni kljuc iz tabele racuni
ArtikalID- Preneseni kljuc iz tabele artikala
NazivArt
JM-Jedinica mjere
Kolicina
Cijena
Rabat
Stopa

tabela RacunZahtjev neznam cemu sluzi.
Nisam rekao da netreba ali neznam od koga dolazi taj zahtjev ako dolazi.
Po meni postoji neko ko izdaje zahtjev za iozdavanje racuna.

Eto to bi bilo to ako zelis da se dalje igras naravno i naucis nesto a i napravis nesto korisno.
Ti imas ovdje na forumu niz ovih primjera odnosno tabela.
Vjerovatno ti hoces da napravis svoje.

da bi mogao to napraviti moras imati tabele koje ce medju sobom biti vezane radi identifikacije podataka odnosno da znas koji podatak kojem racunu pripada.
Sretan rad.
Podrska samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

Stranice (1):1

Srodne teme

Ko je online?

Aktivni clanovi:
nema clanova


Kontakt
Sva vremena su GMT +01:00. Trenutno vrijeme: 1: 59 am.