Get more info about an IP address or domain name, such as organization, abuse contacts and geolocation.
One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.
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
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
|Is it possible to get data from a web-based interface and bring it over to an Access database?||4||37|
|Ms Access 2010 Setup (Executable file)||4||68|
|Speed up Select Top n... Query||9||37|
|Access 2016 on Windows 10 MSCAL.OCX not recognized||4||34|
Join the community of 500,000 technology professionals and ask your questions.