Trtko Koprivnica
Član broj: 69494 Poruke: 695 195.29.146.*
|
Nisi bas pojasnio sto zelis.
Modul se ne poziva, nego se pozivaju funkcije koje si u tom modulu napisao
a zoves ih iz bilo koje forme ili querya , reporta.
Znaci u modulima se koriste i deklaracije varijabli koje vaze za cijelu aplikaciju
Evo primjer funkcije koju koristim po potrebi iz querya , formi , a ona je napisana
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
|