Setting controls

[Gary_Mc_Mahon]

Hi,
I'm trying to run a validation event on exit of a control. I've got 95% of the way there, just need a pointer on the finishing touches. I want the cursor to be in the actual field after the event. I cant seem to get the focus right. Here's what I have so far.

Private Sub Susp_Date_Time_triggered_Exit(Cancel As Integer)
'Validation of date entry
If Forms!Frm_Account_Screen![Susp Date/Time triggered] < Forms!Frm_Account_Screen![Date/Time Submitted] Or Forms!Frm_Account_Screen![Susp Date/Time triggered] < Forms!Frm_Account_Screen![Date Received] Then
MsgBox "Invalid date entry, please re enter date.", vbCritical, "Invalid Data"
Forms!Frm_Account_Screen![Susp Date/Time triggered] = ""
Screen.ActiveControl.SetFocus
Else
End If

End Sub

I'm stuck on screen.activecontrol.setfocus, any help??

Cheers,
Gary

 

[Norie]

Instead of

Screen.ActiveControl.Setfocus

put

Cancel = TRUE

As far as as I know this 'cancels' the exit event so focus should remain in the control.

 

[Gary_Mc_Mahon]

Thanks for the input Norie. Just tried that, no joy. It still moves on to the next tab. Any other ideas?

 

[Gary_Mc_Mahon]

Sorry Norie, just saved the module, it has worked, thanks for the pointer.

 

[Norie]

Is the If statement actually working?

What type of control is it?

I think this might cause a problem:

Forms!Frm_Account_Screen![Susp Date/Time triggered] = ""


I've just done a small test of my suggested method and it worked fine, the cursor was placed back in at the start of the textbox, when I had entered something.

However when I left the textbox blank it continued on.

So you setting it blank may be the problem.