M
Manton
I have a form which contains a list box (with four columns inside the box)
and next to the box there are several fields ie. A/c #, dates etc.
There is no tab stop for the list box.
There are existing records in the list box.
The user tabs through the existing fields and eventually goes on to the next
record.
Problem. When the user tabs/enters into the next record, the equivalent
record in the list box is not highlighted. The highlighted record in the
list box remains on the first record in the box. I want the list box to
show the record that the user is in (while working on the fields next to the
list box).
Listbox Property:
Unbound
Rowtype: Table/Query
Rowsource: SELECT [qry GSHREQ daily].[State],[qry GSHREQ daily].[A/c
#],[qry GSHREQ daily].[Status],[qry GSHREQ daily].[Date Requested] FROM [qry
GSHREQ daily];
in the module:
--------------------------
AfterUpdate:
Private Sub List18_AfterUpdate()
'Find the record that matches the control.
Dim rs As Object
Set rs=Me.Recordset.Clone
rs.FindFirst "[A/c #]='"&Me![List18] & ""'
Me.Bookmark=rs.Bookmark
End Sub
and next to the box there are several fields ie. A/c #, dates etc.
There is no tab stop for the list box.
There are existing records in the list box.
The user tabs through the existing fields and eventually goes on to the next
record.
Problem. When the user tabs/enters into the next record, the equivalent
record in the list box is not highlighted. The highlighted record in the
list box remains on the first record in the box. I want the list box to
show the record that the user is in (while working on the fields next to the
list box).
Listbox Property:
Unbound
Rowtype: Table/Query
Rowsource: SELECT [qry GSHREQ daily].[State],[qry GSHREQ daily].[A/c
#],[qry GSHREQ daily].[Status],[qry GSHREQ daily].[Date Requested] FROM [qry
GSHREQ daily];
in the module:
--------------------------
AfterUpdate:
Private Sub List18_AfterUpdate()
'Find the record that matches the control.
Dim rs As Object
Set rs=Me.Recordset.Clone
rs.FindFirst "[A/c #]='"&Me![List18] & ""'
Me.Bookmark=rs.Bookmark
End Sub