Not in the List

[Guest]

I have a combo box that gives a list of instruments to pick from. If an
instrument is not in the list, is there a way to add it to the table from the
combo box?

Thanks
Wm.

 

[Albert D. Kallal]

You can set the limit to yes = to yes.

The, for the no in list event, you can use the following code:


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

Dim strSql As String
If MsgBox(NewData & " not in list, add?", _
vbYesNo + vbQuestion) = vbYes Then
strSql = "insert into tblStudents (name) values('" & NewData & "')"
CurrentDb.Execute strSql
Response = acDataErrAdded
End If

End Sub

Note I used a table name of Students, and field name of Sname. So, just
change the table name, and the field to whatever you used.

 

[Guest]

Albert, Hi. Thank you very much, work very nicely!

Wm.