Validation for Text

[MacReed]

Hi everyone,

I want the cursor to not move from a box if a particular information is not entered.

And this is the code I have used, but it does not seem to work

If Type_of_Transfer.Text = "" And Transfer.Enabled = True Then
Type_of_Transfer.SetFocus
MsgBox ("Select the type of transfer from the list")

Else
add.SetFocus
End If


Help please

 

[Norie]

Where have you actually put this code?

 

[mani]

It was for the

Private Sub Type_of_Transfer_LostFocus()
'Type_of_Transfer.SetFocus

If Type_of_Transfer.Text = "" And Transfer.Enabled = True Then
Type_of_Transfer.SetFocus
MsgBox ("Select the type of transfer from the list")

Else
add.SetFocus
End If

End Sub

 

[MacReed]

It was for the

Private Sub Type_of_Transfer_LostFocus()
'Type_of_Transfer.SetFocus

If Type_of_Transfer.Text = "" And Transfer.Enabled = True Then
Type_of_Transfer.SetFocus
MsgBox ("Select the type of transfer from the list")

Else
add.SetFocus
End If

End Sub