Is your cloud always on? With an Always On cloud you won't have to worry about downtime for maintenance or software application code updates, ensuring that your bottom line isn't affected.
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