Jasinski Technical Wiki

Navigation

Home Page
Index
All Pages

Quick Search
»
Advanced Search »

Contributor Links

Create a new Page
Administration
File Management
Login/Logout
Your Profile

Other Wiki Sections

Software

PoweredBy

HandleNotInList Subroutine - Access

RSS
Modified on Fri, Feb 11, 2011, 8:02 AM by Administrator Categorized as Microsoft Office
The following VBA code is useful for handling the ComboBox_NotInList event handler.

{copytext|vbCode}
Sub HandleNotInList(NewData As String, Response As Integer, entityName As _
String, targetTable As String, targetField As String, Optional formName As String = "")
    
    If vbYes = MsgBox("Add '" & NewData & "' as a new " & entityName & "?", _
    vbYesNo + vbQuestion + vbDefaultButton1) Then
    
        Dim newValue As String
        newValue = "'" & Replace$(NewData, "'", "''") & "'"
    
        Application.CurrentDb.Execute "INSERT INTO [" & targetTable & "] ([" & _
               targetField & "]) VALUES (" & newValue & ");"
                            
        Response = acDataErrAdded
        
        If Len(formName) > 0 Then
        
            DoCmd.OpenForm formName, acNormal, , "[" & targetField & "] = " & newValue, , acDialog
            
        End If
    
    Else
        
        Response = acDataErrContinue
    
    End If

End Sub

ScrewTurn Wiki version 3.0.1.400. Some of the icons created by FamFamFam. Except where noted, all contents Copyright © 1999-2018, Patrick Jasinski.