Expand|Select|Wrap|Line Numbers
- Private Sub Combo83_AfterUpdate()
- ' Find the record that matches the control.
- Dim rs As Object
- Set rs = Me.Recordset.Clone
- rs.FindFirst "[EMP_ID] = '" & Me![Combo83] & "'"
- If Not rs.EOF Then Me.Bookmark = rs.Bookmark
- End Sub
Expand|Select|Wrap|Line Numbers
- Row Source for Employee Name
- SELECT T_EMPLOYEE.EMP_ID, T_EMPLOYEE.EMP_NAME FROM T_EMPLOYEE;
Expand|Select|Wrap|Line Numbers
- Row Source for Employee ID
- SELECT T_EMPLOYEE.EMP_ID FROM T_EMPLOYEE;
Thank you VERY much for your assistance