vbKeyReturn problem (part 2)

[jseva]

The following code doesn't work...

My vbKeyReturn key when pressed is not invoking the 'cmdTotal_Click procedure. If I press 'shift' and 'enter', it does. Why? How can I make it so that I don't have to press 'shift' with the 'enter' key? Please advise.

Private Sub cmdClear_KeyPress(KeyCode as integer)

Select Case KeyCode
Case Is = vbKeyBack
Call cmdBack_Click
Case Is = vbKeyReturn
Call cmdTotal_Click
End Select

End Sub

 

[JohnYingling]

KeyCodes are for KeyDown and KeyUp.
Try
Private Sub cmdClear_KeyPress(KeyAscii as integer)

Select Case KeyAscii
Case Is = vbBack
Call cmdBack_Click
Case Is = vbCr
Call cmdTotal_Click
End Select

End Sub

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