Persistent focus 2

[lachesis]

Hi,

Im setting up a Registration form. Two of the fields are CompanyName and UserName. I want both of these fields to have data in them of a certain type and format before the user can move on to complete other fields.

I've set up validations in the AfterUpdate and LostFocus events for these unbound fields. The problem is that I cannot get the VBA code to persist in maintaining focus, even when (clearly) the data in them does not meet the validation criteria.

Here's my AfterUpdate event code:

' validate Company Name input
If (Len(Trim(Me!txtCoName.Value & &quot;&quot) < 3) Then
MsgBox &quot;Name is too short!&quot; & Chr(13) & _
&quot;Please use a longer name.&quot;
Me!txtCoName.SetFocus
Else
' do nothing
End If

I've also turned off tab stops on all the other fields on the form.

What am I missing here??
thanks L.

 

[SteveR77]

You need to change the Me! to Me.

The ! is used for the form.

Steve

 

[RoyVidar]

Hi lachesis!

The control still has focus, and cannot setfocus to itself. One workaround is to setfocus to another control, then back.

[tt]If (Len(Trim(Me!txtCoName.Value & &quot;&quot) < 3) Then
MsgBox &quot;Name is too short!&quot; & Chr(13) & _
&quot;Please use a longer name.&quot;
Me!txtSomeOtherControl.SetFocus
Me!txtCoName.SetFocus
Else
' do nothing
End If[/tt]

Roy-Vidar

 

[lachesis]

Sorry Steve, that's not doing it either.

L.

 

[SteveR77]

lachesis,

Apologies, I believe there is a way to cancel the next event so you do not have to move to another control then back.

I will look into it and make sure that what I think will work actually will.


Steve

 

[lachesis]

Thanks roy. Looks like my original thank-you post didnt fire for some reason.

cheers L.