Private Sub combo1_NotInList(NewData As String, _
Response As Integer)
' Prompt user to verify they wish to add new
value.
If MsgBox("Value is not in list. Add it?", _
vbOKCancel) = vbOK Then
' Set Response argument to indicate that data
' is being added.
Response = acDataErrAdded
' Add string in NewData argument to row
source.
combo1.RowSource = combo1.RowSource & ";" &
NewData
Else
' If user chooses Cancel, suppress error message
' and undo changes.
Response = acDataErrContinue
combo1.Undo
End If
End Sub
--- linders_rob <[EMAIL PROTECTED]> wrote:
> I have a combobox with behind it several values I
> can choose from.
> When I give in a new item a want it to be saved to
> that list. So the
> next time I use this combobox I have that new item
> added to the
> selectionlist.
>
> How can I do this?
>
>
>
>
__________________________________________________
Do You Yahoo!?
Tired of spam? Yahoo! Mail has the best spam protection around
http://mail.yahoo.com
------------------------ Yahoo! Groups Sponsor --------------------~-->
<font face=arial size=-1><a
href="http://us.ard.yahoo.com/SIG=12h3j9j0q/M=362329.6886308.7839368.1510227/D=groups/S=1705115370:TM/Y=YAHOO/EXP=1123506242/A=2894321/R=0/SIG=11dvsfulr/*http://youthnoise.com/page.php?page_id=1992
">Fair play? Video games influencing politics. Click and talk back!</a>.</font>
--------------------------------------------------------------------~->
Yahoo! Groups Links
<*> To visit your group on the web, go to:
http://groups.yahoo.com/group/ms_access/
<*> To unsubscribe from this group, send an email to:
[EMAIL PROTECTED]
<*> Your use of Yahoo! Groups is subject to:
http://docs.yahoo.com/info/terms/
