Keypress Textbox

[gti_jobert]

Hi all,

I have a userform with a cmdButton, lstBox, and txtBox - the userform
acts as a search tool for part numbers;


Code:
--------------------

Public Function searchPart(partNumber)

Dim i%, rowParts%, Count As Integer

Select Case frmMain.cbxSection.Value

Case "Heading": rowParts = 7
Case "Briv Cartridge": rowParts = 9
Case "Pace": rowParts = 11
Case "Thread Rolling": rowParts = 13
Case "Podding": rowParts = 15

End Select

ActiveWorkbook.Sheets("RelationalData").Activate
Range("A1").Select

If partNumber <> "" Then

frmSearch.lstResult.Clear
i = 3: Count = 0
Do
If InStr(1, Cells(i, rowParts).Value, partNumber, vbTextCompare) <> 0 Then
With frmSearch.lstResult
.AddItem Cells(i, rowParts).Value
Count = Count + 1
End With
End If
i = i + 1
Loop Until Cells(i, rowParts).Value = ""

If Count = 0 Then
With frmSearch.lstResult
.AddItem "No Match Found"
End With
End If

End If

frmSearch.lstResult.TopIndex = 1
frmSearch.lstResult.ListIndex = 0
frmSearch.lstResult.SetFocus

End Function

--------------------


I am trying to make the form more usable, so when I press enter whilst
in the txtBox it will call my function above - I have tried various
methods but everytime I press 'enter' it moves focus to the cmdButton.

Any ideas or suggestions?

Thanks

 

[Guest]

Hi, If I did you understand good so go to Commandbutton propertis and set
Deafult as False or paste it into the code like this:

CommandButton1.Default = True

Then if you hit the ENTER the Commandbutton would not have the focus.

Henrich

„gti_jobert" napísal (napísala):

 

[gti_jobert]

Sorted Henrich, that works perfectly!

Thanks alot!