I have done this in the past and used the KeyPress event.Here's an example:Option Compare DatabaseOption ExplicitDim CurrStr As StringDim LastTime As DatePrivate Sub SomeTextBox_KeyPress(KeyAscii As Integer) If (KeyAscii >= 32) And (KeyAscii <= 127) Then If DateDiff("s", LastTime, Now()) > 2 Then CurrStr = "" End If LastTime = Now() CurrStr = CurrStr & Chr(KeyAscii) DoCmd.FindRecord CurrStr, acStart, , acSearchAll, , acCurrent, True Else CurrStr = "" End IfEnd Sub
Notice that we have a "time out" feature, that after 2 seconds, the search string is "reset" and you can start over. this should get you started.- Jeffhttp://weblogs.sqlteam.com/JeffS