Modern healthcare requires a modern cloud. View this brief video to understand how the Concerto Cloud for Healthcare can help your organization.
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
Join the community of 500,000 technology professionals and ask your questions.