S
Song Su
My table has 2 separate field: Last, First
I want a combo to find name and allow people to type Last SPACE First. So my
recordsourse for the combo box is:
SELECT [Last] & " " & [First] AS name FROM tblMaster ORDER BY [Last] & " " &
[First];
How to connect LastSPACEFirst in rs.FindFirst in AfterUpdate event?
Private Sub cboFind_AfterUpdate()
' Find the record that matches the control.
Dim rs As Object
Set rs = Me.Recordset.Clone
rs.FindFirst "[Last] = '" & Me![cboFind] & "'"
Me.Bookmark = rs.Bookmark
Last.SetFocus
End Sub
I want a combo to find name and allow people to type Last SPACE First. So my
recordsourse for the combo box is:
SELECT [Last] & " " & [First] AS name FROM tblMaster ORDER BY [Last] & " " &
[First];
How to connect LastSPACEFirst in rs.FindFirst in AfterUpdate event?
Private Sub cboFind_AfterUpdate()
' Find the record that matches the control.
Dim rs As Object
Set rs = Me.Recordset.Clone
rs.FindFirst "[Last] = '" & Me![cboFind] & "'"
Me.Bookmark = rs.Bookmark
Last.SetFocus
End Sub