suppress the message when item not in list

[Derrick T. Davidson]

I have a txt box that is limited to the look up list, I have other ones that I simply add the item and it is added to the list. What I want to do is when clicked open a pop up form and add the category to the new item. So far simple .......... however when I click on the txt box and open the pop up form the standard message 'XXX" is not in the list, etc. appears is there a way to suppress the message? I tried Set Warnings but it still appears. Below is what I tried by modifying the code to add to list:

Private Sub trbItem_NotInList(NewData As String, Response As Integer)
Dim i As Integer
    Dim Msg As String
    If NewData = "" Then Exit Sub
    Msg = "'" & NewData & "' is not currently in the list." & vbCr & vbCr
    Msg = Msg & "Do you want to add it?"
    i = MsgBox(Msg, vbQuestion + vbYesNo, "Item & Category List...")
    If i = vbYes Then
        DoCmd.SetWarnings False
        DoCmd.OpenForm "frmTransactionItems", acNormal, "", "", , acNormal
        DoCmd.GoToRecord acForm, "frmTransactionItems", acLast
        DoCmd.SetWarnings True
    Else
        Response = acDataErrContinue
    End If
End Sub

[ssanfu]

Maybe I don't understand.

however when I click on the txt box and open the pop up form the standard message 'XXX" is not in the list, etc. appears is there a way to suppress the message?

You created the message:

Msg = "'" & NewData & "' is not currently in the list." & vbCr & vbCr

Try change it to some other message:

Msg = "Why would you want to add '" & NewData & "' to the list?." & vbCr & vbCr

Or

Private Sub trbItem_NotInList(NewData As String, Response As Integer)
Dim i As Integer
    Dim Msg As String
    If NewData = "" Then Exit Sub
    Msg = "Oops, you tried to select'" & NewData & "'and is not currently in the list." & vbCr & vbCr
    Msg = Msg & "Do you want to add it?"
    i = MsgBox(Msg, vbQuestion + vbYesNo, "Item & Category List...")
    If i = vbYes Then
        DoCmd.SetWarnings False
        DoCmd.OpenForm "frmTransactionItems", acNormal, "", "", , acNormal
        DoCmd.GoToRecord acForm, "frmTransactionItems", acLast
        DoCmd.SetWarnings True
    Else
        Response = acDataErrContinue
    End If
End Sub

http://www.blueclaw-db.com/access_no...ed_example.htm
http://allenbrowne.com/ser-27.html
http://www.fontstuff.com/access/acctut20.htm

[Derrick T. Davidson]

Thanks as you can probably tell I am no expert I took the code I already have to add an item to the list which I received from this site and tried to make my own alterations consequently I may have some redundant or useless code included.

I tried your code but I still get the same result I get my pop up and the standard information message:
"The text you entered isn't an item in the list.not in the list."
I am trying to suppress the standard message?
I am sorry if I am being unclear.

[Micron]

Suggest you use the same variable for yes/no, not i for one and Response for the other

Dim Response As Integer
Dim Msg As String

If NewData = "" Then Exit Sub
  Msg = "Oops, you tried to select'" & NewData & "'and is not currently in the list." & vbCr & vbCr
  Msg = Msg & "Do you want to add it?"
  Response = MsgBox(Msg, vbQuestion + vbYesNo, "Item & Category List...")
  If Response = vbYes Then
    DoCmd.SetWarnings False
    DoCmd.OpenForm "frmTransactionItems", acNormal, "", "", , acNormal
    DoCmd.GoToRecord acForm, "frmTransactionItems", acLast
    DoCmd.SetWarnings True
  Else
    Response = acDataErrContinue
End If

[Derrick T. Davidson]

I get a compile error.
"Duplicate declaration in current scope"
Highlights
Dim Response As Integer

[Derrick T. Davidson]

This is what I want to do:
1. Enter an item in the form [frmBreakdown] from drop down list
2. If the item is not in the list I want to add it to the list [tlkpItem].
3. When the item is added I want the pop up [frmItemlist] to open at the last record
4. I want to add a category [tlkpItemCat] to the item that has just been added
5. Then return to the form [frmBreakdown]

[Derrick T. Davidson]

Figured it out was looking at a query item and attempting to add to a table SORRY