Option Compare Database Option Explicit - Private Sub Close_Exceptions_Form_Click() On Error GoTo Err_Close_Exceptions_Form_Click DoCmd.Close Exit_Close_Exceptions_Form_Click: Exit Sub Err_Close_Exceptions_Form_Click: MsgBox Err.Description Resume Exit_Close_Exceptions_Form_Click End Sub - Sub Combo50_AfterUpdate() ' Find the record that matches the control. Me.RecordsetClone.FindFirst "[LastName] = '" & Me![Combo50] & "'" Me.Bookmark = Me.RecordsetClone.Bookmark End Sub - Private Sub Print_Form_Click() On Error GoTo Err_Print_Form_Click DoCmd.PrintOut Exit_Print_Form_Click: Exit Sub Err_Print_Form_Click: MsgBox Err.Description Resume Exit_Print_Form_Click End Sub - Private Sub Command74_Click() On Error GoTo Err_Command74_Click Dim stDocName As String stDocName = "Exceptions" DoCmd.OutputTo acReport, stDocName Exit_Command74_Click: Exit Sub Err_Command74_Click: MsgBox Err.Description Resume Exit_Command74_Click End Sub - Private Sub OpenEmailForm_Click() On Error GoTo Err_OpenEmailForm_Click Dim stDocName As String Dim stLinkCriteria As String stDocName = "Exceptions Printout Form" DoCmd.OpenForm stDocName, , , stLinkCriteria Exit_OpenEmailForm_Click: Exit Sub Err_OpenEmailForm_Click: MsgBox Err.Description Resume Exit_OpenEmailForm_Click End Sub - Private Sub OpenExceptions Printout Form_Click() End Sub - Private Sub EmailAttachment_Click() On Error GoTo Err_EmailAttachment_Click Dim stDocName As String Dim MyForm As Form stDocName = "Exceptions Printout Form" Set MyForm = Screen.ActiveForm DoCmd.SelectObject acForm, stDocName, True DoCmd.PrintOut DoCmd.SelectObject acForm, MyForm.Name, False Exit_EmailAttachment_Click: Exit Sub Err_EmailAttachment_Click: MsgBox Err.Description Resume Exit_EmailAttachment_Click End Sub - Private Sub ViewEmail_Click() On Error GoTo Err_ViewEmail_Click Dim stDocName As String Dim stLinkCriteria As String stDocName = "Exceptions Printout Form" stLinkCriteria = "[CaseNumber]=" & Me![Case Number] DoCmd.OpenForm stDocName, , , stLinkCriteria Exit_ViewEmail_Click: Exit Sub Err_ViewEmail_Click: MsgBox Err.Description Resume Exit_ViewEmail_Click End Sub - Sub Combo95_AfterUpdate() ' Find the record that matches the control. Me.RecordsetClone.FindFirst "[SSN] = '" & Me![Combo95] & "'" Me.Bookmark = Me.RecordsetClone.Bookmark End Sub - Sub Combo108_AfterUpdate() ' Find the record that matches the control. Me.RecordsetClone.FindFirst "[SSN] = '" & Me![Combo108] & "'" Me.Bookmark = Me.RecordsetClone.Bookmark End Sub - Sub Combo113_AfterUpdate() ' Find the record that matches the control. Me.RecordsetClone.FindFirst "[LastName] = '" & Me![Combo113] & "'" Me.Bookmark = Me.RecordsetClone.Bookmark End Sub - Sub Combo158_AfterUpdate() ' Find the record that matches the control. Me.RecordsetClone.FindFirst "[DOB] = " & Me![Combo158] Me.Bookmark = Me.RecordsetClone.Bookmark End Sub - Sub Combo161_AfterUpdate() ' Find the record that matches the control. Me.RecordsetClone.FindFirst "[SSN] = '" & Me![Combo161] & "'" Me.Bookmark = Me.RecordsetClone.Bookmark End Sub - Sub Combo163_AfterUpdate() ' Find the record that matches the control. Me.RecordsetClone.FindFirst "[DOB] = " & Me![Combo163] Me.Bookmark = Me.RecordsetClone.Bookmark End Sub - Sub Combo165_AfterUpdate() ' Find the record that matches the control. Me.RecordsetClone.FindFirst "[DOB] = " & Me![Combo165] Me.Bookmark = Me.RecordsetClone.Bookmark End Sub - Private Sub Combo232_AfterUpdate() ' Find the record that matches the control. Me.RecordsetClone.FindFirst "[LastName] = '" & Me![Combo232] & "'" Me.Bookmark = Me.RecordsetClone.Bookmark End Sub - Private Sub CloseComplaintsFormButton_Click() On Error GoTo Err_CloseComplaintsFormButton_Click DoCmd.Close Exit_CloseComplaintsFormButton_Click: Exit Sub Err_CloseComplaintsFormButton_Click: MsgBox Err.Description Resume Exit_CloseComplaintsFormButton_Click End Sub - Private Sub FirstNameLabel_Click() End Sub - Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) End Sub - Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer) End Sub - Private Sub ViewComplaintForm_Click() On Error GoTo Err_ViewComplaintForm_Click Dim stDocName As String Dim stLinkCriteria As String stDocName = "Complaints Printout Form" stLinkCriteria = "[CaseNumber]=" & Me![Case Number] DoCmd.OpenForm stDocName, , , stLinkCriteria Exit_ViewComplaintForm_Click: Exit Sub Err_ViewComplaintForm_Click: MsgBox Err.Description Resume Exit_ViewComplaintForm_Click End Sub - Sub Combo168_AfterUpdate() ' Find the record that matches the control. Me.RecordsetClone.FindFirst "[LastName] = '" & Me![Combo168] & "'" Me.Bookmark = Me.RecordsetClone.Bookmark End Sub - Sub Combo170_AfterUpdate() ' Find the record that matches the control. Me.RecordsetClone.FindFirst "[LastName] = '" & Me![Combo170] & "'" Me.Bookmark = Me.RecordsetClone.Bookmark End Sub - Sub Combo172_AfterUpdate() ' Find the record that matches the control. Me.RecordsetClone.FindFirst "[LastName] = '" & Me![Combo172] & "'" Me.Bookmark = Me.RecordsetClone.Bookmark End Sub - Private Sub AppendToExceptQuery_Click() On Error GoTo Err_AppendToExceptQuery_Click Dim stDocName As String stDocName = "Complaints Append Query" DoCmd.OpenQuery stDocName, acNormal, acEdit Exit_AppendToExceptQuery_Click: Exit Sub Err_AppendToExceptQuery_Click: MsgBox Err.Description Resume Exit_AppendToExceptQuery_Click End Sub - Private Sub AddToExceptions_Click() On Error GoTo Err_AddToExceptions_Click Dim stDocName As String stDocName = "Complaints Append Query" DoCmd.OpenQuery stDocName, acNormal, acEdit Exit_AddToExceptions_Click: Exit Sub Err_AddToExceptions_Click: MsgBox Err.Description Resume Exit_AddToExceptions_Click End Sub - Private Sub Command204_Click() On Error GoTo Err_Command204_Click DoCmd.GoToRecord , , acNext Exit_Command204_Click: Exit Sub Err_Command204_Click: MsgBox Err.Description Resume Exit_Command204_Click End Sub - Private Sub Command205_Click() On Error GoTo Err_Command205_Click Screen.PreviousControl.SetFocus DoCmd.FindNext Exit_Command205_Click: Exit Sub Err_Command205_Click: MsgBox Err.Description Resume Exit_Command205_Click End Sub - Private Sub New_Record_Click() On Error GoTo Err_New_Record_Click DoCmd.GoToRecord , , acNewRec Exit_New_Record_Click: Exit Sub Err_New_Record_Click: MsgBox Err.Description Resume Exit_New_Record_Click End Sub - Sub List207_AfterUpdate() ' Find the record that matches the control. Me.RecordsetClone.FindFirst "[CaseNumber] = " & Me![List207] Me.Bookmark = Me.RecordsetClone.Bookmark End Sub - Private Sub Command209_Click() On Error GoTo Err_Command209_Click Screen.PreviousControl.SetFocus DoCmd.DoMenuItem acFormBar, acEditMenu, 10, , acMenuVer70 Exit_Command209_Click: Exit Sub Err_Command209_Click: MsgBox Err.Description Resume Exit_Command209_Click End Sub -