Ne mogu da nadjem rjesenje

Imam vb kod koji mi vrsi output reprta u txt fajl u folder na c particiji.(docmd.output....)
Sve je to ok,samo mi smeta dijalog koji sledi pri izvrsenju koda(Now outputing....)
Moze li se bez njega.Hvala vam puno
Sasa

Jesi li probao sa docmd.setwarnings false pre izvršenja koda?

Potpis

Jednog dana...

Da,ne radi.
I dalje se pokazuje.To nije upozorenje nego se pojavljuje kao kod printanja reporta sa vise stranica(Now printing...)
a ovde je (Now outputing...)

Probaj sa ovim kodom:

Potpis

Jednog dana...

Hvala ti na strpljenju,ali ista takav kod koristim,samo sto fajl ide u C:\Temp.I opet se pojavljuje.

Pa najjednostavnije ti je da to isprogramiraš.

Evo kako sa si ja sebi to sredio

Dim imefile As String
imefile = "C:\prepis\prepis.txt"

Dim RS As Recordset, i As Integer, str1 As String
Set RS = CurrentDb.OpenRecordset("proizprep")

Open imefile For Output As #1
Dim prep As String
RS.MoveFirst
str1 = ""
Do While Not RS.EOF
prep = RS.Fields("brojliste")+ "|" + RS.Fields("brojrole") + "|" + RS.Fields("kolicina")

Print #1, prep

RS.MoveNext
prep = ""
Loop
Close #1

RS.Close
Set RS = Nothing

Trtko,to je za mene spansko selo.Vecina baze mi je radjena SQL-om,a znanje vb6 mi je veomskromno.Da li bi se na onaj gor kod moglo nesto nabaciti da se izbaci Now outputting...

Nema veze gdje su ti podaci.
Neznam, možda se čak i da , trebalo bi istraziti

Ali kad bi zakacio ono sto trebas prebaciti ( dio tablice )
i rekao koja polja trebas i pod kojim uvjetima prebaciti u *.txt, napravili bi ti zacas formu na kojoj bi samo kliknuo
na tipku i koja bi ti to prebacila

Evo saljem ti primjer.Ide u C:\Temp.
I opet hvala
Cao

Evo riješeno


Pozdrav

Hvala puno druze to je to.POZDRAV.Samo jos jedno pitanje.Da li umjesto tabele mogu koristiti report.Mnogo bi mi znacilo.Hvala puno

Pa report dobijaš na osnovu nekoga upita (Query).
Znaci umjesto tabele tamo stavis da ti otvori query kojeg ti koristiš na
reportu. Tebi netreba zaglavlje u *.txt fajlu koliko sam skuzio , nego samo podaci.

Doradit ćemo onu formu ako treba i sa uvjetom s kojim trebaš napraviti prepis.

Pozdrav !!

Evo je druze u pitanju je query1,i hvala ti puno.Cao

Evo gotovo.

da se još ispravim tu dolje fali Exit sub

If IsNull(sifraq_kupca) Or Sifra_kupca = "" Then
MsgBox " Niste odabrali kupca"
Sifra_kupca.SetFocus
End If

pa bi ovako moralo biti

If IsNull(sifraq_kupca) Or Sifra_kupca = "" Then
MsgBox " Niste odabrali kupca"
Sifra_kupca.SetFocus
exit sub
End If

jel me inače nikola bude kritikovao

Sta reci osim HVALA PUNO

Koristim kod koji je napisao Trtko za eksportovanje reporta u txt file duže vreme i mogu reći da odlično funkcioniše. Međutim nedavno mi je postavljen dodatni zahtev da tekst u Notepadu odnosno u tekstualnom fajlu mora da bude u ćirilici, i tu nastaje problem. Konvertovao sam sve podatke u tabelama u ćirilično pismo, ali se pri eksportovanju u Notepadu u tekstualnom fajlu pojave samo znakovi upita. Pa vas pitam da li neko ima rešenje za ovaj problem, odnosno programski kod, koji bi se pridodao postojećem programskom kodu ili neko drugo rešenje kako bi tekstualni fajlovi bili ispisani ćirilicom. Ako neko ima odgovor zamolio bih da mi pošalje primer. Pozdrav.

Potpis

I.L.

Ja sam skinuo poslednju bazu koju je ostavio trtko i prijavljuje mi grešku:





Što se tiče znakova pitanja obično je to zato što se Notepad fajl ne sačuva kao UTF8. To je kad čuvamo dokument i imamo ispod imena fajla unosimo enkoding kao na slici:




E sad ne znam kako se to može specifikovati iz aksesa.

Potpis

http://biske.rs

DoCmd.TransferText acExportDelim,,"tblTest","c:\tbltest.txt",,,65001


65001 je UTF-8.

Potpis

Pozdrav,
Branislav

Isprečili se neki problemi pa tek sad palim komp. Zahvaljujem na rešenju po pitanju ćirilicčnog pisama ali mi u potpunosti ne rešava problem, jer sam ispustio da detaljnije navedem šta mi je potrebno. Evo o čemu se radi.
Napravio sam aplikaciju za praćenje javnih nabavki. Centrali je potrebno poslati tekstualni fajl koji mora da ispuni određene uslove. Evo navodim deo kako bi tekstualni fajl trebao da izgleda:

1#1#01#nabavka kancelarijskog materijala#125.00#10052010#Bor itd

Evo koji se uslove treba tekstualni fajl da ispuni
• Svaki slog se završava sa "CR+LF"
• Slog je varijabilne dužine i polja su razdvojena "#"
• Poslednje polje sloga (kriterijum) je bez "#".
• Koristiti Unicod, opise i nazive ponuđača i naručioca unositi ćirilicom ako i gde je to moguće.
• Vrsta postupka – integer
• Vrsta predmeta – integer
• Predmet – text (2) sa vodećom nulom
• Opis predmeta – vartext (250), OBAVEZNO Unicod.
• ProcenjenaVrednost – Single
• UgovorenaVrednost bez PDV-a– Single
• UgovorenaVrednost sa PDV-om – Single
• Datum ugovora- text(8), u formatu DDMMGGGG
• Matični broj izabranog ponuđača – text(8)
• Država ponuđača – text(2) iz priloženog šifarnika
• Naziv izabranog ponuđača – text (100)
• Sedište izabranog ponuđača – text (100)
• Broj ponuda – long integer
• Clan Zakona o JN- text(20)
• kriterijum za izbor ponude – integer

Iz ponuđenog rešenja dobijam ćiriličan tekst za šta sam i tražio pomoć, ali su mi sva polja sa navodnicima i znak razdvajanja je "," a potrebno je da izgleda koko sam gore naveo. Unapred hvala.

Potpis

I.L.

Napravi izvoznu specifikaciju, pa prema njoj izvezi podatke.

Prvo idi na ručni izvoz: obeleži tabelu klikom na nju, zatim File > Export, zadaj naziv i za tip Save As Type stavi Text Files.

Sad ćeš videti ono što kažeš da dobiješ, polja ograđena navodnicima i zapetama. Klikni taster Advanced i izmeni to. Izmene što si napravio snimi tasterom Save As (recimo: "TestIS"). Upravo si napravio izvoznu specifikaciju. Sada je u prethodnoj komandi navedi na mestu za to:

DoCmd.TransferText acExportDelim,"TestIS","tblTest","c:\tbltest.txt",,,65001

Ako nemaš izvoznu uspecifikaciju Access podrazumeva način izvoza upravo onako kako radi kod tebe.

Potpis

Pozdrav,
Branislav