too easy to be found in the help file

[ed0]

Hi everyone, thanks for viewing my post

i'm having my first access experiment today,and i am having troubles.
I have a form with a dropdown of model numbers which i have defined, and it works fine, but i want the end user to be able to add a model number in the form view, and have that new model number appear on the drop down list.

I've been reading about combo boxes for the last hour and am getting nowhere.

your help is much appreciated

 

[Norie]

Check out the NotInList event of the combobox.

When a user enters a value that isn't in the list and if the LimitToList property is set to Yes this event will be triggered.

You could then write code to add the new value.

eg

Private Sub Insurer_NotInList(NewData As String, Response As Integer)
    Response = acDataErrAdded
    AddNewInsurer NewData
End Sub
Function AddNewInsurer(NewIns As String)
' adds new insurer to insurers tabls
Dim db As Database, rst As Recordset
Set db = CurrentDb

Set rst = db.OpenRecordset("Insurers")
    With rst
        rst.AddNew
        !Insurer = NewIns
        .Update
        rst.Close
    End With
End Function

This is a bit of old code that I used to add new insurers to a table.