ms access - How can i get the timestamp and lock the failed login form? -


as title stated, can me form login on access 2013. want timestamp updated on username table (datetype datetime) each successfull login on each userid. problem want lock user login form each 3 times failed login.

private sub cmdlogin_click()  if isnull(me.cbonama) or me.cbonama = ""     msgbox "please fill username first!", vbokonly, "input username"     me.cbonama.setfocus      exit sub end if  if isnull(me.txtpword) or me.txtpword = ""     msgbox "please fill password!", vbokonly, "input password"     me.txtpword.setfocus     exit sub end if  if me.txtpword.value = dlookup("password", "ms_userid", "[password]='" &                 me.txtpword.value & "'")     myuserid = me.cbonama.value     msgbox "login success", vbokonly, "message"     'me.last_login = datetime()     docmd.close acform, "frm_login", acsaveno     docmd.openform "ms_userid"      else     msgbox "wrong username/password!  please specify caps lock, boss..", vbcritical, "error message"     me.txtpword.setfocus end if end sub

this latest modification click button vba code, please take since there still error (pop window appears , says "enter parameter value : ms_userid.timestamp" should enter manually ? because i'm using = now() function.

many thanks.!

private sub cmdlogin_click() dim sql string  'check mandatory fields if isnull(me.cbonama.value) or me.cbonama.value = ""    msgbox "user id required.", vbokonly, "required data"    me.cbonama.setfocus    exit sub end if  if isnull(me.txtpword.value) or me.txtpword.value = ""    msgbox "password required.", vbokonly, "required data"    me.txtpword.setfocus    exit sub end if      sql = "update ms_userid " & _           "set ms_userid.timestamp = now()" & _           "where ms_userid.userid = '&frms!frm_login!cbonama&'"      'compare input password , database password if me.cbonama.value <> ""    if me.txtpword.value = dlookup("password", "ms_userid", "[password]='" & me.txtpword.value & "'")       'myuserid = me.cbonama.value       'docmd.runsql "update ms_userid set timestamp = now() userid='" & frms!frm_login!cbonama & "';"       docmd.runsql sql       'close login page       msgbox "login success", vbokonly, "message"       docmd.close acform, "frm_login", acsaveno       docmd.openform "ms_userid"    else       msgbox "invalid password. try again.", vbokonly, "invalid entry!"       me.txtpword.setfocus    end if end if  'if user enters incorrect password 3 times intloginattempts = intloginattempts + 1 if intloginattempts = 3    msgbox "you not have access database. please contact system administrator.", vbcritical, "restricted access!"    application.quit end if end sub

Comments

Post a Comment

Popular posts from this blog

c++ - End of file on pipe magic during open -

i have c++ application in starting process(wireshark) following. if (fp == null){ fp = popen(processpath, "r"); //processpath process want start if (!fp){ throw std::invalid_argument("cannot start process"); } fprintf(fp, d_msg);//d_msg input want provide process } else if(fp != null){ fprintf(fp, d_msg); } the problem when execute c++ application, start wireshark error end of file on pipe magic during open what should avoid that? also tried using mkfifo create named pipe , execute it. used this: if (fp == null){ system("mkfifo /tmp/mine.pcap"); fp = popen("wireshark -k -i /tmp/mine.pcap", "r"); if (!fp){ dout << "cannot start wireshark"<<std::endl; throw std::invalid_argument("cannot start wireshark"); } input = fopen("/tmp/mine.pcap", "wb"); fprintf(input , d_msg); fclose(input)...
Read more

basic authentication with http post params android -

i doing basic authentication passing username , password , using basicnamevaluepair sending post params response service. my method: public stringbuilder callservicehttppost(string username, string password, string type) { // create new httpclient , post header httpclient httpclient = new defaulthttpclient(); httppost httppost = new httppost(webservice + type); httpresponse response = null; stringbuilder total = new stringbuilder(); try { url url = new url(webservice + type); /*string base64encodedcredentials = base64.encodetostring((username + ":" + password).getbytes(), base64.url_safe | base64.no_wrap);*/ string base64encodedcredentials = "basic " + base64.encodetostring( (username + ":" + password).getbytes(), base64.no_wrap); httppost.setheader("auth...
Read more

data.table making a copy of table in R -

i doing this: myfun <- function(inputvar_vec){ # inputvar_vec input vector # # result = output vector return(result) } dt[, result := lapply(.sd, myfun), = byvar, .sdcols = inputvar] i getting following warning: warning message: `in `[.data.table`(df1, , `:=`(prop, lapply(.sd, propeventinlastk)), : invalid .internal.selfref detected , fixed taking copy of whole table, := can add new column reference. @ earlier point, data.table has been copied r (or been created manually using structure() or similar). (and more stuff) .... ` my guess because stacking result vectors (after operation), copy being made? can suggest method remove warning? have done using apply functions , thought should extendable here too. my other question is: can pass chunk of rows data frame (subsetted using statement), , call function myfun operate on that? adding example requested # generate data n = 10000 default=na value = 1 df = data.table(id = sample(1:5000, n, replace=true), ...
Read more