TextBox KeyPress problem

[Tim8w]

I have a TextBox control called TextBoxTotal on my form. When I try and run the program, I get the following error:

"Procedure declaration does not match description of event or procedure having the same name"

Here is the sub in question

Private Sub TextBoxTotal_KeyPress(KeyAscii As Integer)
Select Case KeyAscii
Case 48 To 57
'Ok to type these keys
Case Else
KeyAscii = 0
End Select
End Sub

Something else curious, if I rename the sub to Text1_KeyPress the error goes away, but the sub never gets called. (I have no TextBox called Text1 defined on the form)

Any ideas?

Thanks,
Tim

 

[vb5prgrmr]

Do you have an array of these textboxes? If not then remove the "KeyAscii As Integer" from the declaration.

Good Luck

 

[johnwm]

The usual reason for that error is having 2 procedures with the same name. Do an Edit|Find for 'Sub TextBoxTotal_KeyPress' and make sure there's only one of them in scope. (i.e. on the form or in a code module)

Errmmm - vb5prgrmr - KeyAscii is the code of the key passed in all keypress events - are you thinking of Index?


________________________________________________________________
If you want to get the best response to a question, please check out FAQ222-2244 first

'People who live in windowed environments shouldn't cast pointers.'

 

[Tim8w]

Removing the parameters doesn't help. All I'm trying to do is trap when a CR is typed into a singleline TextBox. There is no control array, just a single TextBox in the form. I have a global Form_KeyPress defined also, but it won't catch the CR in the TextBox.

 

[vb5prgrmr]

Ahhhh....yeahhh, welll duhhh!!! Its Friday and my mind is else where, now if only my body can catch up!!!

 

[Tim8w]

All,

Found the problem. The TextBox I was using was from MS.Forms so the declaraction had to be as follows:

Private Sub TextBoxTotal_KeyPress(KeyCode As MSForms.ReturnInteger)
End Sub

Thanks,
Tim