Trtko Koprivnica
Član broj: 69494 Poruke: 695 87.252.137.*
|
Ja sam si to riješio programski , u biti sve riješavam, fučkaš importe,
ja gazda programa....
no možda bi se to dalo lijepše isprogramirat, al služi svrsi, ovo dolje ti možda da ideju...
Option Compare Database
Option Explicit
Private Sub Command0_Click()
DoCmd.SetWarnings False
DoCmd.OpenQuery "QprepisHZZO"
DoCmd.SetWarnings True
Dim imefile As String
imefile = "C:\prepis\" + Format(Date, "DD") + Format(Date, "MM") + Right(Format(Date, "YY"), 1) + P_Siford + ".TXT"
Dim RS As Recordset, i As Integer, str1 As String
Set RS = CurrentDb.OpenRecordset("TblZaHZZO")
Close #1
Open imefile For Output As #1
Dim s1, s2, s3, s4, s5, s6, s61, s7, s8, s9, s10, s11, s12, s13, s14, s15, s16, s17, s18 As String
Dim s19, s20, s21, s22, s23, s24, s25, s26, s27, s28, s29, s30 As String
str1 = ""
Do While Not RS.EOF
s1 = Trim(Nz(RS.Fields("siford"), " ")) & Space(3 - Len(Trim(Nz(RS.Fields("siford"), " "))))
s2 = Trim(Nz(RS.Fields("jmbg"), " ")) & Space(13 - Len(Trim(Nz(RS.Fields("jmbg"), " "))))
s3 = kodna387(Trim(Nz(RS.Fields("prezime"), " ")) & Space(20 - Len(Trim(Nz(RS.Fields("prezime"), " ")))))
s4 = kodna387(Trim(Nz(RS.Fields("ime"), " ")) & Space(15 - Len(Trim(Nz(RS.Fields("ime"), " ")))))
s5 = Trim(Nz(RS.Fields("brosiguraneosobe"), " ")) & Space(11 - Len(Trim(Nz(RS.Fields("brosiguraneosobe"), " "))))
s6 = Trim(Nz(RS.Fields("matbrosiguranika"), " ")) & Space(9 - Len(Trim(Nz(RS.Fields("matbrosiguranika"), " "))))
s61 = Trim(Nz(RS.Fields("brobveze"), " ")) & Space(11 - Len(Mid(Trim(Nz(RS.Fields("brobveze"), " ")), 1, 11)))
s7 = Trim(Nz(RS.Fields("briskdoposig"), " ")) & Space(8 - Len(Trim(Nz(RS.Fields("briskdoposig"), " "))))
s8 = Trim(Nz(RS.Fields("katosig"), " ")) & Space(3 - Len(Trim(Nz(RS.Fields("katosig"), " "))))
s9 = Trim(Nz(RS.Fields("sifraoslobadjana"), " ")) & Space(2 - Len(Trim(Nz(RS.Fields("sifraoslobadjana"), " "))))
s10 = Trim(Nz(RS.Fields("datuslu"), " ")) & Space(6 - Len(Trim(Nz(RS.Fields("datuslu"), " "))))
s11 = Trim(Nz(RS.Fields("sifrakupca"), " ")) & Space(4 - Len(Trim(Nz(RS.Fields("sifrakupca"), " "))))
s12 = Trim(Nz(RS.Fields("sifmkb"), " ")) & Space(4 - Len(Trim(Nz(RS.Fields("sifmkb"), " "))))
s13 = Trim(Nz(RS.Fields("idusluge"), " ")) & Space(6 - Len(Trim(Nz(RS.Fields("idusluge"), " "))))
s14 = Trim(Nz(RS.Fields("kol"), " ")) & Space(10 - Len(Trim(Nz(RS.Fields("kol"), " "))))
s15 = Trim(Nz(RS.Fields("iznospris"), " ")) & Space(10 - Len(Trim(Nz(RS.Fields("iznospris"), " "))))
s16 = Space(10)
s17 = Space(10)
s18 = Space(20)
s19 = Space(10)
s20 = Space(3)
s21 = Space(1)
s22 = " "
s23 = Space(4)
s24 = Trim(Nz(RS.Fields("drzava"), " ")) & Space(3 - Len(Trim(Nz(RS.Fields("drzava"), " "))))
s25 = Trim(Nz(RS.Fields("brojputovnice"), " ")) & Space(30 - Len(Trim(Nz(RS.Fields("brojputovnice"), " "))))
s26 = Space(1)
s27 = Space(1)
s28 = Trim(RS.Fields("siflijeka")) & Space(12 - Len(Trim(RS.Fields("siflijeka"))))
s29 = Space(10)
s30 = Trim(RS.Fields("kolicinali")) & Space(10 - Len(Trim(RS.Fields("kolicinali"))))
str1 = s1 & s2 & s3 & s4 & s5 & s6 & s61 & s7 & s8 & s9 & s10 & s11 & s12 & s13 & s14 & s15 _
& s16 & s17 & s18 & s19 & s20 & s21 & s22 & s23 & s24 & s25 & s26 & s27 & s28 & s29 & s30
Print #1, str1
RS.MoveNext
str1 = ""
Loop
Close #1
RS.Close
Set RS = Nothing
MsgBox " Podaci su prepisani u " + imefile
End Sub
Private Sub Command1_Click()
DoCmd.Close
End Sub
|