New Entries to a Combo box

[whojstall11]

I want to be able to add new entries to my comb box. How can I do this?

[ssanfu]

There are several ways.... are you using a value list or is the data in a table? I generally use a table, unless the values are something that rarely changes (days of the week, months, etc)

Here is one way: http://allenbrowne.com/ser-27.html (see option 4 if using a value list)

Another: http://access.mvps.org/access/forms/frm0015.htm

And another: http://www.fontstuff.com/access/acctut20.htm

Or Google: access "not in list"

[whojstall11]

Wow i tried a code like this and it didnt work but this just so happen to have worked this time thank you.

Private Sub CategoryID_NotInList(NewData As String, Response As Integer)    Dim strTmp As String        'Get confirmation that this is not just a spelling error.    strTmp = "Add '" & NewData & "' as a new product category?"    If MsgBox(strTmp, vbYesNo + vbDefaultButton2 + vbQuestion, "Not in list") = vbYes Then            'Append the NewData as a record in the Categories table.        strTmp = "INSERT INTO Categories ( CategoryName ) " & _            "SELECT """ & NewData & """ AS CategoryName;"        DBEngine(0)(0).Execute strTmp, dbFailOnError                'Notify Access about the new record, so it requeries the combo.        Response = acDataErrAdded    End IfEnd Sub

[ssanfu]

Great!!