Lock Form Controls based on a user ID lookup in a Table

[DoctorV3774]

I need a function to do the following when opening a Form named NewFrm_MainTemplate.

I need the function to look at the user id of the person attempting to open the form. Their Windows user ID will be in a Table we have named Tbl_Employee-----Field name is Employee_Win_User_ID

Also in the Table is a Filed named Main_Form_Rights This field contains 2 Values Administrator or View Only


What I need is to match the users Windows ID against Employee_Win_User_ID, thenm lookup in the field Main_Form_Rights.

If the value in Main_Form_Rights for that Windows User ID is View Only Then I need the following controls on the form NewFrm_MainTemplate locked

TxtCategory
cbo_Priority
Txt_InitialComments
cbo_WorkCategory
cbo_WorkType

If the value in Main_Form_Rights for that Windows User ID is Administrator Then I need the following controls on the form NewFrm_MainTemplate unlocked

TxtCategory
cbo_Priority
Txt_InitialComments
cbo_WorkCategory
cbo_WorkType

How can iput this in a module function so I can call this when opening the form?

Thanks

[PEB]

Hi,

Function lock_form(is_admin) As boolean
 
If is_admin=True then
Forms!NewFrm_MainTemplate!TxtCategory.Locked=false
Forms!NewFrm_MainTemplate!cbo_Priority.Locked=false
Forms!NewFrm_MainTemplate!Txt_InitialComments.Locked=false
Forms!NewFrm_MainTemplate!cbo_WorkCategory.Locked=false
Forms!NewFrm_MainTemplate!cbo_WorkType.Locked=false
Else
Forms!NewFrm_MainTemplate!TxtCategory.Locked=True
Forms!NewFrm_MainTemplate!cbo_Priority.Locked=True
Forms!NewFrm_MainTemplate!Txt_InitialComments.Locked=True
Forms!NewFrm_MainTemplate!cbo_WorkCategory.Locked=True
Forms!NewFrm_MainTemplate!cbo_WorkType.Locked=True
end if
end function
 
Have a nice day
:)
 

I need a function to do the following when opening a Form named NewFrm_MainTemplate.

I need the function to look at the user id of the person attempting to open the form. Their Windows user ID will be in a Table we have named Tbl_Employee-----Field name is Employee_Win_User_ID

Also in the Table is a Filed named Main_Form_Rights This field contains 2 Values Administrator or View Only


What I need is to match the users Windows ID against Employee_Win_User_ID, thenm lookup in the field Main_Form_Rights.

If the value in Main_Form_Rights for that Windows User ID is View Only Then I need the following controls on the form NewFrm_MainTemplate locked

TxtCategory
cbo_Priority
Txt_InitialComments
cbo_WorkCategory
cbo_WorkType

If the value in Main_Form_Rights for that Windows User ID is Administrator Then I need the following controls on the form NewFrm_MainTemplate unlocked

TxtCategory
cbo_Priority
Txt_InitialComments
cbo_WorkCategory
cbo_WorkType

How can iput this in a module function so I can call this when opening the form?

Thanks