Enter Key Press Disable If TextBox is Empty

[AsifShah]

Hello Everyone,

If TextBox6 is empty then Enter Key Press will disable and TextBox6 set focus curser did not move to any other TextBox

 

[Micron]

why bother with that if a user can tab out or use mouse to click out? Wouldn't you need to cover all situations? If yes, you could use the control's exit event and cancel it if the control has no value.

 

[AsifShah]

why bother with that if a user can tab out or use mouse to click out? Wouldn't you need to cover all situations? If yes, you could use the control's exit event and cancel it if the control has no value.

There are 10 textbox in userform and one command button.
Some boxes are empty and need to save data so I hold enter key until it reaches the command button and command button have set focus command (TextBox1.setfocuse).
Textbox1 is automatically selected, sometimes the mouse cursor reaches textbox3 and textbox4 when the enter key is pressed for a long time.That's why I want mouse cursor to be set focus in the taxbox1 until taxbox1 is empty.

 

[Micron]

That doesn't answer my question about how this stops anyone from using mouse or tab key.
I guess try this in the keydown event for the textbox then

If KeyCode = 13 Then KeyCode = 0

 

[Logit]

Paste the following in the UserForm:

Option Explicit

Private Sub CommandButton1_Click()

Dim ctrl As Control      ' CREATE A CONTROL OBJECT.

    ' LOOP THROUGH EACH CONTROL, CHECK IF THE CONTROL IS A TEXTBOX.
    For Each ctrl In Me.Controls
        If TypeName(ctrl) = "TextBox" Then
            If ctrl.Value = "" Then
                ctrl.SetFocus
                MsgBox "All Textboxes must have data !", vbCritical, "Error"
                Exit Sub
            End If
        End If
    Next ctrl
    
End Sub

 

[AsifShah]

Paste the following in the UserForm:

Option Explicit

Private Sub CommandButton1_Click()

Dim ctrl As Control      ' CREATE A CONTROL OBJECT.

    ' LOOP THROUGH EACH CONTROL, CHECK IF THE CONTROL IS A TEXTBOX.
    For Each ctrl In Me.Controls
        If TypeName(ctrl) = "TextBox" Then
            If ctrl.Value = "" Then
                ctrl.SetFocus
                MsgBox "All Textboxes must have data !", vbCritical, "Error"
                Exit Sub
            End If
        End If
    Next ctrl
   
End Sub

Thanks for your time dear .. But i was try this.. it dose not work like i want.

 

[AsifShah]

That doesn't answer my question about how this stops anyone from using mouse or tab key.
I guess try this in the keydown event for the textbox then

If KeyCode = 13 Then KeyCode = 0

i was just add

If TextBox6.Value = "" Then
If KeyCode = 13 Then KeyCode = 0
End If

and its work perfect and thank you for giving me time from your precious time.