On-screen guidance at the moment of need enables you & your employees to focus on the core, you can now boost your adoption rates swiftly and simply with one easy tool.
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.
|Convert string date and select older than 30 days from today||2||41|
|Macro Excel - if condition - Start by AND contain||12||44|
|Sharepoint list to Access database||9||44|
|access query filter for lower case lett||7||17|