Set Security Level: MS Access

TGoldenEye

Enter VBA code on the on Load Event on Navigation Form

Private Sub Form_Load()
Dim Security As Integer
Dim User As StringUser = Environ(“USERNAME”)
Me.txtLogin = User
Me.txtUser = DLookup(“userName”, “tblUser”, “[userLogin] = ‘” & User & “‘”)

If IsNull(DLookup(“userSecurity”, “tblUser”, “[userLogin] = ‘” & Me.txtLogin & “‘”)) Then
MsgBox “No Usersecurity set up for this user. Please contact the Admin”, vbOKOnly, “Login Info”
Me.NavigationButton13.Enabled = False
Else
Security = DLookup(“Usersecurity”, “tblUser”, “[UserLogin] = ‘” & Me.txtLogin & “‘”)
If Security = 1 Then
Me.NavigationButton13.Enabled = True

Else
Me.NavigationButton13.Enabled = False
End If

End If

End Sub

tadalafil overnight SafeWay Driving has earned a good reputation in the business as it has been dealing the top lifting gear manufacturers in the world. But in actual, its needs extra vigilance so that adverse side effects from viagra results can be avoided when taking kamagra without stimulation. viagra 25mg prix They just need to order the medication online via reputable e-pharmacies – and without a prescription. Therefore, more number of people is turning their eyes towards herbal treatments in stead of surgical or chemical based treatments to cure effects of aging. purchase generic viagra http://icks.org/n/data/ijks/1482467798_add_file_9.pdf

Related posts

3 Thoughts to “Set Security Level: MS Access”

  1. travel deal
    September 9, 2014 at 5:20 am

    Gгeate article. Keep pοsting such kind of information on your page.
    Im reallʏ impressed by yοur blog.
    Hi there, You ave performed a great job. I will definitely digg it and iin my opinion suggest to my friends.
    I am cοnfident they’ll be benefited from this site.

    Reѵiew mmy pagе travel deal

  2. Amir
    April 25, 2014 at 5:52 pm

    what is the txtlogin the utube vedio did not mention to this field at all

    1. TGoldenEye
      April 26, 2014 at 9:28 pm

      txtlogin is a textbox on Navigation form.
      dim user as string
      user = environ(“Username”)
      use me.txtlogin = user to get a computer login id.
      or you can pass the username from the Log in form to txtlogin on the Navigation form. txtlogin is mentioned on anohter video like Create Login Form

Comments are closed.