new record only when form launched?

[AccessIdiot]

This is kind of an odd request.

I have a form with a combo box. If an item isn't in the combo box you can add it by launching a new form (using NotInList). I would like for the main form to go right to a new record when the form is launched. I have code on the Load event that does this quite nicely. However, when the form to add to the combo box is launched and then closed it automatically causes the main form to advance to the next new record. I need for the main form to stay on the record that was being filled out when the NotInList form was launched.

Is this possible? Here is the code for the main form to make it advance to a new record when it is launched:

Private Sub Form_Load()
    DoCmd.OpenForm "Specimen", , , , acNewRec
    DoCmd.GoToRecord , , acNewRec
End Sub
 

[Rabbit]

What's the code for the NotInList event?

[AccessIdiot]

Thanks for responding!

Private Sub Species_NotInList(NewData As String, Response As Integer)
Dim Result
Dim Msg As String
Dim CR As String
 
    CR = Chr$(13)
 
    ' Exit this subroutine if the combo box was cleared.
    If NewData = "" Then Exit Sub
 
    ' Ask the user if he or she wishes to add the new customer.
    Msg = "'" & NewData & "' is not in the list." & CR & CR
    Msg = Msg & "Do you want to add it?"
    If MsgBox(Msg, vbQuestion + vbYesNo) = vbYes Then
       ' If the user chose Yes, start the Species form in data entry
       ' mode as a dialog form, passing the new species code name in
       ' NewData to the OpenForm method's OpenArgs argument. The
       ' OpenArgs argument is used in Species form's Form_Load event
       ' procedure.
       DoCmd.OpenForm "Species", , , , acFormAdd, acDialog, NewData
    End If
 
    ' Look for the species code name the user created in the Specimen form.
    Result = DLookup("[Species_Code]", "Species", _
             "[Species_Code]='" & NewData & "'")
    If IsNull(Result) Then
       ' If the species code was not created, set the Response argument
       ' to suppress an error message and undo changes.
       Response = acDataErrContinue
       ' Display a customized message.
       MsgBox "Please try again!"
    Else
       ' If the species code was created, set the Response argument to
       ' indicate that new data is being added.
       Response = acDataErrAdded
    End If
 
End Sub

[Rabbit]

I don't see any reason why it should be doing this. Code looks fine to me. Maybe someone else will have an idea. Have you tried compiling the code? What about setting a break and then stepping through the code to find the exact place when the main form jumps to a new record?

[AccessIdiot]

lol, as my username implies I am very new to Access. I will try to do as you suggested but I'm not even sure where to begin! I do believe it compilies. I'm not sure how to step through?

[Rabbit]

A break in the code will tell the form to jump to the visual basic editor once it hits that line of code.

To insert a break, go to the line you want to stop at and press F9.

Then open the form and activate the event where the break is. This will highlight the current line in yellow. From here, you can press F8 and it will step through each line of code, processing it one at a time. After each step, check the results to see what happens.