Function Zapisxml()
Dim Putanja As String, Temp As String, XmlFile As String
Dim I As Integer

Const BrojTabela = 5

Putanja = "d:\" 'Putanja zapisa bez imena filea Upis u mem. putanja
'XmlFile = DMin("JIB", "Radnja") & ".xml" ' Ime xml fajla Upis u mem xmlfile
Close #1 'Zatvori sekvencialni fajl 1
Open Putanja & "dd.XML" For Output As 1
Temp = "<PRIJAVA_1002>"
Print #1, Temp
Temp = "<script id=" & Chr(34) & "tinyhippos-injected" & Chr(34) & "/>"
Print #1, Temp
For I = 1 To BrojTabela
ImeTabele = Choose(I, "ZAGLAVLJE", "OBAVEZA", "DL1", "DL3", "DL5")
Temp = "<" & ImeTabele & ">"
Print #1, Temp
TabeleUpis (ImeTabele)
    Temp = "</" & ImeTabele & ">"
    Print #1, Temp
Next I
Temp = "</PRIJAVA_1002>"
Print #1, Temp
Close #1
End Function
Function TabeleUpis(ImeTabele)
Dim Db As Database
Dim Rs As Recordset
Dim I As Integer, FieldsCount As Integer, Start As Integer
Dim Temp As String

Set Db = CurrentDb
Set Rs = Db.OpenRecordset(ImeTabele)
FieldsCount = Rs.Fields.Count - 1
'MsgBox Rs.Fields(0).Name
'Exit Function
If ImeTabele <> "ZAGLAVLJE" Then
Start = 1
End If
Do While Not Rs.EOF
If ImeTabele <> "ZAGLAVLJE" Then
    Temp = "<STAVKA>"
    Print #1, Temp
End If
    For I = Start To FieldsCount - Start
    Temp = "<" & Rs.Fields(I).Name & ">" & Rs.Fields(I).Value & "</" & Rs.Fields(I).Name & ">"
    Print #1, Temp
    Next I
If ImeTabele <> "ZAGLAVLJE" Then
    Temp = "</STAVKA>"
    Print #1, Temp
End If
Rs.MoveNext
Loop
End Function