N
njosgood via AccessMonster.com
I would appreciate any help.
I have an unbound combo box that I need to look up an Employee name, when I
click on the desired name I would like it to update the following fields on
my form. Employee Id, Employee Last Name, Employee First Name.
Combo box 10
Row Source: SELECT [tbl_Employee].[EmployeeID], [tbl_Employee].
[EmployeeLastName], [tbl_Employee].[EmployeeFirstName] FROM tbl_Employee
ORDER BY [tbl_Employee].[EmployeeLastName], [tbl_Employee].[EmployeeFirstName]
;
Bound column 1
AfterUpdate:
Private Sub Combo10_AfterUpdate()
' Find the record that matches the control.
Dim rs As Object
Set rs = Me.Recordset.Clone
rs.FindFirst "[MemberID] = " & Str(Me![Combo10])
Me.Bookmark = rs.Bookmark
End Sub
I have an unbound combo box that I need to look up an Employee name, when I
click on the desired name I would like it to update the following fields on
my form. Employee Id, Employee Last Name, Employee First Name.
Combo box 10
Row Source: SELECT [tbl_Employee].[EmployeeID], [tbl_Employee].
[EmployeeLastName], [tbl_Employee].[EmployeeFirstName] FROM tbl_Employee
ORDER BY [tbl_Employee].[EmployeeLastName], [tbl_Employee].[EmployeeFirstName]
;
Bound column 1
AfterUpdate:
Private Sub Combo10_AfterUpdate()
' Find the record that matches the control.
Dim rs As Object
Set rs = Me.Recordset.Clone
rs.FindFirst "[MemberID] = " & Str(Me![Combo10])
Me.Bookmark = rs.Bookmark
End Sub