Where do I put DoCmd.Close acForm, "Email_AORB"?

[Thompyt]

I have found where to put it if the email is sent. Where do I put the command to where it would affect in both instances? Such as when the email is not sent (canceled at the email itself, or when IsNull(CR_numbers) = True.

Private Sub Send_AORB_OOB_Click()
On Error GoTo Error
Dim strSubject, strBody, strAddresses As String
DoCmd.RunCommand acCmdSaveRecord
If IsNull(CR_Numbers) Then
MsgBox "There are no OOB CRs te send"
Exit Sub
Else
With Me
If Not IsNull(.cbxNumber) And Not IsNull(.Priority) And Not IsNull(.Hours) Then


strBody = strBody & "Date Issue Identified: " & Chr(9) & Chr(9) & Chr(9) & !Dates & vbCrLf & vbCrLf
DoCmd.SendObject acSendNoObject, , acFormatTXT, strAddresses, , , strSubject, strBody, True
End If
End With
Exit Sub
DoCmd.Close acForm, "Email_AORB"
End If
End Sub

Thanks

[June7]

Put it outside the outermost If Then End If.

There is no error handler code so the GoTo Error is useless. The two Exit Subs are unnecessary because there is no code after the If Then that needs to be bypassed. If you want error handler:

Private Sub Send_AORB_OOB_Click()
Dim strSubject, strBody, strAddresses As String
On Error GoTo ErrProc
DoCmd.RunCommand acCmdSaveRecord
If IsNull(CR_Numbers) Then
    MsgBox "There are no OOB CRs to send"
Else
    With Me
        If Not IsNull(.cbxNumber) And Not IsNull(.Priority) And Not IsNull(.Hours) Then
            strBody = strBody & "Date Issue Identified: " & Chr(9) & Chr(9) & Chr(9) & !Dates & vbCrLf & vbCrLf
            DoCmd.SendObject acSendNoObject, , acFormatTXT, strAddresses, , , strSubject, strBody, True
        End If
    End With
End If
ExitProc:
DoCmd.Close acForm, "Email_AORB"
Exit Sub
ErrProc:
Resume ExitProc
End Sub

[Thompyt]

June7,
Apologies, I didn't put the error handeling routine in there. It exists. I have found a way to close it in all circumstance by putting the command in both if routines.

End If
End With
Exit Sub
Error_Handler_Exit:
Exit Sub
Error:
Select Case Err.Number
Case 2501
Err.Clear
Resume Error_Handler_Exit
Case Else
MsgBox "Error No. " & Err.Number & vbCrLf & "Description: " & Err.Description, vbExclamation, "Database Error"
Err.Clear
Resume Error_Handler_Exit
End Select
Exit Sub
End If
End Sub

[June7]

I did some edits on my previous post. Might look at again.