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):Private Sub cmd_login_Click()
If Trim(txt_username.Value & vbNullString) = vbNullString Then
MsgBox prompt:="Morate unijeti korisnika", buttons:=vbInformation, title:="Upisi korisnika"
txt_username.SetFocus
Exit Sub
End If
If Trim(txt_password.Value & vbNullString) = vbNullString Then
MsgBox prompt:="Morate unijeti zaporku", buttons:=vbInformation, title:="Upisi zaporku"
txt_password.SetFocus
Exit Sub
End If
ovdje ide kod koji provjerava u bazi dali korisnik odgovara zaporki
trebao bi imati bazu podataka vjerojatno:
userID
korisnik
zaporka
pa nekakvim SQL upitom iscitati to
strSQL = "SELECT * FROM tbl_login WHERE korisnik= """ & txt_username.Value & """ AND zaporka = """ & txt_password.Value & """"
pa bi trebalo ici kao neki k....palac
Set db = CurrentDb
Set rst = db.OpenRecordset(strSQL)
If rst.EOF Then
MsgBox prompt:="netocan unos", buttons:=vbCritical, title:="Login Error"
txt_username.SetFocus
Else
MsgBox prompt:="Pozdrav, " & rst.Fields(0).Value & ".", buttons:=vbOKOnly, title:="Login Successful"
DoCmd.Close acForm, "frm_login", acSaveYes
End If
Set db = Nothing
Set rst = Nothing
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.