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

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

vb.net - Virtual Keyboard commands -

i wondering difference between virtual these keyboard commands is: keyeventf_extendedkey , keyeventf_keyup is. everywhere have looked gives me description based off integers , not want know each of them does. you've tagged question vb.net, these have nothing @ vb.net. they're constants defined in windows header files, use win32 api functions. as far difference, can't tell looking @ values. individual values not particularly important, that's why named identifiers used. what's important used , documentation functions tells mean. the first one, keyeventf_extendedkey , used keybdinput structure (which used along e.g. sendinput function) pass information synthesized keyboard input. if flag used, means scan code should interpreted extended key. technically, means scan code preceded prefix byte value 224 (&he0 in hexadecimal notation). the second one, keyeventf_keyup , 1 of flags available use structure. means key being released (going up)...
Read more

css - Firefox for ubuntu renders wrong colors -

Image
i've got following problem: i'm developing website, while testing around i've noticed firefox , chromium display css bar in different colors. when switched between several machine come conclusion firefox ubuntu problem. on other devices i've tested website. it's fine. the differences between chrome , firefox rendering: firefox: chromium: note: firefox ubuntu problem. does knows why , came solution? https://bugzilla.mozilla.org/show_bug.cgi?id=655637 bug 629312 - firefox displays wrong colors on image (only linux) open about:config , rechange gfx.color_management.mode 2 0.
Read more