Combobox default lit & add new

[Saintsman]

Hi
Is it possible to have a default list in a combobox & also allow users to
add new items?
In a new application I want to set up a series of typical text responses for
a drop down, but also let the list grow as new responses are added by users

Thanks
Saintsman

 

[Keith Wilby]

Hi
Is it possible to have a default list in a combobox & also allow users to
add new items?
In a new application I want to set up a series of typical text responses
for
a drop down, but also let the list grow as new responses are added by
users

Thanks
Saintsman

Yes, you use a lookup table as the combo's row source and use the "on not in
list" event to add the new value to the lookup table. Below is an example
of code, hope it helps.

Keith.
www.keithwilby.co.uk

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

DoCmd.Hourglass True
Dim strAlias As String
Dim db As DAO.Database, rs As DAO.Recordset, strSQL As String
Set db = CurrentDb
strSQL = "Select ManagerName from qcboManager"
Set rs = db.OpenRecordset(strSQL)
With rs
.AddNew
![ManagerName] = strAlias
.Update
End With
rs.Close
Set rs = Nothing
db.Close
Response = acDataErrAdded
DoCmd.Hourglass False


End Sub

 

[PieterLinden via AccessMonster.com]

Hi
Is it possible to have a default list in a combobox & also allow users to
add new items?
In a new application I want to set up a series of typical text responses for
a drop down, but also let the list grow as new responses are added by users

Thanks
Saintsman

Sure, why not? Set the default using the Default property of the combobox,
and then add code to the LimitToList event to allow new entries. Check the
NG, I'm sure there's code for it here somewhere.

 

[Daniel Pineault]

If you set the Combo box's RowSource to either a table or a query you can
then use the Not In List Event to add new value.

If you google 'MS Access Not In List' you'll find tons of examples, but here
are a few

http://www.databasedev.co.uk/not_in_list.html
http://www.fontstuff.com/access/acctut20.htm
--
Hope this helps,

Daniel Pineault
http://www.cardaconsultants.com/
For Access Tips and Examples: http://www.devhut.net
Please rate this post using the vote buttons if it was helpful.