[AccessD] Set Focus On Control When Validation Fails

MessageAndy:

I've got seven text boxes where I use this technique.  Three work (focus stays on the text box) and four don't (focus moves to the next control in tab order).. Any idea why this might be?  I can't see any difference in the properties.

Rocky

  ----- Original Message ----- 
  From: Andy Lacey 
  To: accessd at databaseadvisors.com 
  Sent: Sunday, March 09, 2003 11:14 AM
  Subject: RE: [AccessD] Set Focus On Control When Validation Fails


  Rocky
  Have you tried in BeforeUpdate? then you don't need to set focus, just set Cancel to True and it'll stay there.


  Andy Lacey
  http://www.minstersystems.co.uk



    -----Original Message-----
    From: accessd-admin at databaseadvisors.com [mailto:accessd-admin at databaseadvisors.com] On Behalf Of Rocky Smolin - Beach Access Software
    Sent: 09 March 2003 18:45
    To: AccessD at databaseadvisors.com
    Subject: [AccessD] Set Focus On Control When Validation Fails


    Dear List

    I have a couple of simple validation tests:

        If Not IsNumeric(Nz(txtStartingRoomNumber)) Then
            MsgBox "Starting Room Number Must Be Numeric.", vbExclamation
            txtStartingRoomNumber.SetFocus
            Exit Sub
        End If
        
        If Val(Nz(txtStartingRoomNumber)) > 9999999 Then
            MsgBox "Starting Room Number Must Be Less Than 7 Digits.", vbExclamation
            txtStartingRoomNumber.SetFocus
            Exit Sub
        End If

    in the AfterUpdate event of txtStartingRoomNumber.  But the SetFocus does not work.  The focus ends up being set on the next control in the tab sequence.  I tried the tests in the Lost Focus event with the same result.

    I know there must be a simple way to return the focus to the control but I can't see it. (Maybe I shouldn't work on Sunday but the kids are in Sunday school and it's quiet.) :)

    MTIA,

    Rocky Smolin
    Beach Access Software
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://databaseadvisors.com/pipermail/accessd/attachments/20030309/bdd67a4a/attachment-0001.html>