Search Bar - How to add no value found pop up

[Phillipc1]

Hello All!

I have a search bar created for my main menu form, that when searched will open up the appropriate form for that value. However, I am wanting to put in something that when a user enters in a value that is not in the database it will prompt them with a no value found pop up but also ask if they would like to create a new entry, which it will provide a yes or no button. How can I go about doing this. Screen shot of the main menu that I am wanting to add this function to for the search bar and database zipped file is attached.

[Bob Fitz]

Move the On Click event code to the After Update event.
Change the Limit to list property of the combo to yes.
You can then catch the attempted entry of data not in the list and question if it should be added.

[Bob Fitz]

You might use something like the following in the Not In List event:

    If MsgBox("Add '" & NewData & "' to the list?", vbYesNo) = vbYes Then        DoCmd.OpenForm FormName:="Equipment_List_Form", OpenArgs:=Me.cboSearch.Value
        DoCmd.GoToRecord , , acNewRec
        Forms!Equipment_List_Form.[Equipment #] = NewData
        Response = acDataErrContinue
    Else
        Response = acDataErrContinue
    End If

BTW I would avoid the use of spaces and keys like "#" in the names of any object. I would perhaps use EquipementNum instead.

[Phillipc1]

Fantastic, thank you Bob! I appreciate the catch on the "#" issue as I had thought I cleaned that up already. Granted my actual DB is much larger, so it seems like I missed it here. I will give this a try and see how it turns out.

[Phillipc1]

So it looks like I am getting an error when adding the NotInList event. See attached images.

[Welshgasman]

You put the Then portion on the same line?
I always end with Then and put all the code that will be executed on the next lines, even one liners.

Also no need for Else really, as you are executing that Response line regardless? I would just have it after the If block.

You have copied Bob's code verbatim, but this site appends the second line to the first line a lot of the time.

PITA TBH.

[Phillipc1]

Thank you both, I believe I have gotten it sorted out now to operate properly. The one exception which I am not too worried about is when I select no to add a value to the list, it will populate an error message and then a message reiterating the value could not be found. Not sure if there is a way to eliminate that, but either way it gets me pointed in the right direction.

[Welshgasman]

As always, look for the syntax and examples.

https://learn.microsoft.com/en-us/of...obox.notinlist

Now you will need the Else portion.

[Bob Fitz]

Thank you both, I believe I have gotten it sorted out now to operate properly. The one exception which I am not too worried about is when I select no to add a value to the list, it will populate an error message and then a message reiterating the value could not be found. Not sure if there is a way to eliminate that, but either way it gets me pointed in the right direction.

See the example that I posted