Prikazi cijelu temu 21.08.2011 22:24
EmirSuvalic Van mreze
Clan
Registrovan od:20.07.2011
Lokacija:-


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