Prikazi cijelu temu 06.08.2013 12:53
pmiroslav Van mreze
Clan
Registrovan od:02.02.2009
Lokacija:Osijek


Predmet:Re: Procedure,funkcije,sub,argumenti,parametri
Citiraj Getsbi:

Funkcija bez bar jednog argumenata ne postoji.
Ovako nešto ne postoji:

Function functionname ()
    statements
EndFunction


Ovo me zbunjuje. Ako funkcija bez argumenata ne postoji Å¡to je onda ovo u primjeru

PreuzmiIzvorni kôd (vbnet):
  1. Function UpisLog()
  2. '*******************************************
  3. 'Ime:      UpisLog   (Function)
  4. 'Sadržaj: Upisuje u tabelu A_Logovanje
  5.         'logovanja
  6. 'Autor:     ZXZ
  7. 'Datum:      listopad 15, 2007, 08:19:59
  8. 'Adresa: Tuzla BiH
  9. 'Email:     izonic@inet.ba
  10. 'Ulazni parametri:
  11. 'Izlazni parametri:
  12. '*******************************************
  13. Dim db As Database 'novo
  14. Dim rs As Recordset
  15.  
  16. 'Set Rs = Util.Db.OpenRecordset("A_Logovanje")
  17.  
  18. Set rs = db.OpenRecordset("A_Logovanje", dbOpenDynaset)
  19.  
  20. rs.AddNew
  21. rs!KorisnikID = M_Oper.OperID
  22. rs!VrijemeLog = M_Oper.VrijemeLog
  23. rs.Update
  24. rs.Close
  25. End Function
ili ovo
PreuzmiIzvorni kôd (vbnet):
  1. Function tkoRadiIme()
  2. tkoRadiIme = M_Oper.ImeO
  3. End Function
Pozdrav