Text box setfocus

[alk1000]

Hi All,

What I’m trying to do is straight forward.
I’ve a form with multiple textboxes, I validate textbox4 value to be between 2 numbers based on a combolist selection; if it's not then a Msgbox will show up detailing what should be done. I’m using the below afterupdate lines:

Private Sub TextBox4_AfterUpdate()
If DEForm.TextBox4 <> "" Then
DNinterval = Split(DEForm.ComboBox6.Value, " - ")
DNLower = CLng(DNinterval(0))
DNUpper = CLng(DNinterval(1))
If CLng(DEForm.TextBox4) < DNLower Or CLng(DEForm.TextBox4) > DNUpper Then
MsgBox "Please enter an extension between " & DNLower & " and " & DNUpper, vbCritical + vbOKOnly, "Illegal Data Entry"
DEForm.TextBox4.SetFocus
Exit Sub
End If
End If
End Sub

But when I type a number which doesn’t meet my test criterion, I got the error message box but the focus won’t come back to textbox4!

Does anyone have a clue on why this is happening and how can I leave the cursor into textbox4 till the user types a valid entry.

Cheers,
Daniel
Ps: combobox6 will have a value like: 88500 - 88999

 

[Legacy 98055]

Use the BeforeUpdate Event and return its cancel argument as true.

 

[alk1000]

Thanks Tom,

I tried it, it still doesn't move the cursor back to textbox4! so if I put a value which doesn't match my validation test, and I try to click inside another textbox, the MsgBox pops up but the cursor doesn't appear in any of the textboxes! but pressing TAB works perfectly, the MsgBox pops up and the cursor stays in textbox4. Any clue!

Below is how it looks now:

Private Sub TextBox4_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)
If DEForm.TextBox4 <> "" Then
DNinterval = Split(DEForm.ComboBox6.Value, " - ")
DNLower = CLng(DNinterval(0))
DNUpper = CLng(DNinterval(1))
If CLng(DEForm.TextBox4) < DNLower Or CLng(DEForm.TextBox4) > DNUpper Then
MsgBox "Please enter an extension between " & DNLower & " and " & DNUpper, vbCritical + vbOKOnly, "Illegal Data Entry"
Cancel = True
DEForm.TextBox4.SetFocus
Exit Sub
End If
End If
End Sub

Tom, another point, what if the user put a wrong value but then decides to click on the "Quit" button on the form, how can I avoid this test from happening? The Quit button, just unload the form.
Cheers,
Daniel

 

[Legacy 98055]

The setfocus method only applies to frames. Why? I don't know. Probably because textboxes in msforms are windowless. Frames are windowed controls. This code worked for me.

Dim ForeGoTest As Boolean

Private Sub Quit_Click()
    ForeGoTest = True
    Unload Me
End Sub

Private Sub TextBox4_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)
    If DEForm.TextBox4 <> "" Then
        DNinterval = Split(DEForm.ComboBox6.Value, " - ")
        DNLower = CLng(DNinterval(0))
        DNUpper = CLng(DNinterval(1))
        If (CLng(DEForm.TextBox4) < DNLower Or CLng(DEForm.TextBox4) > DNUpper) And Not ForeGoTest Then
            Cancel = True
            MsgBox "Please enter an extension between " & DNLower & " and " & DNUpper, vbCritical + vbOKOnly, "Illegal Data Entry"
        Exit Sub
        End If
    End If
End Sub

Download the example that contains a mock setup of your form.

<a href="http://home.fuse.net/tstom/0623081117.326163.zip"><img src="http://home.fuse.net/tstom/zip.gif"width="48"height="48"border="0"></a> <a href="http://home.fuse.net/tstom/0623081117.326163.zip">0623081117.326163.zip</a>

As for your Quit button. Make sure that its "TakeFocusOnClick" property is set to false. Also, if this is your default cancel button, set the Cancel property to true. This will allow an exit using the cancel key which is the default behavior in many window's forms applications.

 

[alk1000]

Many many thanks Tom,


I found out why the cursor is not coming back to textBox4 but not sure how to fix it.
The reason is the use of Frames. I would've attached my form to show it to you but I don't have the right to attach documents .
In a nutshell I've 2 Frames, Frame1 encompasses the whole form where all toolboxes resides and then Frame2 -is inside Frame1- where TextBox4 and ComboList6 resides!

have you ever came across such scenario!

 

[Legacy 98055]

Email it...
tstom@fuse.net