Quip adds documents, spreadsheets, and tasklists to your Slack experience
- Elevate ideas to Quip docs
- Share Quip docs in Slack
- Get notified of changes to your docs
- Available on iOS/Android/Desktop/Web
Dim strsql As String Dim i As Integer Dim Msg As String Dim s As String 'Exit this sub if the combo box is cleared If NewData = "" Then Exit Sub Msg = "'" & NewData & "' is not currently in the list." & vbCr & vbCr Msg = Msg & "Do you want to add it?" i = MsgBox(Msg, vbQuestion + vbYesNo, "Unknown Item...") strsql = fProperCase(NewData, 1) If i = vbYes Then s = fProperCase(NewData, 1) strsql = "INSERT INTO tblCompany(CompanyName) " _ & " SELECT '" & s & "';" CurrentDb.Execute strsql, dbFailOnError Response = acDataErrAdded Else Response = acDataErrContinue Me.Undo End If
|Trying to open a report with a filter||2||17|
|Prevent new record being selected after a deletion||6||33|
|Count duplicate cells in a coulmn only once sql statement||3||13|
|Access Run-time error '6' Overflow||5||13|
Join the community of 500,000 technology professionals and ask your questions.
Connect with top rated Experts
14 Experts available now in Live!