Notice: Undefined offset: 2 in /home2/icentarb/public_html/icentar/classes/class.permissions.php on line 735
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 = "" Print #1, Temp End If For I = Start To FieldsCount - Start If Format$(Rs.Fields(I).Value) <> "" Then Temp = "<" & Rs.Fields(I).Name & ">" & Rs.Fields(I).Value & "" Else Temp = "<" & Rs.Fields(I).Name & "/>" End