Notice: Undefined offset: 2 in /home2/icentarb/public_html/icentar/classes/class.permissions.php on line 735
Private Sub com_xml_Click() Dim db As Database Dim rs As Recordset Set db = CurrentDb Set rs = db.OpenRecordset("tblFirma") 'mySQL = "SELECT * FROM tblFirma" 'Set rs = db.OpenRecordset(mySQL) Open "C:\Prodaja\RAC.XML" For Output As 1 Dim Tekst As String Tekst = "" Print #1, Tekst Tekst = "" & "f81d4fae-7dec-11d0-a765-00a0c91e6bf6" & "" Print #1, Tekst Tekst = "" & Now() & "" Print #1, Tekst Tekst = "" Print #1, Tekst Tekst = "" Print #1, Tekst Tekst = "" & rs!OIB & "" Print #1, Tekst Tekst = "" & Now() & "" Print #1, Tekst Tekst = "" & rs!CompanyN