Cursor in Forms after validation

[pervezjan]

When I put some wrong value in the field the cursor not stay in the same filed its skip to next field. The code is as under:-

Private Sub RollNo_BeforeUpdate(Cancel As Integer)
If (RollNo.Value > 1) Or (RollNo.Value < 22) Then
MsgBox "Roll No is Wrong, Please Type correct Roll No"
Cancell = True


End If
End Sub

The RollNo is numeric field. I need help from the expert. How to stop the cursor in the box if I put wrong number.

[June7]

Cancel should have only one 'l'.

Your code will not allow anything because of the OR operator. Look at the logic of that statement:

Anything greater than 1 is not valid.

Anything less than 22 is not valid.

Every input will match one of those conditions.


Instead of VBA code, consider the ValidationRule property - with a proper expression.

[pervezjan]

Thanks for the prompt reply. You are right I was wrong. But still I have the same problem that Message is appearing but cursor did not stop if I put wrong value i.e 24 or 0 etc.

[June7]

The code works for me. Did you change spelling of Cancel?

ValidationRule property will accomplish what you want.

ValidationText property will allow custom message.

No code needed.

What data do you want to allow?

[pervezjan]

Dear June7

Thank you very much for correcting me. You solved my problem now its working fine. The big mistake you pointed was the spelling of Cancel

[June7]

Tip: Include the following line in every module header and it will help prevent errors with misspelled variables. It will require every variable to be declared and therefore if a variable is used that isn't declared, code will error during compile.

Option Explicit