Combobox not on list error

Jon123 · Mar 16, 2009

so I have a form that has a combo box that a user selects from. If the value
they are trying to enter is not on the list them I have a Yes / No msg box open asking them if they want to add this value to the list. That part works but I'm getting an Access error saying value not on list please select a value for the list. how do I turn this error off I tried DoCmd. setwarnings False but that does not do it.

any help

jon

boblarson · Mar 16, 2009

See if this helps:
http://www.access-programmers.co.uk/forums/showpost.php?p=798204&postcount=2

Jon123 · Mar 16, 2009

I still get the Access error telling me the the value is not in the list.

????

boblarson · Mar 16, 2009

Jon123 said:
I still get the Access error telling me the the value is not in the list.

????

Can you post your actual code you are using?

Jon123 · Mar 16, 2009

This is the code. But the error that I'm getting I believe its built in access

Dim StdResponse As Integer
DoCmd.SetWarnings False
StdResponse = MsgBox("This Part Number is NOT recorded in the Finger Print. Would you like to add this Part Number?", 52)
If StdResponse = 6 Then 'Yes
DoCmd.OpenForm "Frm-Adding New Parts"
Else
Exit Sub
End If
End Sub

boblarson · Mar 17, 2009

Jon123 said:
This is the code. But the error that I'm getting I believe its built in access

Dim StdResponse As Integer
DoCmd.SetWarnings False
StdResponse = MsgBox("This Part Number is NOT recorded in the Finger Print. Would you like to add this Part Number?", 52)
If StdResponse = 6 Then 'Yes
DoCmd.OpenForm "Frm-Adding New Parts"
Else
Exit Sub
End If
End Sub

That is nothing like what I gave you with that link. But,

1. You need to open your form to add the new part as a DIALOG so
DoCmd.OpenForm "Frm-Adding New Parts", acNormal, ,acNormal,,,acFormAdd,acDialog

2. And then the other part where you have to put in the
Response = acDataErrAdded

So, your code should look like:

Code:

   Dim StdResponse As Integer
     DoCmd.SetWarnings False
     StdResponse = MsgBox("This Part Number is NOT recorded in the Finger Print. Would you like to add this Part Number?", 52)
     If StdResponse = 6 Then 'Yes
     DoCmd.OpenForm "Frm-Adding New Parts", acNormal, ,acNormal,,,acFormAdd,acDialog
        Response = acDataErrAdded
   Else
        Response = acDataErrContinue
   End If
End Sub

Jon123 · Mar 17, 2009

I tried this code and it still returns an Access Error box stating value not in list. I can make this work but I would like to get rid of that error.

boblarson · Mar 18, 2009

Jon123 said:
I tried this code and it still returns an Access Error box stating value not in list. I can make this work but I would like to get rid of that error.

You shouldn't get that error if you put the code I gave you on the Not In List event of the combo box. If you still do, then post the database because I would sure like to see why it is still happening.

Jon123 · Mar 18, 2009

I am having a problem with the following line

DoCmd.OpenForm "Frm-Adding New Parts", acNormal, ,acNormal,,,acFormAdd,acDialog

it does not like the acDialog I get a compiler error wrong number of arguments
Jon

boblarson · Mar 18, 2009

Somehow I got some extra stuff in there. It should be:

DoCmd.OpenForm "Frm-Adding New Parts", acNormal, ,,acFormAdd,acDialog

Jon123 · Mar 18, 2009

Thats the ticket it looks to be work well in the test dbase I was just putting together to send to you. I will put it into the real database and let you know how it goes.

thanks for all the help

jon

boblarson · Mar 18, 2009

Jon123 said:
Thats the ticket it looks to be work well in the test dbase I was just putting together to send to you. I will put it into the real database and let you know how it goes.

thanks for all the help

jon

Whew! Glad to hear.

Combobox not on list error

Jon123

Registered User.

boblarson

Smeghead

Jon123

Registered User.

boblarson

Smeghead

Jon123

Registered User.

boblarson

Smeghead

Jon123

Registered User.

boblarson

Smeghead

Jon123

Registered User.

boblarson

Smeghead

Jon123

Registered User.

boblarson

Smeghead

Similar threads

Users who are viewing this thread