Predmet:Re: gipko 1022

---

Pa da ne pretvaras u UTF i zato nece.
Evo ja sam pretvorio i sve radi.
Zakacit cu ti modul i na kraju koda moras pozvati:
Primjer:
Dim ImeF As String
ImeF = "c:\plata\" & rst2!JMBZaposlenika & "_" & rst2!ImeiPrezime & ".xml"
Open "c:\plata\" & rst2!JMBZaposlenika & "_" & rst2!ImeiPrezime & ".xml" For Output As #1

I na kraju:
MsgBox "Uspješno ste kreirali xml fajl: " & rst2!JMBZaposlenika & ".xml", vbInformation, "Queensland Computer"
MsgBox "Fajl je snimljen u mapu: C:\plata.", vbInformation, "Queensland Computer"
subConvertToUTF8 ImeF

Modul samo kopraj kod sebe negdje.

Prilozi:

---