setfocus

[Guest]

Hi....I have a control that is numeric (integer). I want to make sure user
enters only 6 digit number not more or less. If they enter less then the
system should display a message and setfocus back to that field. I wrote the
code below and it works but it doesn't set the focus to the field. It goes
back to the next field in tab index.

Private Sub tblClient_CID_AfterUpdate()


If Len(Me.tblClient_CID) <> 6 Then
MsgBox "Invalid CID. Please Reenter.", vbCritical, "AE Client
Relationship Management"
Me!tblClient_CID.SetFocus

End If

End Sub

 

[Allen Browne]

Drop the code.

Set a Validation Rule on the text box of:
Between 100000 And 999999

(Note that leading zeros are meaningless in a Number type field.)

 

[Guest]

Allen - Thanks for the suggestion. However, I want a customized message to be
displayed rather than system validation message. Any way to do that with
validation rule.

 

[Allen Browne]

Sure: put your custom message in the field's Validation Text property.