Ready to kick start your career in 2018? Learn how to build an Android app in January’s Course of the Month and open the door to new opportunities.
Private Sub Combo178_NotInList(NewData As String, Response As Integer) Dim strTmp As String DoCmd.setwarning = False 'Get confirmation that this is not just a spelling error. strTmp = "Add '" & NewData & "' as a new Case Type?" If MsgBox(strTmp, vbYesNo + vbDefaultButton2 + vbQuestion, "Not in list") = vbYes Then 'Append the NewData as a record in the Categories table. strTmp = "INSERT INTO tblSubLookup ( Thetext, TheDropdown) " & _ "SELECT """ & NewData & """ AS TheText,('Case Type');" DBEngine(0)(0).Execute strTmp, dbFailOnError Else Exit Sub 'Notify Access about the new record, so it requeries the combo. Response = acDataErrAdded End If End Sub