[ obradorriuss @ 12.12.2006. 19:04 ] @
Pozdrav,
zanimaju me Vasa resenja i primeri kako radite stampanje ugovora koji vuce podatke iz Vase baze podataka.

Naime, imam bazu podataka koja se popunjava poljima 'BrojUgovora', 'DatumZakljucivanjaUgovora', 'ObrazovniProfil', 'ImeIPrezime', itd...

Blanko primer ugovora je otkucan u MS Word-u.

Kako po Vama na najlaksi nachin da ubacim u taj ugovor unete podatke iz forme sa gore navedenim poljima?

Da li treba pisati neki kod koji cje otvarati i popunjavati taj Word dokument?
Ili je potrebno da u Report iskopiram sav text kao jednu labelu, pa da ubacim textboxove na mesta gde treba da stoje?


I na kraju kako na ugovor koji je od 2 strane (pri chemu se druga strana ne menja), da ga odstampam?

Molio bih Vas za neke primere, ako ste nailazili an ovaj problem kako ste ga resili.

Unapred hvala.
[ Zidar @ 13.12.2006. 16:06 ] @
Pozdrav, dugo te nismo culi

Imas vise opcija.
A) Ukoliko nemas da stampas 1:vise na ugovoru, moze da koristis MAIL MERGE iz Worda. Odes u word, definises parametre za MAIL MERGE operaciju (Accessov query ili tabela) i sibas. Ako stampas uvek jedan ugovor samo, mozes da u kveriju stavis parameter kojim ces da odaberes za koga se stampa ugovor. Misim da bi to trebalo da radi.
Medjutim, posto si ti programer, verovetno ces se opredeliyi za sledece:

B)
1) Razbijes dokument na dva, Strana1.DOC i Strana2.DOC.
2) Napravis report u Accessu, koji za data source ima sta ti vec treba, kveri odakle vuces licne podatke
3) na report stavis dva Image polja, i u njih ubacis Strana1.DOC i Strana2.DOC. Podesis dimenzije tako da se vide cele stranice. Page footer i header moraju da dodju iz Accessa, znaci nece ti trebat u Wordu, pa ces ih verovatno izbaciti.
4) Dodas text box kontrole tako da one dodju na onaj deo Word dokumanta gde bas treba. Malo exsperimentises (proba-greska) dok ne dobijes dovoljno dobar rezultat. Te kontrole moras da BringToFront, ili da word dokument posalje SentToBack.

Na ovaj nacin prakticno preko word dokumenta stampas nesto sto dolazi iz baze. Naravno da word dokument mora da ima praznine na mestima gde ces stampati. Trebaju ti dva word dokumenta jer Access moze da odstampa samo onaj deo koji se vid kroz 'prozor' (bar je tako bilo nekada).

Srecan rad
[ obradorriuss @ 13.12.2006. 17:09 ] @
bash tako dugo se nismo chulii ... :-( puno posla...nista se ne stize...

Definitivno cu da se opredelim za drugu varijantu... Tako sam nesto i ja zamislio samo sam hteo da uslikam sliku (PrintScreen) ugovora iz worda i da je ubacim kao image na izvestaj i naravno SendToBack...

Videcu nocas ili veceras ovo da prochachkam malo pa cu javiti ishode... Query mi radi dobro posao, znaci samo da ga prikazem.... Cujemo se cim isprobam


Pozdrav...i hvala ;-)
[ Brz_na_tastaturi @ 17.12.2006. 22:43 ] @
Ja sam za to koristio labele na kojima su bili delovi teksta a onda ih sa podacima sastavljao u tekst polje.
[ BiloKoje @ 18.12.2006. 06:27 ] @

Ja sam koristio sve varijante. Međutim, zatrebalo mi je da korisnik može da pravi ozbiljnije izmene u tekstu, pa sam došao do toga da tekst ugovora smestim u tabelu tako što je svaki član ugovora jedan red u tabeli.
[ joojant200 @ 09.11.2009. 17:29 ] @
Nije ugovor, vec odluka, ali je isti princip... tacka 1, tacka 2...
Ideja mi je da zavisno od vrste postupka postoje razlicite modle za postupak.
Modlu sam u tabeli razbio po clanovima na 0-8 Polja su definisana kao memo, zbog duzine, ali isti problem imam i kad ih definisem kao text (a vtsifra je vrsta postupka).

Napravio sam formu gde cu na klik ubaciti modlu, po potrebi izmeniti neke sitne stvari u tekstu i to ce se zapamtiti u drugoj tabeli kao zvanicna odluka i posle pozvati izvestaj da odstampa odluku.

Kod za popunjavanje forme iz modle na click je ispod. Problem je sto ne radi i ne znam vise sta da mu radim.
Kada stoji:
cboOOPHeader = myRecordSet.Fields(2).Value
Sa 'VALUE' Dobijem poruku o gresci:
3021 - "Either EOF or BOF is true or the current record has been deleted....."

Sa type ili nekim drugim Uredno popuni polja, Ali nikako nece da mi prikaze ono sto mi treba tj memo/tekst iz tabele?


Private Sub Command70_Click()
Dim cnn1 As ADODB.Connection
Set cnn1 = CurrentProject.Connection
Dim myRecordSet As New ADODB.Recordset
myRecordSet.ActiveConnection = cnn1
' myRecordSet.Open "[tblOdlOPokrDetalji]"
'Store the SQL statement in a variable.
Dim mySQL As String
mySQL = "SELECT * FROM tblOdlOPokrDetalji WHERE 'tblOdlOPokrDetalji.VTSifra' = 'Forms!frmOdluka.VTSifra'"
myRecordSet.Open mySQL
cboOOPHeader = myRecordSet.Fields(2).Type
cboOOP01 = myRecordSet.Fields(2).Type
cboOOP02 = myRecordSet.Fields(3).Type
cboOOP03 = myRecordSet.Fields(4).Type
cboOOP04 = myRecordSet.Fields(5).Type
cboOOP06 = myRecordSet.Fields(6).Type
cboOOP07 = myRecordSet.Fields(7).Type
cboOOP08 = myRecordSet.Fields(8).Type
[ BiloKoje @ 12.11.2009. 10:40 ] @

Bilo bi dobro da okačiš deo tabele sa predefinisanim tekstom i formu za privremeni upis. Moguće da je problem dužina teksta, ako ga unosiš u tekst box ne sme da ima viže od 255 karaktera.
[ joojant200 @ 12.11.2009. 22:16 ] @
Iz nekog razloga sve je proradilo posle compact&repair :)
[ Trtko @ 13.11.2009. 17:58 ] @
@obradorriuss , sve što ti je napisano u wordu , to isto tako možeš i napraviti (napisati) u reportu.
znaći definitivno to iz worda prepiši u report i samo ubaci txt boksove u koje ćeš upisivat podatke.

ILI

možeš i iz accessa otvoriti word dokument i u njega upisivat podatke, malo više programiranja bespotrebnog, ali da se i tako