Adding data to combo box

I have a combo box based on a row source and I use this code that I
found from a website for the user to add items other than those in the
combo box. The problem is the items dont save in the combo box. Is
there any way to get them to save?

Private Sub Clothing_Size_NotInList(NewData As String, Response As
Integer)

'Suppress the default error message.

Response = acDataErrContinue

'Prompt user to verify if they wish to add a new value.

If MsgBox(" " & NewData & " is not in list. Add it?", vbYesNo) = vbYes
Then

'Add a new Size to the list with the value from the variable NewData.

[Clothing Size].RowSource = [Clothing Size].RowSource & ";" & NewData

'Inform the combo box that the desired item has been added to the list.

Response = acDataErrAdded

End If

End Sub

Check this link on how to add record to combo

http://www.databasedev.co.uk/not_in_list.html

--
Good Luck
BS"D


" wrote:

I have a combo box based on a row source and I use this code that I
found from a website for the user to add items other than those in the
combo box. The problem is the items dont save in the combo box. Is
there any way to get them to save?

Private Sub Clothing_Size_NotInList(NewData As String, Response As
Integer)

'Suppress the default error message.

Response = acDataErrContinue

'Prompt user to verify if they wish to add a new value.

If MsgBox(" " & NewData & " is not in list. Add it?", vbYesNo) = vbYes
Then

'Add a new Size to the list with the value from the variable NewData.

[Clothing Size].RowSource = [Clothing Size].RowSource & ";" & NewData

'Inform the combo box that the desired item has been added to the list.

Response = acDataErrAdded

End If

End Sub