直属主管根据部门职务来自动显示

欧阳空竹　发表于：2010-09-01 21:36:19 　

复制

点击下载此附件

要求是这样的，新员工入职，最后一项直属主管是通过新员工的部门和职务体现的。

比如新入职的是员工部门是销售部，那么直属主管就显示销售部职务是主管的人。

新入职的是主管部门是销售部，那么直属主管就显示销售部职务是经历的人。

Top

乩üP廿囧发表于：2010-09-01 22:14:58

Option Compare Database

Private Sub 部门_AfterUpdate()
Me.直属主管 = ""
End Sub

Private Sub 职务_AfterUpdate()
Me.直属主管 = ""
Select Case Me.职务
Case "员工"
Me.直属主管.RowSource = "select 姓名 from 入职表 where 部门 = '" & Me.部门 & "' and 职务 = '主管'"
Case "主管"
Me.直属主管.RowSource = "select 姓名 from 入职表 where 部门 = '" & Me.部门 & "' and 职务 = '经理'"
End Select
End Sub

Top

乩üP廿囧发表于：2010-09-01 22:15:18

附件

点击下载此附件

Top

总记录：2篇页次：1/1 9 1 :

Access交流中心

直属主管根据部门 职务来 自动显示

直属主管根据部门职务来自动显示