GoToControl and SetFocus question

[bgephart]

I have an information form that is set to open "AfterUpdate" of the Book ID control on my original Checkout Form. This part I have working well at this point. However, on the information form, which basically serves to double-check what was entered in "Book ID", I have Yes and No buttons. The Yes button I have set to close the information form, return to Checkout Form at set focus on another field down the form. The No button I would like to set to return to the Book ID control, but it won't seem to do that. Is that because the original procedure is connected to "AfterUpdate"?



Here's the code in place for the two buttons:

Private Sub Close_Yes_Click()
On Error GoTo Err_Close_Yes_Click

    If Me.Dirty Then Me.Dirty = False
    Forms![Checkout Form]![OutDate].SetFocus
      
    
    DoCmd.Close
Exit_Close_Yes_Click:
    Exit Sub
Err_Close_Yes_Click:
    MsgBox Err.Description
    Resume Exit_Close_Yes_Click
    
End Sub
Private Sub No_Button_Click()
On Error GoTo Err_No_Button_Click

    If Me.Dirty Then Me.Dirty = False
    Forms![Checkout Form]![Book ID].SetFocus
    DoCmd.Close
Exit_No_Button_Click:
    Exit Sub
Err_No_Button_Click:
    MsgBox Err.Description
    Resume Exit_No_Button_Click
    
End Sub

.

My other instance is very similar, except that I'm trying to use a macro to do basically the same thing. In the original macro that is opening the information form (running "AfterUpdate" of Book ID), I'm opening a message box if the Book ID is not found in the database at all (as opposed to the wrong one that would still bring up a record), and would like to return to the Book ID control after the message box is closed. In both cases, the control always returns to the control that comes after the Book ID control. Same problem?

If so, how do I do this?

Thanks for your help. You guys are great!

[June7]

What is error message?

Might be better to use BeforeUpdate event.

[bgephart]

What is error message?

Might be better to use BeforeUpdate event.

There is no error message. I just can't get the focus back to the Book ID field where I want it.

BeforeUpdate wouldn't work because all of this depends on what is typed into the Boko ID field.

[June7]

Is this BookID control an unbound control? Is it a textbox? Why not a combobox?

Shouldn't the BeforeUpdate event serve to check if BookID is even in the db? If not in db, the update action will cancel and the AfterUpdate to open form will not trigger. The issue is when BookID is in db and the Information form opens. Why open an independent form? Could just display the related book info on the Checkout form.

I had a similar issue. I wanted focus to always return to a combobox after item selected. It is the last data entry control on a form and it is unbound. Multiple items will be selected (one at a time) and a record saved into two tables. I had to create a locked control that would receive focus after each selection. Code in GotFocus event of the locked control sets focus back to the combobox. Fortunately, I needed the locked control anyway because it is a listbox displaying information that is dependent on selection in combobox.

[bgephart]

Okay, so I got the second instance to work - the one where I was using the macro - by adding a "CancelEvent" in there and putting the macro on BeforeUpdate of the Book ID control, as you suggested.

I can't put everything on one form because the linked Excel table cannot be edited, and when I add fields from it to a query, it makes the recordset uneditable as well. At least that's the way I'm reading the error messages, and what seems to be happening.

So, I still have a popup Book Information form that is triggered "AfterUpdate" of the Book ID form to make sure the right number has been entered. These are the numbers that do show up in the Excel table, and the information pops up on the form. And this is what I was using the VBA code for, which was mostly created using the Button Wizard, but which I added the SetFocus lines to.

When I put that whole process in BeforeUpdate, I got error messages saying I had to save the control before I could use SetFocus. So, I've put it back on AfterUpdate. I've tried using Undo as well instead of and in addition to SetFocus, and have had no luck at all. How do I get the focus back on Book ID after I press the No button on my popup form? It continues to go to the next field. I'm having no problem with the Yes button taking the focus to another field, and I've checked my typing over and over!

Any more thoughts?

Thanks -

[June7]

Think I encountered this same frustration and that was why I had to devise alternate solution as described in my previous post.

I don't understand why can't show the data on one form. Instead of popup form, make it a subform or a listbox on the first form.