Trtko Koprivnica
Član broj: 69494 Poruke: 695 *.bilokalnik.hr.
|
Evo ti mog primjera pa ako ti pase ti si samo malo prepravi
Dim imefile As String
imefile = "C:\prepis\" + Format(Date, "DD") + Format(Date, "MM") + Right(Format(Date, "YY"), 1) + P_Siford + ".TXT"
' imefile naziv txt datoteke u koju cu prepisat podatke iz tablice , naravno ti stavis polje sa forme
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
' zbog kasnijeg prepisa u tablicu polja moraju biti bas određene dužine, mogao sam koristiti i ; za odvajanje
ali zbog odredjenih razloga nisam
s1 = Trim(Nz(RS.Fields("siford"), " ")) & Space(3 - Len(Trim(Nz(RS.Fields("siford"), " "))))
' tu bi ti mogao staviti ovako
s1=trim(forms!mojaforma!mojpodatak) - space(kolikajeduzinapoljautablici- ...... itd
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"), " "))))
str1 = s1 & s2 & s3 & s4 & s5 & s6
Print #1, str1
RS.MoveNext
str1 = ""
Loop
Close #1
RS.Close
Set RS = Nothing
MsgBox " Podaci su prepisani u " + imefile
' ako zelis citati iz txt i upisivati u polja na formi ili u tablicu onda ovako
' nadam se da ces se snaci
Dim dato22 As Database
Dim rek22 As Recordset
Set dato22 = CurrentDb
Dim sqlupit22 As String
sqlupit22 = "select * from veza"
Set rek22 = dato22.OpenRecordset(sqlupit22)
rbr = 1
Dim inputdata
Open "f:\programi\veza_rac_kupac.txt" For Input As #1
Do While Not EOF(1)
Line Input #1, inputdata
skup = Mid(inputdata, 53, 5)
imek = Mid(inputdata, 60, 25)
rek22.AddNew
rek22.Fields("sifra_kup") = skup
rek22.Fields("ime_kupca") = imek
rek22.Update
End If
Loop
Close #1 ' Close file.
rek22.Close
Set dato22 = Nothing
MsgBox "podaci su prepisani"
Pozdrav
|