display data in the combo box based on values in the table

[Shamli]

Hello Everyone
I need a help on this.
I have three Combo boxes.
and four tables.
Combo Box:
1. Element
2. Project
3. Employee

Table:
1. Element_tbl
2. Project_tbl
3. Emplyee_tbl
4. EmpToProj_tbl

First, the user selects an item from element combo box.
after update, it re queries the Project combo box.
here, the user have access to all the elements and all the projects.

Now, what my requirement is,
there are certain employees placed on specific projects. Only they should have access to those projects.
so what I wanted to check is, if the employee is present on the EmpToProj_tbl, then only those employees should have access to the projects mentioned in the table.
Rest of them should have access to other projects except the one in the EmpToProj_tbl.



I understand what to do. But not sure how to proceed it.

[ranman256]

your

EmpToProj_tbl would have those people assigned to the project,
when a user want to open the project, check the list to see if they are allowed (in form)
get their userID at form open,

sub Form_Load()
dim vUserID
dim bIsAllowed as boolean
 'get user id
vUserID = Environ("Username")
 'see if user can open this project
bIsAllowed =Not IsNull( Dlookup("[userID]" , "EmpToProj_tbl","[UserID]='" & vUserID & "' and [ProjID]=" & cboProj) )
btnOpenProj.enabled = bIsAllowed
end sub

[Shamli]

I tried this one.
But its throwing an error on the

btnOpenProj.enabled = bIsAllowed

your

EmpToProj_tbl would have those people assigned to the project,
when a user want to open the project, check the list to see if they are allowed (in form)
get their userID at form open,

sub Form_Load()
dim vUserID
dim bIsAllowed as boolean
 'get user id
vUserID = Environ("Username")
 'see if user can open this project
bIsAllowed =Not IsNull( Dlookup("[userID]" , "EmpToProj_tbl","[UserID]='" & vUserID & "' and [ProjID]=" & cboProj) )
btnOpenProj.enabled = bIsAllowed
end sub

[Shamli]

What is the btnOpenProj means?
Is it my combo box for the project?

your

EmpToProj_tbl would have those people assigned to the project,
when a user want to open the project, check the list to see if they are allowed (in form)
get their userID at form open,

sub Form_Load()
dim vUserID
dim bIsAllowed as boolean
 'get user id
vUserID = Environ("Username")
 'see if user can open this project
bIsAllowed =Not IsNull( Dlookup("[userID]" , "EmpToProj_tbl","[UserID]='" & vUserID & "' and [ProjID]=" & cboProj) )
btnOpenProj.enabled = bIsAllowed
end sub

[Shamli]

I have attached the Db for reference.
In DB.
All the three employees should have access to all the projects except. Project ID 3.
Only the Employee ID 3 have access to that and all the rest of the projects.Test.zip