Centar za edukaciju-BiH


Stranice (2):1,2

#11 16.01.2012 19:00
pmiroslav Van mreze
Clan
Registrovan od:02.02.2009
Postovi:1,458


Predmet:Re: Problem sa logiranjem
Zači onda mi viÅ¡e ne treba funkcija "UcitajOper"
A avo ću isprobati sutra na poslu.
Pozdrav
↑  ↓

#12 16.01.2012 19:04
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,610


Predmet:Re: Problem sa logiranjem
Da ne treba ti.
To sam gore na pocetku negdje napisao da mozes rijesiti na 2 nacina.
Jedan je bio kada izgubis podatke da ih ucitas iz tabele logovanja a drugi da se ponovo logujes.
Eto mi smo odabrali ovaj da ucitamo iz tabele.
Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

#13 16.01.2012 20:04
pmiroslav Van mreze
Clan
Registrovan od:02.02.2009
Postovi:1,458


Predmet:Re: Problem sa logiranjem
Evo pokuÅ¡ao sam tvoj prijedlog primjeniti na ovom primjeru koji imam kod kuće i odmah kod otvaranja aplikacije dolazi do greÅ¡ke.
"Run-time error 2486:
You can't carry out this action at the present time."

Prilozi:
Informacije o tipu datoteke za:rar  LogiranjePM_2.rar
Preuzimanja:236
Velicina datoteke:30.02 KB


Pozdrav
↑  ↓

#14 19.01.2012 11:45
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,610


Predmet:Re: Problem sa logiranjem
Greska ti je ovdje:
If Format$(M_Oper.OperID) = "" Then
Ti si napisao:
If Format$(M_OperID) = "" Then
Vjerovatno sam ja negdje pogrijesio a ti prepisao.
M_Oper-ime objeksta
OperID-Var u objektu
Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

#15 19.01.2012 12:30
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,610


Predmet:Re: Problem sa logiranjem
Sad sam sve sagledao i trebalo bi ovako da izgleda.
PreuzmiIzvorni kôd (Visual Basic):
  1. Function tkoRadiIme()
  2. If M_Oper.OperID = 0 Then
  3. UcitajOper
  4. End If
  5. tkoRadiIme = M_Oper.ImeO
  6. End Function
  7.  
  8. Function tkoRadiPrezime()
  9. If M_Oper.OperID = 0 Then
  10. UcitajOper
  11. End If
  12. tkoRadiPrezime = M_Oper.PrezO
  13. End Function
  14.  
  15. Function SifraID()
  16. If M_OperID.OperID = 0 Then
  17. UcitajOper
  18. endiif
  19. SifraID = M_Oper.OperID
  20. End Function
  21.  
  22. Function St_Kupac() As String
  23. St_Kupac = "1;Dobavljac;2;Kupac-individualni;3;kupac-veliki"
  24. End Function
  25.  
  26. Function UcitajOper()
  27. M_Oper.OperID = Forms![frmLogOn]![Korisnik].Column(0)
  28. M_Oper.KorImeO = Forms![frmLogOn]![Korisnik].Column(1)
  29. M_Oper.ImeO = Forms![frmLogOn]![Korisnik].Column(2)
  30. M_Oper.PrezO = Forms![frmLogOn]![Korisnik].Column(3)
  31. M_Oper.SifraO = Forms![frmLogOn]![Korisnik].Column(4)
  32. M_Oper.VrijemeLog = Now()
  33. End Function

OperID je broj nije string a nisam gledao do sad.
Forma frmLogOn je stalno otvorena pa je netreba otvarati i u njoj imas sve podatke o korisniku.

E sad bez obzira na sve ovo treba naci gresku koja se pojavljuje jer kako sam naveo samo zbog greske se gube podaci u oper.
Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

#16 20.01.2012 14:36
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,610


Predmet:Re: Problem sa logiranjem
Neznam jesil ovo gore probao ali htio sam napomenuti kako bi to sve trebalo napraviti.
Vidim da imas ovaj klas moful kao moj ili je moj.
Da napomenem da u bilo kom programskom jeziku ako programiras pa napravis gresku koju nisi presreo program pada.
Znaci rusi se.
Zato je bitno presresti sve greske?
Ja uz to imam nisz procedura jos.
Imam i tabelu gresaka kao i tabelu vrsta upozorenja.
Ima takav primjer negdje i na forumu sa obrazlozenjem.
Imam proceduru koja se zove GreskaZ sa ulaznim parametrom broja greske.

Sada kada pisem procedure onda pisem:
on eror goto greska

na dnu procedure imam
Greska:
GreskaZ(Err.number)

Znaci pozivam proceduru greskaZ kojoj prosljedjujem broj greske.
Procedura trazi gresku u tabeli pa ukoliko je ne nadje onda izbacuje err.number i err. deskription
te to zapisuje u drugu tabelu sa imenom objekta na kojem se pojavila.
Tako kada poslije dodjes i pregledas svoj app. vidjet ces sve gde se greske javile a ti ih nisi predvidio.
Naravno ovo mozes napraviti da ti salje i emailom.

Na svim formama imas dogadjaj
Private Sub Form_Error(DataErr As Integer, Response As Integer)
GreskaZ(dataerr)
Response = 0
End Sub

Znaci ovo na svakoj formi treba uraditi.
Presresti greske ako se dogode.
Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

Stranice (2):1,2


Sva vremena su GMT +01:00. Trenutno vrijeme: 7: 48 am.