Posted to microsoft.public.excel.programming
|
|
Keypress Textbox
Sorted Henrich, that works perfectly!
Thanks alot!
Henrich Wrote:
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):
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
--
gti_jobert
------------------------------------------------------------------------
gti_jobert's Profile:
http://www.excelforum.com/member.php...o&userid=30634
View this thread:
http://www.excelforum.com/showthread...hreadid=520474
--
gti_jobert
------------------------------------------------------------------------
gti_jobert's Profile: http://www.excelforum.com/member.php...o&userid=30634
View this thread: http://www.excelforum.com/showthread...hreadid=520474
|