[es] - Ne mogu da nadjem rjesenje

ombrs.do
Ristic Aleksandar
Administrator

Član broj: 170168
Poruke: 140
79.143.169.*

Profil

^{15.12.2008. u 15:58 - pre 186 meseci}

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

Odgovor na temu

SLOJ.1973

Član broj: 130198
Poruke: 871
*.evizo.net.

+41 Profil

Re: Ne mogu da nadjem rjesenje

^{15.12.2008. u 16:39 - pre 186 meseci}

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

Jednog dana...

Odgovor na temu

ombrs.do
Ristic Aleksandar
Administrator

Član broj: 170168
Poruke: 140
79.143.169.*

Profil

Re: Ne mogu da nadjem rjesenje

^{15.12.2008. u 17:33 - pre 186 meseci}

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...)

Odgovor na temu

SLOJ.1973

Član broj: 130198
Poruke: 871
*.evizo.net.

+41 Profil

Re: Ne mogu da nadjem rjesenje

^{15.12.2008. u 21:09 - pre 186 meseci}

Probaj sa ovim kodom:

Code:
DoCmd.OutputTo acReport, "tblproba", "MS-DOSText(*.txt)", "C:\Program Files\Novafascikla\tb.txt", False, "", 0

Jednog dana...

Odgovor na temu

ombrs.do
Ristic Aleksandar
Administrator

Član broj: 170168
Poruke: 140
79.143.169.*

Profil

Re: Ne mogu da nadjem rjesenje

^{16.12.2008. u 08:13 - pre 186 meseci}

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

Odgovor na temu

Trtko
Koprivnica

Član broj: 69494
Poruke: 695
*.bilokalnik.hr.

+8 Profil

Re: Ne mogu da nadjem rjesenje

^{16.12.2008. u 10:32 - pre 186 meseci}

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

Odgovor na temu

ombrs.do
Ristic Aleksandar
Administrator

Član broj: 170168
Poruke: 140
79.143.169.*

Profil

Re: Ne mogu da nadjem rjesenje

^{16.12.2008. u 14:01 - pre 186 meseci}

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...

Odgovor na temu

Trtko
Koprivnica

Član broj: 69494
Poruke: 695
*.bilokalnik.hr.

+8 Profil

Re: Ne mogu da nadjem rjesenje

^{18.12.2008. u 07:23 - pre 186 meseci}

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

Odgovor na temu

ombrs.do
Ristic Aleksandar
Administrator

Član broj: 170168
Poruke: 140
79.143.169.*

Profil

Re: Ne mogu da nadjem rjesenje

^{18.12.2008. u 12:22 - pre 186 meseci}

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

Prikačeni fajlovi

db1.mdb - 248k

Odgovor na temu

Trtko
Koprivnica

Član broj: 69494
Poruke: 695
*.bilokalnik.hr.

+8 Profil

Re: Ne mogu da nadjem rjesenje

^{18.12.2008. u 13:33 - pre 186 meseci}

Evo riješeno

Pozdrav

Prikačeni fajlovi

Prepis.mdb - 180k

Odgovor na temu

ombrs.do
Ristic Aleksandar
Administrator

Član broj: 170168
Poruke: 140
79.143.169.*

Profil

Re: Ne mogu da nadjem rjesenje

^{18.12.2008. u 14:06 - pre 186 meseci}

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

_{[Ovu poruku je menjao ombrs.do dana 18.12.2008. u 22:44 GMT+1]}

Odgovor na temu

Trtko
Koprivnica

Član broj: 69494
Poruke: 695
*.bilokalnik.hr.

+8 Profil

Re: Ne mogu da nadjem rjesenje

^{19.12.2008. u 07:23 - pre 186 meseci}

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 !!

Odgovor na temu

ombrs.do
Ristic Aleksandar
Administrator

Član broj: 170168
Poruke: 140
79.143.169.*

Profil

Re: Ne mogu da nadjem rjesenje

^{23.12.2008. u 07:05 - pre 186 meseci}

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

Prikačeni fajlovi

Prepis.mdb - 192k

Odgovor na temu

Trtko
Koprivnica

Član broj: 69494
Poruke: 695
87.252.142.*

+8 Profil

Re: Ne mogu da nadjem rjesenje

^{23.12.2008. u 09:21 - pre 186 meseci}

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

Prikačeni fajlovi

Prepis.mdb - 192k

Odgovor na temu

ombrs.do
Ristic Aleksandar
Administrator

Član broj: 170168
Poruke: 140
79.143.169.*

Profil

Re: Ne mogu da nadjem rjesenje

^{29.12.2008. u 07:04 - pre 186 meseci}

Sta reci osim HVALA PUNO

Odgovor na temu

ilekicika
dipl pravnik

Član broj: 257869
Poruke: 34
...148.91.adsl.dyn.beotel.net.

Profil

Re: Ne mogu da nadjem rjesenje

^{21.08.2010. u 02:50 - pre 166 meseci}

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.

I.L.

Odgovor na temu

biske86
Ivan Biševac
Zubin Potok

Član broj: 62435
Poruke: 979
*.dynamic.isp.telekom.rs.

Sajt: biske.rs

+39 Profil

Re: Ne mogu da nadjem rjesenje

^{21.08.2010. u 11:37 - pre 166 meseci}

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.

Prikačeni fajlovi

banem
Kikinda

Član broj: 16619
Poruke: 583
*.dynamic.sbb.rs.

+15 Profil

Re: Ne mogu da nadjem rjesenje

^{21.08.2010. u 12:39 - pre 166 meseci}

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

65001 je UTF-8.

Pozdrav,
Branislav

Odgovor na temu

ilekicika
dipl pravnik

Član broj: 257869
Poruke: 34
109.106.237.*

Profil

Re: Ne mogu da nadjem rjesenje

^{03.09.2010. u 15:45 - pre 166 meseci}

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.

I.L.

Odgovor na temu

banem
Kikinda

Član broj: 16619
Poruke: 583
*.dynamic.sbb.rs.

+15 Profil

Re: Ne mogu da nadjem rjesenje

^{03.09.2010. u 18:50 - pre 166 meseci}

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.

Pozdrav,
Branislav

Odgovor na temu