[ pmiroslav @ 24.09.2007. 13:50 ] @
Trebao bih linkati tablicu iz programa koji je rađen u Fox-u.
Kada je otvorim u Accesu naša slova Č, Ć, Š, Đ itd prikazuju se kao ^, ~,[, @ itd.
Da li je moguće nekom makro naredbom ili codom ovo automatski ispraviti.
Radi se o tome da imam program za knjogovodsto rađen u DBase-u, a program za vođenje skladišta je u Accessu.
U tablici knjigovodstvenog programa nalaze se šifre i nazivi materijala i kada tu tablicu pregledavam u Accesu slova nisu u redu.

[Ovu poruku je menjao pmiroslav dana 24.09.2007. u 20:46 GMT+1]
[ Getsbi @ 24.09.2007. 14:54 ] @
A ko sam dobro razumeo, ovde ima alatka koja to rešava.

http://www.praktikum.co.yu/office/access/acc_038.htm

http://www.praktikum.co.yu/office/download/index.htm





[Ovu poruku je menjao Getsbi dana 24.09.2007. u 16:30 GMT+1]
[ pmiroslav @ 24.09.2007. 19:46 ] @
Skinuo sam taj konverter i on radi odlično, ali moj slučaj je drugačiji.
Ja originalnu tablicu ne mogu mjenjati jer je linkana sa servera i nju koristi i drugi korisnik čija baza je rađena u Fox-u, a zaprvo on mjena i uređuje podatke u njoj
Ja npr. u svojoj bazi imam tablicu sa ulazima i izlazima sa skladišta. U tablici su polja sa šifrom, datumom, količinom, brojem otpremnice.
U Queriju se povežem sa tablicom koja se nalazi na serveru i iz nje uzimam naziv proizvoda, cijenu. Meni treba nešto da mi samo prividno uredi fontove u formi sa kojom pregledavam podatke.
[ Trtko @ 25.09.2007. 07:24 ] @
Jednostavno.

U query staviš

SELECT pretvori([imedoktora]) AS ime FROM tbldoktori

a u modulu

Public Function pretvori(dovezi As String) As String

Dim staraslova As String

staraslova = dovezi
staraslova = Replace(staraslova, "[", "Š")
staraslova = Replace(staraslova, "{", "š")

staraslova = Replace(staraslova, "]", "Ć")
staraslova = Replace(staraslova, "}", "ć")

staraslova = Replace(staraslova, "^", "Č")
staraslova = Replace(staraslova, "~", "č")

staraslova = Replace(staraslova, "@", "Ž")
staraslova = Replace(staraslova, "`", "ž")

staraslova = Replace(staraslova, "\", "Đ")
staraslova = Replace(staraslova, "|", "đ")
pretvori = staraslova
End Function

I to ti radi.

Ali ako su velike tablice i složeni upiti onda ti zna usporiti izvršavanje query
Onda staviš na formi gdje trebaš ispis da pozove tu funkciju.

npr..
u txtboxu.controlsource
=pretvori([NazivKupca])

Pozdrav
[ pmiroslav @ 25.09.2007. 08:14 ] @
Napravio sam prema uputi i sve radi.
Hvala na pomoći.
[ Zidar @ 25.09.2007. 15:09 ] @
meni ovo pitanje izgleda veoma interesantno. Jos lepse je sto nije bilo potrebe za dugackom diskusijom, Getsbi i Trtko su ponudili briljantne opcije. elem, neka teme na vrhu neko vreme, tako mi kazemo 'ovo treba prociatti'. Kroz nekoliko nedelja cemo temu preseliti u 'Teme koje su nekada bile TOP'. Isto, bilo bi veoma lepo ako Getsbi ili Trtko, ili obojica, dodaju nesto o problemu konverzije slova u Bazu Znanja ili tehnike Programiranja

[ pmiroslav @ 27.09.2007. 12:53 ] @
Ovo kovertiranje slova mi radi odlično međutim problem nastaje kod sortiranja

Bilo da se u Queriu ili Reportu postavi uvjet za sortiranje pojavi se poruka "Data type mismatch in criteria expression"
[ Brčko-DC @ 03.10.2007. 12:45 ] @
Ovaj dodatak zaista kod mene dobro funkcionise,ali samo u cirilici a meni je potrebna konverzija u latinicnom pismu Kako se moze ovo isto izvesti ali sa latinicom
Hvala