Using (Chr$(13)) to submit data in a TextBox (SOLVED)

[phantom1975]

I tried this and it won't work:

Private Sub TextBox1_Change()
Application.Onkey "{ENTER}" Or "~","Macro1"
End Sub

Basically, after the user enters data into the TextBox and hits the either ENTER key, I want to run Macro1.

What should I do instead?


_________________
Pass on what you have learned. Support this great website by clicking on the sponsor's ads!.
This message was edited by phantom1975 on 2002-08-22 23:38
This message was edited by phantom1975 on 2002-08-23 01:20

 

[Nybbe]

where is you inputbox called?

Maybe you could make another function that is your own ustom textbox where you have full control of when the user finishes it?

 

[phantom1975]

The TextBox is within a UserForm. When the UserForm is activated, the user would input data into the TextBox. Once the user types their data in the TextBox, they will push the ENTER key to submit the data. I can't seem to figure out how to code the ENTER key event.

 

[Nybbe]

Sorry, I don't know this one either. Maybe you could use the event TextBox1_Exit(). You would of course get this whenever the cursor leaves the textbox....

 

[Swamp Thing]

Add a command button labeled "submit" to the userform. Set the "default" property of the button to True.

Now when you press the enter key, the click event of the button will be activated (even if the text box has focus at that moment). There you can add Me.Hide, or any other code that you want.
This message was edited by swamp thing on 2002-08-23 00:53

 

[phantom1975]

I was trying to get away from having a CommandButton. I know that I can use your code and simply have the CommandButton placed outside of the UserForm width or height. The problem there is that the ENTER key will only work as long as the CommandButton has focus. Once the user starts typing into the TextBox, the TextBox will have focus and the ENTER key will do nothing.

 

[Swamp Thing]

What you say applies when CommandButton.Default is set to False. If it is set to True, then the enter key will trigger the button even when typing into the box (when the box obviously has focus!).

Honest!
This message was edited by Swamp Thing on 2002-08-23 01:01

 

[phantom1975]

I tried it, and it seems to activate the code for the CommandButton_Click event as soon as the UserForm is activated. The event I have for the CommandButton_Click is to Unload the UserForm that the CommandButton is located on and Unhide (Show) a different UserForm.

Since I have the CommandButton = True in the UserForm_Initialize event, it seems to click the button as soon as the UserForm is brought up, so it immediately unloads the UserForm as soon as it is activated.

 

[Swamp Thing]

Please post the code..
regards,
ST

 

[phantom1975]

I just found what I am looking for!

Private Sub TextBox1_KeyDown()

If Keycode = 13 Then
Unload Me
UserForm2.Show
End Sub