Want to avoid the missteps to gaining all the benefits of the cloud? Learn more about the different assessment options from our Cloud Advisory team.
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.