Problem sa "našim" slovima (YU znacima)

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.

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

Potpis

https://mzahorjanski.wixsite.com/mzahorjanski
https://www.fiverr.com/miroljubzahorja?up_rollout=true
https://www.youtube.com/@miroljubzahorjanski

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.

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

Napravio sam prema uputi i sve radi.
Hvala na pomoći.

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

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"