Page History: HandleNotInList Subroutine - Access

Compare Page Revisions

0 Current 0

« Older Revision - Back to Page History - Current Revision

Page Revision: Wed, Oct 22, 2008, 3:28 PM

The following VBA code is useful for handling the ComboBox_NotInList event handler.

Sub HandleNotInList(newData As String, response As Integer, entityName As _
String, targetTable As String, targetField As String)
    
    If vbYes = MsgBox("Add '" & newData & "' as a new " & entityName & "?", _
    vbYesNo + vbQuestion + vbDefaultButton1) Then
    
        Application.CurrentDb.Execute "INSERT INTO [" & targetTable & "] ([" & _
               targetField & "]) VALUES ('" & Replace$(newData, "'", "''") & "');"
                            
        response = acDataErrAdded
    
    Else
        
        response = acDataErrContinue
    
    End If

End Sub