Dim Rs1
Dim Rs2
Dim DB As Database
Set Tekst = New Stream
Tekst.Open
Tekst.Position = 0
Tekst.Charset = "UTF-8"
Tekst.WriteText "<?xml version=""1.0"" encoding=""UTF-8"" standalone=""yes""?>" & vbCrLf

Tekst.WriteText "<PaketniUvozObrazaca xmlns='urn:PaketniUvozObrazaca_V1_0.xsd'>" & vbCrLf
'Tekst.WriteText "<" & "PaketniUvozObrazaca" & ">" & vbCrLf

Tekst.WriteText "<" & "PodaciOPoslodavcu" & ">" & vbCrLf
Tekst.WriteText "<JIBPoslodavca>" & "" & DLookup("FirMB", "tblFirma") & "" & "</JIBPoslodavca>" & vbCrLf
Tekst.WriteText "<NazivPoslodavca>" & "" & DLookup("FirNaziv", "tblFirma") & "" & "</NazivPoslodavca>" & vbCrLf
Tekst.WriteText "<BrojZahtjeva>" & "" & "" & DLookup("CountOfSifra", "QryBrojDjelUkupno") & "" & "</BrojZahtjeva>" & vbCrLf
Tekst.WriteText "<DatumPodnosenja>" & "" & Me.DatumIsplate & "" & "</DatumPodnosenja>" & vbCrLf

Tekst.WriteText "</" & "PodaciOPoslodavcu" & ">" & vbCrLf
Set DB = CurrentDb()
Set Rs1 = DB.OpenRecordset("Select distinct sifra  FROM qry1022XML", dbOpenDynaset)
'Set Rs1 = Db.OpenRecordset("Select * FROM qry1022XML")
    Do While Not Rs1.EOF

Tekst.WriteText "<" & "Obrazac1022" & ">" & vbCrLf

Tekst.WriteText "<" & "Dio1PodaciOPoslodavcuIPoreznomObvezniku" & ">" & vbCrLf
Tekst.WriteText "<JIBJMBPoslodavca>" & "" & DLookup("FirMB", "1qry", "Sifra='" & Rs1!Sifra & "'") & "" & "</JIBJMBPoslodavca>" & vbCrLf
Tekst.WriteText "<Naziv>" & "" & DLookup("FirNaziv", "1qry", "Sifra='" & Rs1!Sifra & "'") & "" & "</Naziv>" & vbCrLf
Tekst.WriteText "<AdresaSjedista>" & "" & DLookup("FirAdresa", "1qry", "Sifra='" & Rs1!Sifra & "'") & "" & "</AdresaSjedista>" & vbCrLf
Tekst.WriteText "<JMBZaposlenika>" & "" & DLookup("Jmbg", "1qry", "Sifra='" & Rs1!Sifra & "'") & "" & "</JMBZaposlenika>" & vbCrLf
Tekst.WriteText "<ImeIPrezime>" & "" & DLookup("IMEPREZIME", "1qry", "Sifra='" & Rs1!Sifra & "'") & "" & "</ImeIPrezime>" & vbCrLf
Tekst.WriteText "<AdresaPrebivalista>" & "" & DLookup("Adresa", "1qry", "Sifra='" & Rs1!Sifra & "'") & "" & "</AdresaPrebivalista>" & vbCrLf
Tekst.WriteText "<PoreznaGodina>" & "" & Me.Text10 & "" & "</PoreznaGodina>" & vbCrLf
Tekst.WriteText "</" & "Dio1PodaciOPoslodavcuIPoreznomObvezniku" & ">" & vbCrLf
Tekst.WriteText "<" & "Dio2PodaciOPrihodimaDoprinosimaIPorezu" & ">" & vbCrLf
Set DB = CurrentDb()
    Set Rs2 = DB.OpenRecordset("SELECT * FROM qryIspisGIP1022XML WHERE sifra='" & Rs1!Sifra & "' order by Mjesec")
    Do While Not Rs2.EOF

 
 
 Tekst.WriteText "<" & "PodaciOPrihodimaDoprinosimaIPorezu" & ">" & vbCrLf
 
 Tekst.WriteText "<Mjesec>" & "" & Rs2!Mjesec & "" & "</Mjesec>" & vbCrLf
 Tekst.WriteText "<IsplataZaMjesecIGodinu>" & "" & Rs2!IsplataZaMjesecIGodinu & "" & "</IsplataZaMjesecIGodinu>" & vbCrLf
 Tekst.WriteText "<VrstaIsplate>" & "" & Rs2!VrstaIsplate & "" & "</VrstaIsplate>" & vbCrLf
 Tekst.WriteText "<IznosPrihodaUNovcu>" & "" & Rs2!IznosPrihodaUNovcuSAD & "" & "</IznosPrihodaUNovcu>" & vbCrLf
 Tekst.WriteText "<IznosPrihodaUStvarimaUslugama>" & "" & Rs2!IznosPrihodaUSTVSAD & "" & "</IznosPrihodaUStvarimaUslugama>" & vbCrLf
 Tekst.WriteText "<BrutoPlaca>" & "" & Rs2!BrutoPlacaSAD & "" & "</BrutoPlaca>" & vbCrLf
 Tekst.WriteText "<IznosZaPenzijskoInvalidskoOsiguranje>" & "" & Rs2!IznosZaPenzijskoInvalidskoOsiguranjeSAD & "" & "</IznosZaPenzijskoInvalidskoOsiguranje>" & vbCrLf
 Tekst.WriteText "<IznosZaZdravstvenoOsiguranje>" & "" & Rs2!IznosZaZdravstvenoOsiguranjeSAD & "" & "</IznosZaZdravstvenoOsiguranje>" & vbCrLf
 Tekst.WriteText "<IznosZaOsiguranjeOdNezaposlenosti>" & "" & Rs2!IznosZaOsiguranjeOdNezaposlenostiSAD & "" & "</IznosZaOsiguranjeOdNezaposlenosti>" & vbCrLf
 Tekst.WriteText "<UkupniDoprinosi>" & "" & Rs2!UkupniDoprinosiSAD & "" & "</UkupniDoprinosi>" & vbCrLf
 Tekst.WriteText "<PlacaBezDoprinosa>" & "" & Rs2!PlacaBezDoprinosaSAD & "" & "</PlacaBezDoprinosa>" & vbCrLf
 Tekst.WriteText "<FaktorLicnihOdbitakaPremaPoreznojKartici>" & "" & Rs2!FaktorLicnihOdbitakaPremaPoreznojKarticiSAD & "" & "</FaktorLicnihOdbitakaPremaPoreznojKartici>" & vbCrLf
 Tekst.WriteText "<IznosLicnogOdbitka>" & "" & Rs2!IznosLicnogOdbitkaSAD & "" & "</IznosLicnogOdbitka>" & vbCrLf
 Tekst.WriteText "<OsnovicaPoreza>" & "" & Rs2!OsnovicaPorezaSAD & "" & "</OsnovicaPoreza>" & vbCrLf
 Tekst.WriteText "<IznosUplacenogPoreza>" & "" & Rs2!IznosUplacenogPorezaSAD & "" & "</IznosUplacenogPoreza>" & vbCrLf
 Tekst.WriteText "<NetoPlaca>" & "" & Rs2!NetoPlacaSAD & "" & "</NetoPlaca>" & vbCrLf
 Tekst.WriteText "<DatumUplate>" & "" & Rs2!DatumUplate & "" & "</DatumUplate>" & vbCrLf
 
 Tekst.WriteText "</" & "PodaciOPrihodimaDoprinosimaIPorezu" & ">" & vbCrLf
 Rs2.MoveNext

    Loop
     Rs2.Close
 Tekst.WriteText "<" & "Ukupno" & ">" & vbCrLf

 Tekst.WriteText "<IznosPrihodaUNovcu>" & "" & DLookup("IznosPrihodaUNovcuSAD", "qryIspisGIP1022UKUPNOXML", "sifra='" & Rs1!Sifra & "'") & "" & "</IznosPrihodaUNovcu>" & vbCrLf
 Tekst.WriteText "<IznosPrihodaUStvarimaUslugama>" & "" & DLookup("IznosPrihodaUSTVSAD", "qryIspisGIP1022UKUPNOXML", "sifra='" & Rs1!Sifra & "'") & "" & "</IznosPrihodaUStvarimaUslugama>" & vbCrLf
 Tekst.WriteText "<BrutoPlaca>" & "" & DLookup("BrutoPlacaSAD", "qryIspisGIP1022UKUPNOXML", "sifra='" & Rs1!Sifra & "'") & "" & "</BrutoPlaca>" & vbCrLf
 Tekst.WriteText "<IznosZaPenzijskoInvalidskoOsiguranje>" & "" & DLookup("IznosZaPenzijskoInvalidskoOsiguranjeSAD", "qryIspisGIP1022UKUPNOXML", "sifra='" & Rs1!Sifra & "'") & "" & "</IznosZaPenzijskoInvalidskoOsiguranje>" & vbCrLf
 Tekst.WriteText "<IznosZaZdravstvenoOsiguranje>" & "" & DLookup("IznosZaZdravstvenoOsiguranjeSAD", "qryIspisGIP1022UKUPNOXML", "sifra='" & Rs1!Sifra & "'") & "" & "</IznosZaZdravstvenoOsiguranje>" & vbCrLf
 Tekst.WriteText "<IznosZaOsiguranjeOdNezaposlenosti>" & "" & DLookup("IznosZaOsiguranjeOdNezaposlenostiSAD", "qryIspisGIP1022UKUPNOXML", "sifra='" & Rs1!Sifra & "'") & "" & "</IznosZaOsiguranjeOdNezaposlenosti>" & vbCrLf
 Tekst.WriteText "<UkupniDoprinosi>" & "" & DLookup("UkupniDoprinosiSAD", "qryIspisGIP1022UKUPNOXML", "sifra='" & Rs1!Sifra & "'") & "" & "</UkupniDoprinosi>" & vbCrLf
 Tekst.WriteText "<PlacaBezDoprinosa>" & "" & DLookup("PlacaBezDoprinosaSAD", "qryIspisGIP1022UKUPNOXML", "sifra='" & Rs1!Sifra & "'") & "" & "</PlacaBezDoprinosa>" & vbCrLf
 Tekst.WriteText "<IznosLicnogOdbitka>" & "" & DLookup("IznosLicnogOdbitkaSAD", "qryIspisGIP1022UKUPNOXML", "sifra='" & Rs1!Sifra & "'") & "" & "</IznosLicnogOdbitka>" & vbCrLf
 Tekst.WriteText "<OsnovicaPoreza>" & "" & DLookup("OsnovicaPorezaSAD", "qryIspisGIP1022UKUPNOXML", "sifra='" & Rs1!Sifra & "'") & "" & "</OsnovicaPoreza>" & vbCrLf
 Tekst.WriteText "<IznosUplacenogPoreza>" & "" & DLookup("IznosUplacenogPorezaSAD", "qryIspisGIP1022UKUPNOXML", "sifra='" & Rs1!Sifra & "'") & "" & "</IznosUplacenogPoreza>" & vbCrLf
 Tekst.WriteText "<NetoPlaca>" & "" & DLookup("NetoPlacaSAD", "qryIspisGIP1022UKUPNOXML", "sifra='" & Rs1!Sifra & "'") & "" & "</NetoPlaca>" & vbCrLf
 
 Tekst.WriteText "</" & "Ukupno" & ">" & vbCrLf
 Tekst.WriteText "</" & "Dio2PodaciOPrihodimaDoprinosimaIPorezu" & ">" & vbCrLf
 
 Tekst.WriteText "<" & "Dio3IzjavaPoslodavcaIsplatioca" & ">" & vbCrLf
 Tekst.WriteText "<JIBJMBPoslodavca>" & "" & DLookup("FirMB", "tblFirma") & "" & "</JIBJMBPoslodavca>" & vbCrLf
 Tekst.WriteText "<DatumUnosa>" & "" & Me.DatumIsplate & "" & "</DatumUnosa>" & vbCrLf
 Tekst.WriteText "<NazivPoslodavca>" & "" & DLookup("FirNaziv", "tblFirma") & "" & "</NazivPoslodavca>" & vbCrLf
 Tekst.WriteText "</" & "Dio3IzjavaPoslodavcaIsplatioca" & ">" & vbCrLf
 
 Tekst.WriteText "<" & "Dokument" & ">" & vbCrLf
 Tekst.WriteText "<Operacija>" & "" & "Novi" & "" & "</Operacija>" & vbCrLf
 Tekst.WriteText "</" & "Dokument" & ">" & vbCrLf
 
Tekst.WriteText "</" & "Obrazac1022" & ">" & vbCrLf
Rs1.MoveNext
Loop
'Tekst.WriteText "</" & "SpecifikacijaZahtjevaZaIzdavanjePorezneKartice" & ">" & vbCrLf
Rs1.Close

Tekst.WriteText "</" & "PaketniUvozObrazaca" & ">" & vbCrLf
Set DB = Nothing
Tekst.SaveToFile "C:\GIP1022\" & DLookup("FirMB", "tblFirma") & ".xml", adSaveCreateOverWrite
 Tekst.Close