[es] - Compile error: Do without loop

EmirSuvalic
Student FIT
Mostar, BiH

Član broj: 279359
Poruke: 23
*.PPPoE-4861.sa.bih.net.ba.

Profil

^{21.08.2011. u 21:19 - pre 154 meseci}

Uz predložak koda ja sam ga sebi prilagodio ali mi sada izbaciju grešku kao u naslovu pa ako može mala pomoć.

Evo koda:

Code:
Function ExportXML()
Dim Db As Database
Dim Rs1 As Recordset, Rs2 As Recordset, Rs3 As Recordset, Rs4 As Recordset, Rs5 As Recordset, Rs6 As Recordset
Dim IDbroj As String, Naziv As String, Adresa As String, PostanskiBroj As String, Grad As String
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
Dim Naslov As String, Tekst
Dim sp, jp, np As String
Dim ap, ip, az, jz, osn, br As String
Dim ImetabeleXML As String, ImeTabeleBaze As String, ImePoljaXML As String, ImePoljaBaze As String, Parent As Integer
Dim ID As Integer, ID1 As String, ID2 As Integer, ID1N As String, ID2N As String
Dim SQL As String, X As Integer

Set Db = CurrentDb()
Close #1
Open Db_Putanja & "Export.xml" For Output As #1
Naslov = "<?xml version='1.0' encoding='UTF-8'?>"
Print #1, Naslov
Naslov = "<RacunZahtjev xmlns:xsi='http://www.w3.org/2001/XMLSchema-instance' xmlns:xsd='http://www.w3.org/2001/XMLSchema'>"
Print #1, Naslov
Set Rs1 = Db.OpenRecordset("Select* FROM RacunZahtjev")
Set Rs2 = Db.OpenRecordset("Select* FROM NoviObjekat")

sp = Rs1!BrojZahtjeva
np = Rs1!VrstaZahtjeva
jp = Rs2!Datum
br = Rs2!BrojRacuna

Tekst = "<BrojZahtjeva>" & sp & "</BrojZahtjeva>"
Print #1, Tekst
Tekst = "<VrstaZahtjeva>" & np & "</VrstaZahtjeva>"
Print #1, Tekst
Tekst = "<NoviObjekat>"
Print #1, Tekst
Tekst = "<Datum>" & Format(Now(), "#YYYY-MM-DDTHH:MM:SS#") & "</Datum>"

Set Rs3 = Db.OpenRecordset("Select* FROM Kupac")
IDbroj = Rs3!IDbroj
Naziv = Rs3!Naziv
Adresa = Rs3!Adresa
PostanskiBroj = Rs3!PostanskiBroj
Grad = Rs3!Grad
Do While Not Kupac.EOF
Tekst = "<Kupac>"
Print #1, Tekst
Tekst = "<IDbroj>" & IDbroj & "</IDbroj>"
Print #1, Tekst
Tekst = "<Naziv>" & Naziv & "</Naziv>"
Print #1, Tekst
Tekst = "<Adresa>" & Adresa & "</Adresa>"
Print #1, Tekst
Tekst = "<PostanskiBroj>" & PostanskiBroj & "</PostanskiBroj>"
Print #1, Tekst
Tekst = "<Grad>" & Grad & "</Grad>"
Print #1, Tekst
Tekst = "</Kupac>"
Print #1, Tekst
Set Rs4 = Db.OpenRecordset("Select* FROM artikal")
Set Rs5 = Db.OpenRecordset("Select* FROM RacunStavka")
Sifra = Rs4!Sifra
Naziv = Rs4!Naziv
JM = Rs4!JM
Cijena = Rs4!Cijena
Stopa = Rs4!Stopa
Kolicina = Rs5!Kolicina
Rabat = Rs5!Rabat
Do While Not artikal.EOF
Tekst = "<StavkeRacuna>"
Print #1, Tekst
Tekst = "<RacunStavka>"
Print #1, Tekst
Tekst = "<artikal>"
Print #1, Tekst
Tekst = "<Sifra>" & Sifra & "</Sifra>"
Print #1, Tekst
Tekst = "<Naziv>" & Naziv & "</Naziv>"
Print #1, Tekst
Tekst = "<JM>" & JM & "</JM>"
Print #1, Tekst
Tekst = "<Cijena>" & Cijena & "</Cijena>"
Print #1, Tekst
Tekst = "<Stopa>" & Stopa & "</Stopa>"
Print #1, Tekst
Tekst = "</artikal>"
Print #1, Tekst
Tekst = "<Kolicina>" & Kolicina & "</Kolicina>"
Print #1, Tekst
Tekst = "<Rabat>" & Rabat & "</Rabat>"
Print #1, Tekst
Tekst = "</RacunStavka>"
Print #1, Tekst
Tekst = "</StavkeRacuna>"
Print #1, Tekst
Set Rs6 = Db.OpenRecordset("Select* FROM VrstaPlacanja")
Oznaka = Rs6!Oznaka
Iznos = Rs6!Iznos
Do While Not VrstaPlacanja.EOF
Tekst = "<VrstePlacanja>"
Print #1, Tekst
Tekst = "<VrstaPlacanja>"
Print #1, Tekst
Tekst = "<Oznaka>" & Oznaka & "</Oznaka>"
Print #1, Tekst
Tekst = "<Iznos>" & Iznos & "</Iznos>"
Print #1, Tekst
Tekst = "</VrstaPlacanja>"
Print #1, Tekst
Tekst = "</VrstePlacanja>"
Print #1, Tekst
Tekst = "<BrojRacuna>" & br & "</BrojRacuna>"
Print #1, Tekst
Tekst = "</NoviObjekat>"
Print #1, Tekst
Tekst = "</RacunZahtjev>"
Print #1, Tekst
Tekst.SaveToFile "C:\stampatifiskalniracun.xml", adSaveCreateOverWrite

End Function

Odgovor na temu