Που έχω λάθος στον κώδικα ;

[Kastrinos]

Καλησπέρα σας,
Προσπαθώ να βρω που έχω λάθος στο παρακάτω:
----------------------------------------------------------------------
Private Sub Id_AfterUpdate()
‘ Report
Const REPORTCANCELLED = 2501
On Error Resume Next
DoCmd.RefreshRecord
If id = 1 Then DoCmd.OutputTo acOutputQuery, "Το όνομα του Query", acFormatXLSX
If id = 2 Then DoCmd.OutputTo acOutputQuery, " Το όνομα του Query", acFormatXLSX
If id = 3 Then DoCmd.OutputTo acOutputQuery, " Το όνομα του Query", acFormatXLSX
If id = 4 Then DoCmd.OutputTo acOutputQuery, " Το όνομα του Query", acFormatXLSX
If id = 5 Then DoCmd.OutputTo acOutputQuery, " Το όνομα του Query", acFormatXLSX
If id = 6 Then
DoCmd.OutputTo acOutputQuery, "Το όνομα του Query", acFormatXLSX
DoCmd.OutputTo acOutputQuery, "Το όνομα του Query", acFormatXLSX
DoCmd.OutputTo acOutputQuery, "Το όνομα του Query", acFormatXLSX
DoCmd.OutputTo acOutputQuery, "Το όνομα του Query ", acFormatXLSX
DoCmd.OutputTo acOutputQuery, "Το όνομα του Query, acFormatXLSX
Select Case Err.Number
Case 0
Case REPORTCANCELLED
Case Else
MsgBox Err.Description, vbExclamation, "Error"
End Select
End if
End sub
----------------------------------------------------------------------
Ευχαριστώ