LostFocus Event's problems

[lirlir]

I wrote this code:

Private Sub txtName_LostFocus()
Call CheckTextValidation(txtName)
End Sub

Public Function CheckTextValidation(txt As TextBox) As Boolean
If txt.Text = Empty Then
Call MsgBox("you should insert data to this field", vbExclamation + vbOKOnly, App.Title)
CheckTextValidation = False

Else
CheckTextValidation = True
End If
End Function

But ,it doesn't work properly after it display the first
msgbox and i clicked OK it display the msgbox AGAIN !!!

PLEASE HELP

[Rodik]

You see, you have to give the focus back to the textbox, otherwise vb will just keep running that code.

use something like

Text1.SetFocus

and put it after you've showed the msgbox





[Edited by Rodik on 06-25-2000 at 01:19 AM]

[lirlir]

Public Function CheckTextValidation(txt As TextBox) As Boolean
If txt.Text = Empty Then
Call MsgBox("xxxxxxxxxxx", vbExclamation + vbOKOnly, App.Title)
CheckTextValidation = False

----> txt.SetFocus <----
Else
CheckTextValidation = True
End If
End Function

[Chris]

Originally posted by lirlir
I wrote this code:

Private Sub txtName_LostFocus()
Call CheckTextValidation(txtName)
End Sub

Public Function CheckTextValidation(txt As TextBox) As Boolean
If txt.Text = Empty Then
Call MsgBox("you should insert data to this field", vbExclamation + vbOKOnly, App.Title)
CheckTextValidation = False

Else
CheckTextValidation = True
End If
End Function

But ,it doesn't work properly after it display the first
msgbox and i clicked OK it display the msgbox AGAIN !!!

PLEASE HELP

If you only need to validate the text inside a textbox control, you actually no need to pass the entire TextBox control into your CheckTextValidation function. All you need is...

Private Sub txtName_LostFocus()
    If  CheckTextValidation (txtName.Text) then
        'Proceed what you need to do
    Else
        'Proceed to do something else...
    End If
End Sub

Public Function CheckTextValidation(txt As String) As Boolean
If txt = "" Then
    MsgBox "you should insert data to this field", vbExclamation + vbOKOnly, App.Title
    CheckTextValidation = False
Else
    CheckTextValidation = True
End If
End Function