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.
Private Sub cboOrderStatusID_NotInList(NewData As String, Response As Integer) On Error GoTo err_OrderStatusID_NotInList Dim ctl As Control Dim strSQL As String ' Return Control object that points to combo box. Set ctl = Me!cboOrderStatusID ' Prompt user to verify they wish to add new value. If MsgBox(NewData & " is not in the Order Status list. Would you like to add it?", vbOKCancel) = vbOK Then ' Set Response argument to indicate that data is being added. Response = acDataErrAdded ' Add string in NewData argument to table. NewData = CapitalizeFirst(NewData) strSQL = " INSERT INTO tblOrderStatus ( OrderStatus ) SELECT '" & Proper(NewData) & "'" DoCmd.SetWarnings False DoCmd.RunSQL strSQL ctl.Value = NewData DoCmd.SetWarnings True Else ' If user chooses Cancel, suppress error message and undo changes. Response = acDataErrContinue ctl.Undo End If exit_cboOrderStatusID_NotInList: Exit Sub err_OrderStatusID_NotInList: If Err = 2113 Then Err = 0 Resume Next Else MsgBox Str(Err) MsgBox Err.Description Resume exit_cboOrderStatusID_NotInList 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.