[ viss02 @ 05.09.2006. 18:36 ] @
Molim Vas pomozite mi oko otvaranja modula u access-u 97. Modul bi trebao da se ucita kada i form. Hnapred hvala, ako nije problem dajte i neki primer :) |
[ viss02 @ 05.09.2006. 18:36 ] @
[ Trtko @ 06.09.2006. 07:50 ] @
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 [ viss02 @ 06.09.2006. 15:27 ] @
Pa interesuje me kako da pozovem modul iz forma.
[ Trtko @ 07.09.2006. 09:51 ] @
Pa ovako , funkcija ti se u modulu zove pretvori
I iz bilo koje forme je pozivas ovako , kako dolje piše mojstring="DOBRO DO[LI" rezultat=pretvori(mojstring) i dobiješ rezultat="DOBRO DOŠLI" [ viss02 @ 08.09.2006. 23:16 ] @
Hvala na pomoći, smašao sam se, ali na neki drugi način.
[ viss02 @ 12.09.2006. 15:13 ] @
Evo jedno bolje rešenje:
Code: Private Sub Form_Load() Call modul End Sub Gde je:modul - ime stringa u modulu koji treba da se pokrene. Copyright (C) 2001-2025 by www.elitesecurity.org. All rights reserved.
|