There are many examples of how to handle new entries to Combo Boxes, a.k.a. Not_In_List events.\u00a0 However, the one that is not so easily found is how to handle entries that include more than just what’s in the Combo Box.\u00a0 For example, you’re entering an Order from a new Client and you need more than just the Client’s name… you want to enter their address, phone number, etc.\u00a0\u00a0 To do that we just need to add\/open a Form and add our information…<\/p>\n
Private Sub cboClientID_NotInList(NewData As String, Response As Integer)\r\nOn Error GoTo Err_cboClientID_NotInList\r\n\r\n Dim intAnswer As Integer\r\n\r\n intAnswer = MsgBox("Would you like to add this Client to the list?", vbYesNo + vbQuestion, "Not in List")\r\n\r\n If intAnswer = vbYes Then\r\n DoCmd.RunCommand acCmdUndo\r\n DoCmd.OpenForm "sfrClientProfile", , , , acFormAdd, acDialog\r\n Response = acDataErrAdded\r\n Else\r\n DoCmd.RunCommand acCmdUndo\r\n Response = acDataErrContinue\r\n End If\r\n\r\nExit_cboClientID_NotInList:\r\n Exit Sub\r\n\r\nErr_cboClientID_NotInList:\r\n MsgBox Err.Description\r\n Resume Exit_cboClientID_NotInList\r\n\r\nEnd Sub\r\n<\/pre>\nNote<\/strong><\/span>: Copy\/paste everything between the Private Sub<\/strong> and End Sub<\/strong> and don’t forget to change the Form name to match your own.<\/p>\n<\/div>\n