cancel sub ?

[יריב החביב]

Hello,

When enter data to a text box i dont want to let

the user exit the text box if some condition is maintain.

So, i wrote a code in the exit private sub that if the condition is maintain

it will produce message and will exit the sub (exit sub, end if).

But after the message is show it still exit the text box.

how will i prevent the user to go on if the condition is meet ?

THANK YOU

 

[fredg]

Hello,

When enter data to a text box i dont want to let

the user exit the text box if some condition is maintain.

So, i wrote a code in the exit private sub that if the condition is maintain

it will produce message and will exit the sub (exit sub, end if).

But after the message is show it still exit the text box.

how will i prevent the user to go on if the condition is meet ?

THANK YOU

It's not clear to me if the value must meet certain criteria or if the
value must NOT MEET that criteria.
Don't use the Exit event.
Use the control's BeforeUpdate event instead.

To meet certain criteria:
If Me.[ControlName] = Some Criteria then
MsgBox "You must enter a different value."
Cancel = True
End If

To NOT Meet that criteria:
If Me.[ControlName] <> Some Criteria then
MsgBox "You must enter a different value."
Cancel = True
End If

 

[bcap]

You need to cancel the Exit event procedure:

Cancel = True

 

[יריב החביב]

THANK YOU
--
תודה רבה

Hello,

When enter data to a text box i dont want to let

the user exit the text box if some condition is maintain.

So, i wrote a code in the exit private sub that if the condition is maintain

it will produce message and will exit the sub (exit sub, end if).

But after the message is show it still exit the text box.

how will i prevent the user to go on if the condition is meet ?

THANK YOU

It's not clear to me if the value must meet certain criteria or if the
value must NOT MEET that criteria.
Don't use the Exit event.
Use the control's BeforeUpdate event instead.

To meet certain criteria:
If Me.[ControlName] = Some Criteria then
MsgBox "You must enter a different value."
Cancel = True
End If

To NOT Meet that criteria:
If Me.[ControlName] <> Some Criteria then
MsgBox "You must enter a different value."
Cancel = True
End If

 

[יריב החביב]

THANK YOU
--
תודה רבה

You need to cancel the Exit event procedure:

Cancel = True