Hello Everybody (anybody)?
I am trying to appent a combobox to include data entered by a user
which is Not In List. I have came accross this code from Allen Browne
which seems to be what I am looking for can anybody tell me if I have
to change any of the code below to match field names or combobox name
from my own database.
Thanks in advance for any help with this topic?
Function Append2Table(cbo As ComboBox, NewData As Variant) As Integer
On Error GoTo Err_Append2Table
' Purpose: Append NotInList value to combo's recordset.
' Assumes: ControlSource of combo has the same name as the foreign
key field.
' Return: acDataErrAdded if added, else acDataErrContinue
' Usage: Add this line to the combo's NotInList event procedure:
' Response = Append2Table(Me.MyCombo, NewData)
Dim rst As DAO.Recordset
Dim sMsg As String
Dim vField As Variant ' Name of the field to append to.
Append2Table = acDataErrContinue
vField = cbo.ControlSource
If Not (IsNull(vField) Or IsNull(NewData)) Then
sMsg = "Do you wish to add the entry " & NewData & " for " &
cbo.Name & "?"
If MsgBox(sMsg, vbOKCancel + vbQuestion, "Add new value?") =
vbOK Then
Set rst = CurrentDb.OpenRecordset(cbo.RowSource)
rst.AddNew
rst(vField) = NewData
rst.Update
rst.Close
Append2Table = acDataErrAdded
End If
End If
Exit_Append2Table:
Set rst = Nothing
Exit Function
Err_Append2Table:
MsgBox "Error " & Err.Number & ": " & Err.Description,
vbInformation, "Append2Table()"
Resume Exit_Append2Table
End Function
