On Error Message

[rlsublime]

I am trying to add an on error messages to this code:

I am trying to Display the message “The Output file is currently open. Please close and re-try” This should display when the file is open and the user tries to generate the file.

Thanks

 Private Sub Repurchase_Excel_Report_Click()
If IsNull(Me!START_DATE.Value) Then
          MsgBox "Please Enter Start Date", vbOKOnly, "Start Date Missing"
          Cancel = True
          GoTo Err_Repurchase_Excel_Report_Click
       End If
       
If IsNull(Me!END_DATE.Value) Then
          MsgBox "Please Enter End Date", vbOKOnly, "End Date Missing"
          Cancel = True
          GoTo Err_Repurchase_Excel_Report_Click
       End If
On Error GoTo Err_Repurchase_Excel_Report_Click
DoCmd.OutputTo acQuery, "Repurchase_Query", "MicrosoftExcel 97-10(*.xls)", "C:\Repurchase Report.xls", True, ""
    
    
Err_Repurchase_Excel_Report_Click:
Exit Sub
End Sub

[pbaldy]

If you can identify the error number that is returned, you can trap for it:

http://www.baldyweb.com/ErrorTrap.htm

[rlsublime]

thanks the error trapping worker perfectly. Is there a way to require a user to click at least 1 checkbox from a list of checkboxes. I am also looking for an on error message for that. Thanks for your help.

[pbaldy]

I suspect you'll have to code that yourself. If they are stand-alone checkboxes, this type of thing:

If Me.Check1 = False And Me.Check2 = False Then
     Msgbox "Must select at least one"
     GoTo ExitHandler
End If

[rlsublime]

I tried both of these. It worked initially but now the message is not generating and not requiring the checkboxes. Is there something that I am missing? Thanks

If Me.chkbx_investor = False And Me.chkbx_makewhole = False And Me.chkbx_mi = False Then
MsgBox "Please select at least one option from Request Type checkbox", vbOKOnly, "Repurchase Request Type Missing"
GoTo Err_Repurchase_Excel_Report_Click
End If

If Not (Me.investor1 Or Me.chkbx_mi) _
Then
MsgBox "Please select at least one Request Type", vbOKOnly, "Investor Request Type Missing"
GoTo Err_Command20_Click
End If

[pbaldy]

In case they could be Null, try


If Nz(Me.chkbx_investor, 0) = False And Nz(Me.chkbx_makewhole, 0) = False And Nz(Me.chkbx_mi, 0) = False Then

If that doesn't work, post the whole code. It seems odd to be going to your error handler.