Set focus on the textbox after the message.

[danbates]

Hi,

I have the following code that triggers a message if one of the text boxes hasn't been entered.

If ((Me.TextBox2.Text = "") * (Me.TextBox3.Text = "") * (Me.TextBox4.Text = "") * (Me.TextBox5.Text = "") * (Me.TextBox6.Text = "") * (Me.TextBox7.Text = "") * (Me.TextBox8.Text = "") * (Me.TextBox9.Text = "")) Then
MsgBox "QTY not entered!", vbInformation, "Milk Room Operator"
    Exit Sub
    End If

What I would like is if the message is triggered, the message is ok'd then that textbox becomes active again with the curser flashing.

Any help would be much appreciated.

Thanks
Dan

 

[danbates]

I don't know what dropbox is Dave, sorry.
What I can do is start a thread on Excel Help Forum and put my file on there and then provide the link on here?
Would that be ok?

 

[dmt32]

Hi,
Excel Help forum is not a site I am registered with but its a matter for you if want to start a thread there just be mindful of cross posting rules.

Mr Excel does not have the attach file option like other sites & most users here place their file in a dropbox (or similar) to enable file sharing.

More about Dropbox here:https://www.dropbox.com/individual

Dave

 

[danbates]

Hi Dave,

Sorry I didn't get in touch yesterday, I was at a christening.

I've downloaded dropbox, how do I share the file with you?

Thanks

Dan

 

[dmt32]

just place file in a public folder & provide link to it here

 

[danbates]

Hi Dave,

I'm not sure I've done it right but try this link.

https://www.dropbox.com/s/7ht21u5st1t64tq/test.xlsm?dl=0

The dropbox I downloaded doesn't have a public folder but asked me for a name or email to share the file.

If it has worked then your code is in LiNE11Form / Sign Off & Save button.

Thanks

Dan

 

[dmt32]

Try this update

For x = 2 To 9
    With Me.Controls("TextBox" & x)
        If .Visible And Len(.Text) = 0 Then
            MsgBox "QTY not entered!", 64, "Entry Required"
           If .Enabled Then .SetFocus
            Exit Sub
        End If
    End With
    Next x

Dave

 

[danbates]

Hi Dave,

Yes that has sorted it. Thank you so much, it really is appreciated.

Kind Regards

Dan

 

[dmt32]

Hi Dave,

Yes that has sorted it. Thank you so much, it really is appreciated.

Kind Regards

Dan

welcome - glad we got there.

Dave