Trtko Koprivnica
Član broj: 69494 Poruke: 695 93.159.77.*
|
Pa najednostavnije bi bilo da iz kverija pozivaš
funkciju koja ti pretvara slova u Ansi
u query bi pozivao ovu dolje funkciju i to ti je to , ako je to što trebaš
pozdrav
Public Function kodna387(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, "đ", "|")
kodna387 = staraslova
End Function
|