Lostfocus check before menu change

[Chrissie]

Me again here...

I have a small problem...
I have some textboxes some are checked like the code below...

Private Sub Text1_LostFocus()
    If Text1.DataChanged Then
        MsgBox "Bla"
    End If
End Sub

I also have a menu bar which has some actions which loads another form. Problem is I really need the MsgBox when the data is Changed as I need some Yes/No from it to make some calculation.

I don't want Form2 to appear before checked for the Text Change...it can only appear after the text has been checked for a change. Got it? Thanks

[peet]

I think what you need is to put the check into the validate event of the textbox.

[Chrissie]

How would I ever to be able to set...my lostfocus is checking for a lot of things...

But when I go to the next form by clicking on another menu item it won't check the lostfocus before it loads the new form..that's all

Note.
When I use a CommandButton...it checks the lostfocus first....I want to have this to happen when I click a menu-item aswell...

[honeybee]

LostFocus may not be fired in quite a few cases, for e.g. pressing a hotkey combination to "click" a button on a form. Therefore if you want to have some code run everytime a textbox or another control loses focus, it's better to place it in the Validate event. What are your reasons for not using the Validate event?

.

[Chrissie]

Reason...I've never heared of it...can somebody explain it?

[si_the_geek]

it's basically the same as lostfocus, but will also be called when menu's etc get the focus, in fact any time the box is left.

[honeybee]

Originally posted by Chrissie
Reason...I've never heared of it...can somebody explain it?

Firstly, you can use it only if you have VB6.0

Secondly, unlike the LostFocus event, the Validate event for a control lets you decide if focus can move out of the control or the focus should stay in the control. For e.g. you could write code in the Validate event of a textbox to see if the user had entered the correct data, and if the data is not correct, you could set the focus back to the textbox. This way the user wouldn't be able to leave the textbox unless he entered the correct data.

An example:

Private Sub Text1_Validate(Cancel As Boolean)
    If UCase(Text1.Text) = "CHRISSIE" Then
        MsgBox "Correct!"
        Cancel = False
    Else
        MsgBox "Wrong!!"
        Cancel = True
    End If
End Sub

The above code will not allow you to leave the textbox unless you enter "Chrissie" into it. If you were to write this code in the LostFocus event, you could only show a messagebox saying "Wrong!!" to the user in case of wrong input, but you could not force the user to go back and correct the data in the textbox, which you can do with the Validate event.

There are a few other things to note about this event, but you can either learn them yourself, or first familiarize yourself with the Validate event and then ask for those things.

.

[Chrissie]

How to call the Validate function? Not like this..that doesn't work for me..

Private Sub Text1_Validate()
    If Text1.DataChanged Then
        MsgBox "Bla"
    End If
End Sub

[honeybee]

The Validate() is an event which will be called automatically, just like LostFocus, when the user tries to leave the textbox and move to another control, maybe click a button.

In order to write code in this event, in design mode of your form, double-click a textbox. When the code window appears, select the Validate event from the list of events at the top (just like you would write code in the Click or Change events). Then write the code in the event.

.

[Chrissie]

I forgot the Cancel as Boolean I suppose

[honeybee]

Originally posted by Chrissie
I forgot the Cancel as Boolean I suppose

I missed that too, I wrote it as in Integer . Actually that's from writing code in too many such events, CancelUpdate and all that.... I sort of lost track which Cancel was a Boolean and which was an Integer

.

[Chrissie]

Thanks a lot..it's working

If anyone ever has the same problem...use ValidateControls in your menu item Click code...
Use

Private Sub menuItem_Click(Index As Integer)
ValidateControls
'code for the menu item...for example loading another form
Form2.Show
End sub
 
Private Sub txt1_Validate(Cancel as Boolean)
'Your check here
End sub