Field Not Gaining Focus

[jo15765]

I have a check put in place for the Exit() event of a form field. The issue I have is that the user hits the tab key to move to the next field, and a warning is popped up. Then the field is cleared and should regain focus, but the tab is taking the cursor to the next field. What I want is for the cursor to go back to the [Schedule #] field, and am mind blown on this as I tried the fully qualified field name, as well as the ME!

Private Sub ScheduleNum__Exit(Cancel As Integer)
    MsgBox ("Are you sure you want to remove this value?")
    Forms![Scheduling Assistant].[Schedule #] = Null
    Forms![Scheduling Assistant].[Schedule #].SetFocus
    Me![Schedule #.SetFocus
End Sub

[RuralGuy]

It probably needs a close bracket "]" :
Me![Schedule #].SetFocus

It is not a good idea to put anything but letters or maybe an underscore "_" in an objects name. It can cause a variety of issues.
I personally use CamelFontNames!

[jo15765]

It probably needs a close bracket "]" :
Me![Schedule #].SetFocus

It is not a good idea to put anything but letters or maybe an underscore "_" in an objects name. It can cause a variety of issues.
I personally use CamelFontNames!

Even adding the closing bracket it still tabs to the next field.

[RuralGuy]

Does this all take place within the Scheduling Assistant Form?

[RuralGuy]

Are you using the MsgBox there?

[RuralGuy]

Is this Exit code for the Control to which you want to return?

[jo15765]

Is this Exit code for the Control to which you want to return?

Yes this is exit code for the text box I want to return to.

Yes I am using the msgbox there

Yes all of this takes place in the Scheduling Assistant Form.

[RuralGuy]

Use the BeforeUpdate event on this control for this function. That event can be cancelled and leave you in the same control.

[jo15765]

Use the BeforeUpdate event on this control for this function. That event can be cancelled and leave you in the same control.

I moved the syntax to my before update and same issue occurs. The cursor just moves on to the "Tab" field and does not revert back.

Edit -->
Stepping through the code, using BeforeUpdate actually will bring focus back to the original field, but once the user gains control of the form again they are in the next field.

[RuralGuy]

Your code needs to look something like:

Private Sub ScheduleNum_BeforeUpdate(Cancel As Integer)
If (Me!ScheduleNum & "") = "" Then
   If MsgBox("Are you sure you want to remove this value?", vbCritical + vbYesNo + vbDefaultButton2) = vbYes Then
       Cancel = True
   End If
End If
End Sub

BTW...this code calls the ControlName "ScheduleNum" and not [Schedule #].

[jo15765]

Your code needs to look something like:

Private Sub ScheduleNum_BeforeUpdate(Cancel As Integer)
If (Me!ScheduleNum & "") = "" Then
   If MsgBox("Are you sure you want to remove this value?", vbCritical + vbYesNo + vbDefaultButton2) = vbYes Then
       Cancel = True
   End If
End If
End Sub

BTW...this code calls the ControlName "ScheduleNum" and not [Schedule #].

This leaves no field on my form with focus, and if I try to add focus

I get an error of:
Run-time error '2108':


You must save the field before you execute the GoToControl action, the GoToControl method, or the SetFocus method

[jo15765]

I think I am seeing what is going on, since the field [SChedule #] is a bound control - when I leave that control my form wants to save the entry into the database (even though the message box is telling the user that you can't).

Essentially what I am after is a way that <strong>IF</strong> that message box is displayed then trash this record (don't save anything) and force the user to create a new record.

AM I going about this the incorrect way?

[RuralGuy]

Did you comment out the Exit Event code? What I posted does not try and change records.

[RuralGuy]

This leaves no field on my form with focus, and if I try to add focus

I get an error of:
Run-time error '2108':


You must save the field before you execute the GoToControl action, the GoToControl method, or the SetFocus method

The focus is still in the same control!

[jo15765]

Did you comment out the Exit Event code? What I posted does not try and change records.

Yes, I did a straight copy/paste of your code into mine with the exception of leaving the field name as two words (I can not change that).