Prikazi cijelu temu 15.03.2018 11:39
Avko Van mreze
Administrator
Registrovan od:28.05.2014
Lokacija:zagreb


Predmet:Re: Input box kao lozinka
ja ti nemam pojma o accesu, jbg, tako da ti necu znati pokrenuti kod.
Probaj napraviti obrazac (form) na nju stavi txt box korisnik (user) i zaporka(password) te tipke LOGIN i OTKAZI (cancel) jbg, a koristis Eng acces ili imas prevod?

dobro nema veze, idemo dalje. Ja probao napraviti ali nisam znao kako pokrenuti kod. Kod excela mi to jednostavno samo kliknem na Run, jebajga



sada jos trebas kod sloziti u VBA , nesto kao provjeriti dali su polja prazna

PreuzmiIzvorni kôd (Text):
  1. Private Sub cmd_login_Click()
  2.  
  3. If Trim(txt_username.Value & vbNullString) = vbNullString Then
  4.     MsgBox prompt:="Morate unijeti korisnika", buttons:=vbInformation, title:="Upisi korisnika"
  5.     txt_username.SetFocus
  6.     Exit Sub
  7.   End If
  8.  
  9.   If Trim(txt_password.Value & vbNullString) = vbNullString Then
  10.     MsgBox prompt:="Morate unijeti zaporku", buttons:=vbInformation, title:="Upisi zaporku"
  11.     txt_password.SetFocus
  12.     Exit Sub
  13.   End If
  14.  
  15. ovdje ide kod koji provjerava u bazi dali korisnik odgovara zaporki
  16. trebao bi imati bazu podataka vjerojatno:
  17. userID
  18. korisnik
  19. zaporka
  20.  
  21. pa nekakvim SQL upitom iscitati to
  22. strSQL = "SELECT * FROM tbl_login WHERE korisnik= """ & txt_username.Value & """ AND zaporka = """ & txt_password.Value & """"
  23.  
  24. pa bi trebalo ici kao neki k....palac
  25.  
  26. Set db = CurrentDb
  27. Set rst = db.OpenRecordset(strSQL)
  28. If rst.EOF Then
  29.     MsgBox prompt:="netocan unos", buttons:=vbCritical, title:="Login Error"
  30.     txt_username.SetFocus
  31.   Else
  32.     MsgBox prompt:="Pozdrav, " & rst.Fields(0).Value & ".", buttons:=vbOKOnly, title:="Login Successful"
  33.     DoCmd.Close acForm, "frm_login", acSaveYes
  34.   End If
  35.  
  36.  Set db = Nothing
  37.  Set rst = Nothing
  38. end sub


eto dok ne dode neko pametan pa ti rijesi tu misteriju malo cemo se ovako dopisivati.
zivot je moja domovina.
Ovaj post je ureden 1 puta. Posljednja izmjena 15.03.2018 11:41 od strane Avko.