Question

所有

我想创建一个用于捕获员工技能和项目的Access 2007表单。

用户首先选择的是从下拉菜单中选择一个经理。

应生成该经理下的员工名单。

然后选择一名员工，这将允许添加多种技能，多年经验，关键资源标志等。

任何帮助都将不胜感激。

Answer 1

在Manager下拉列表的after_update事件中，将选择员工的代码放入您要显示的内容中 - 列表框或子窗体或其他组合框。

Private Sub Cb_Manager_AfterUpdate()
    Me.List59.RowSource = "select EmpID & '-' & EmpName from employee where manager = '" & Me.cb_Manager & "' "
    Me.List59.Requery
End Sub

现在，在Employee列表的onClick事件中，放置代码以使用Emp ID执行某些操作：

Private Sub List59_Click()
Dim emp() As String
emp = Split(List59.Value, "-")

MsgBox "Selected: " & emp(0)  ' ---- Or Open a form with the Emp ID as the filter??

End Sub

使用两个级联查找在Access中创建表单

1 个答案: