Predmet:Re: Problem Petlja

---

Imas ti u toj proceduri mnostvo memorijskih koje nisu definisane.
Kao prvokada imas ovako kompleksne procedure trebalo bi na pocetku modula
Option explicit
Ako ovoga nema onda se izgubis u memorijskim.
Print #1, strParPrint
Print #1, strIzbTrake
Print #1, strObSlova

Sve ove memorijske su prazne a nisu ni dimenzionisane kao globalne ako se negjde u drugoj proceduri kupe podaci.

Mozes napisati sta zelis i odakle dobiti pa da naprvimo novu proceduru ili pak da razmotrimo ovu pa da vidimo sta se odakle cita da ne lutamo.

Ako je to ova procedura a mislim da jeste:
Public Function taxaOddo()
Dim rst As DAO.Recordset
IzborPrintera
br = 1
izn = 0
siznos = 0
Suma = 0
Set rst = CurrentDb.OpenRecordset("KORISNIK")
'Open rst!Port For Output As #1
Open "C:\Temp\taxa.txt" For Output As #1
Print #1, strParPrint
Print #1, strIzbTrake
Print #1, strObSlova
Print #1, Tab(21 - Len(rst!korisnik)); rst!korisnik
Print #1, Tab(21 - Len(rst!adresa) - Len(rst!grad)); Nz(rst!adresa, ""); ","; Nz(rst!grad)
Print #1, "Izvjestaj o prodatim artiklima za period"
Print #1, Tab(7); "od"; Tab(10); Format(pocetni, "dd.mm.yyyy"); Tab(22); "do"; Tab(25); Format(krajnji, "dd.mm.yyyy")
Print #1, "========================================"
Print #1, " Datum Taxa Iznos"
Print #1, "========================================"
rst.Close
+________________________________________________
IzborPrintera- Poziv procedure izbor printera
sada ide
br = 1
izn = 0
siznos = 0
Suma = 0

Znaci dodjeljuju se vrijednosti memorijskim i jos nista ne ide na stampu.
Open "C:\Temp\taxa.txt" For Output As #1- Otvaramo txt datoteku i u nju u tri reda trebalo bi unijeti podatke iz tri memorijske ispod
ali one su Empty nisu uneseni podaci u njih kao u predhopdnim gore br, izn, itd.
Znaci ove su prazne pa ce i biti tri reda prazno
Print #1, strParPrint
Print #1, strIzbTrake
Print #1, strObSlova

dalje
Print #1, Tab(21 - Len(rst!korisnik)); rst!korisnik - e sad u novom redu prvo tab i to 19-Duzina imena korisnika=2
Print #1, Tab(21 - Len(rst!adresa) - Len(rst!grad)); Nz(rst!adresa, ""); ","; Nz(rst!grad)- tab isti obracun kao gore te adresa i grad
Print #1, "Izvjestaj o prodatim artiklima za period"- Obican tekst u novom redu
Print #1, Tab(7); "od"; Tab(10); Format(pocetni, "dd.mm.yyyy"); Tab(22); "do"; Tab(25); Format(krajnji, "dd.mm.yyyy")
E sad ovdje zapinje.
Imas opet tab i on je ok ali imas memorijsku pocetni koja je prazna kao i one gore i krajnj koja je takodjje prazna.

Ako mislis na ove datume onda mora na vrhu modula dimenzionisati globalne variable pocetni i krajnji.
Global pocetni As Date
Global krajni As Date

eto ako je to to sto si htio.

---