finding records

[Chris]

I have several read only datasheet subforms for which I would like to
incorporate a feature similar to the auto expand of a combo box i.e.
user presses a series of keys and and the record pointer jumps to the
nearest match.

I have successfully managed this with a single keypress by calling
following procedure from the forms on key press event

Function FindData(KeyPre ssed)
Dim rst As Recordset
Dim k As String
Dim frm As Form

Set frm = Forms!simpleRec ordSheet.Record Sheet.Form
k = "[" & frm.activeContr ol.ControlSourc e & "] Like '" &
Chr(KeyPressed) & "*'"
Set rst = frm.RecordsetCl one
rst.FindFirst (k)
If Not rst.NoMatch Then
frm.Bookmark = rst.Bookmark
End If
rst.Close
Set rst = Nothing
End Function

But how to trap successive keystrokes via key press event?

I am thinking along the lines of storing the keys pressed in an
invisble text control and then running the find routine if there is no
keyboard activity for about 1 second - though I am stumped on how to
control this.

I suppose the easy way out would be to pop up the find dialog box but
that isn't very seamless for the user. Any suggestions to how this
might be solved would be a great help.

Thanks

Chris

[TC]

Use the Change event of the textbox where the user enters the value. That
event will fire >the instant< the user changes the textbox value. (The
BeforeUpdate event only fires when he tries to leave the textbox.) Code in
the Change event can then use Me![xxx].Text as the value to be searched for.

HTH,
TC
"Chris" <ch**********@h otmail.com> wrote in message
news:f0******** *************** ***@posting.goo gle.com...

I have several read only datasheet subforms for which I would like to
incorporate a feature similar to the auto expand of a combo box i.e.
user presses a series of keys and and the record pointer jumps to the
nearest match.

I have successfully managed this with a single keypress by calling
following procedure from the forms on key press event

Function FindData(KeyPre ssed)
Dim rst As Recordset
Dim k As String
Dim frm As Form

Set frm = Forms!simpleRec ordSheet.Record Sheet.Form
k = "[" & frm.activeContr ol.ControlSourc e & "] Like '" &
Chr(KeyPressed) & "*'"
Set rst = frm.RecordsetCl one
rst.FindFirst (k)
If Not rst.NoMatch Then
frm.Bookmark = rst.Bookmark
End If
rst.Close
Set rst = Nothing
End Function

But how to trap successive keystrokes via key press event?

I am thinking along the lines of storing the keys pressed in an
invisble text control and then running the find routine if there is no
keyboard activity for about 1 second - though I am stumped on how to
control this.

I suppose the easy way out would be to pop up the find dialog box but
that isn't very seamless for the user. Any suggestions to how this
might be solved would be a great help.

Thanks

Chris