SetFocus troubleshooting needed

[caringsharingbristolbilly]

Hi everyone...

Could someone have a look at the following and tell me why the SetFocus isn't working? I think I've followed the syntax correctly, but I could be wrong...

I want the Date_Completed field to be highlighted once all the other gubbins has run, but it's currently still moving on to the next control...

Private Sub Date_Completed_AfterUpdate()
If Me.Date_Completed < Me.Last_Updated Then
MsgBox "The date you have entered is before the date the error was created. Please check the date and try again.", 48, "No!"
Me.Date_Completed = Null
Date_Completed.SetFocus
End If
End Sub

Any help would, as always, be greatly appreciated.

 

[Joe4]

Shot in the dark, but have you tried this?

Me.Date_Completed.SetFocus

 

[caringsharingbristolbilly]

Hi Jmiskey...

Thanks for your reply.

Yeah, I tried that, but to no avail. Seems a little weird, I could swear it should work. Any other suggestions?

 

[Norie]

Billy

Is the code actually being run?

Is the If statement working as expected?

 

[caringsharingbristolbilly]

Hi Norie. Thanks for your reply.

The code appears to run fine. The If statement runs, the error message appears as desired, and the Date_Completed field is blanked. The only bit that's failing is the highlighted field is moving to the next one, rather than the one called Date_Completed. I don't get any error messages at all.

It's a bit of a headscratcher in all honesty.

It's not going to make or break my program, but I have a nagging suspicion that SetFocus might be used fairly frequently further along my fledgling VBA career, so I want to understand it fully, you know?

Any ideas?

 

[caringsharingbristolbilly]

Well, this has worked. I tried setting the focus to a different field (in this case one called "PEST"), then doing the SetFocus again to the Date_Completed field.

So, I guess I'm sorted now. It's still a bit of a mystery why it didn't work the straightforward way, though. Anyway, hope this will be of use to future people reading this thread.

Many thanks to Norie and jmiskey for taking the time to help out. It's really appreciated. I'm not worthy. ray:

Private Sub Date_Completed_AfterUpdate()
If Me.Date_Completed < Me.Last_Updated Then
MsgBox "The date you have entered is before the date the error was created. Please check the date and try again.", 48, "No!"
Me.Date_Completed = Null
Me.PEST.SetFocus
Me.Date_Completed.SetFocus
End If
End Sub

 

[Norie]

Have you tried using the Exit event rather than AfterUpdate?

If you set Cancel to false in there it shouldn't leave the field.

Then again the field mighht not be updated yet and the If might not work.

 

[caringsharingbristolbilly]

Hi again Norie. I'll check it out. How do I change the Cancel setting? I can't find how I actually use it in either the help files or the book I've got.

Sorry for being so stupid, I find the help files probably more confusing than helpful...

 

[Norie]

Billy

It isn't a setting it's a parameter/variable(?).

Just try

Cancel = True

I know this works with userforms in Excel but forms in Access are slightly different.

 

[caringsharingbristolbilly]

Hi Norie. Thanks for the help on that. I gave it a try, but the way it locks the field would confuse the hell out of the people who use the database, so I'll stick with the original workaround.

Still, I've learned something today, so thanks for the assistance!

Cheers,
CSBBB.