trouble starting a function in keypress event

[chiuchimuN]

I have a search function that finds a listview match from a textbox and scrolls to show this match. The function works fine when placed in a buttons click event but won't start when placed in the textbox keypress event.

Command1_Click()
SearchShow
end sub

Text1_KeyPress(keyascii as integer)
SearchShow
end sub

SearchShow()
Dim S$
S=Text1.Text
//code that searches here(Works fine)
...
end sub

I want this search to behave like the MSDN help index so that is why I want to place function in Keypress.

 

[sunaj]

Hi,

In order for the Text1_keypress event to fire, the textbox must be in focus.
Try and put the code in the forms keypress event and set the forms keypreview property to true.
Sunaj
'The gap between theory and practice is not as wide in theory as it is in practice'

 

[chiuchimuN]

Did'nt work. I'm actually doing this in VBA (Access2000) so maybe this is why I can't trigger function from Keypress.

 

[JohnYingling]

You are using S=Text1.Text
in SearchShow but the entered character will not be put into text1.Text until after keypress and KeyAscii is not 0. Try the change event.

http://www.VBResizer.com

Generate Forms/Controls Resizing/Tabbing Class

http://www.VBCompare.com

Compare Code (Text)

http://www.VBSortGen.com

Generate Sort Class in VB or VBScript

 

[chiuchimuN]

JohnYingling, you're right about Keypress() Vs change(). The change event worked in VB but not in VBA.