Prikazi cijelu temu 28.02.2012 17:05
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Lokacija:Tuzla


Predmet:Re: Pitanja u vezi procedura i pisanja koda
Ova procedura ima zaglavlje:
Citat:
Function NadjiVrijednost(ImeTabele As String, ImePolja As String, _
Vrijednost As Variant) As Boolean

Sto znaci da pored naziva ima jos i 3 ulazna parametra i to dva tipa string i treci tipa variant.
Kako se poziva:
-Mozemo je pozvati it druge provcedure
Primjer:
Function Pozivna()
Dim a as boolean
a = NadjiVrijednost("kupci", "Kupac", "Kupac3")
End Function
A ima vrijednost true ili false zavisno dali postoji u tabeli kupci u polju kupac vrijednost kupac3.
Znaci u ovom slucaju procedura vraca vrijednost true ili false.
Uloliko procedura ne vraca nikakvu vrijednost mozemo je pozvati i ovako.
NadjiVrijednost "kupci", "Kupac", "Kupac2"
U ovom slucaju nemamo variable a koja ce prihvatiti vrijednost koju vraca procedura.
Znaci ako procedura ne vraca vrijednost nego samo nesto odradjuje onda se moze i ovako pozvati.

Procedura moze biti napisana i kao Contril source na formi neke kontrole na formi:
Tada podatak na kontroli poprima vrijednost iz procedure a pise se u controlsource kontrole:
=NadjiVrijednost("kupci";"Kupac";"Kupac2")

Takodje se moze pozvati na neki event forme ili polja napr na on load.
=NadjiVrijednost("kupci";"Kupac";"Kupac2")
Kako ste primijetili delimiter izmedju variabli u ostalim slucajevime nije zarez ','nego tackazarez ';'.

Procedura moze biti pozvana i sa Rekordsource ali tada mora biti i dimenzionisana kao rekord.

Proceduru mozemo pozvati i iz Query-a.
Jenostavno dopisemo jedno polje u Kuery-a i pozovemo proceduru.
Ovo se koristi kada su podaci ulaznih parametara procedure citaju iz rekorda.
Ukoliko su oni razliciti za svaki rekord procedura ce se izvrsiti onoliko puta koliko ima rekorda.
Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.