Veeam is happy to provide a free NFR license (for 1 year, up to 10 users). This license allows for the non‑production use of Veeam Backup for Microsoft Office 365 in your home lab without any feature limitations.
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.
Join the community of 500,000 technology professionals and ask your questions.